49 lines
1.5 KiB
R
49 lines
1.5 KiB
R
|
## install.packages('ggplot2')
|
||
|
|
library(ggplot2)
|
||
|
|
library(ggthemes)
|
||
|
|
|
||
|
|
## import data
|
||
|
|
dir <- "~/Downloads/cutlery.csv"
|
||
|
|
data <- read.csv(paste(dir, "cutlery.csv", sep=""), header=TRUE)
|
||
|
|
# View(data)
|
||
|
|
answer_var = colnames(data)[16]
|
||
|
|
answer_var
|
||
|
|
|
||
|
|
freq_cut = sum(data[, answer_var] == "Knifes and cutting instruments") / dim(data)[1]
|
||
|
|
freq_eat = sum(data[, answer_var] == "Knifes, forks and spoons") / dim(data)[1]
|
||
|
|
|
||
|
|
d = list()
|
||
|
|
d$x = c("Knifes and cutting instruments", "Knifes, forks and spoons")
|
||
|
|
d$y = c(freq_cut, freq_eat)
|
||
|
|
d2 = as.data.frame(d)
|
||
|
|
|
||
|
|
title_text = "What do Americans think that 'cutlery' refers to?"
|
||
|
|
subtitle_text = "Utensils to eat, or things which cut? (n=21)"
|
||
|
|
label_x_axis = element_blank()
|
||
|
|
label_y_axis = element_blank()
|
||
|
|
ggplot(data=d2, aes(x=x, y=y))+
|
||
|
|
geom_col(fill="navyblue")+
|
||
|
|
labs(
|
||
|
|
title=title_text,
|
||
|
|
subtitle=subtitle_text,
|
||
|
|
x=label_x_axis,
|
||
|
|
y=label_y_axis
|
||
|
|
) +
|
||
|
|
scale_y_continuous(labels = scales::percent, breaks=seq(0,1,by=0.2), limits=c(0,0.6)) +
|
||
|
|
theme_tufte() +
|
||
|
|
theme(
|
||
|
|
axis.ticks.x = element_blank(),
|
||
|
|
legend.title = element_blank(),
|
||
|
|
plot.title = element_text(hjust = 0.5),
|
||
|
|
plot.subtitle = element_text(hjust = 0.5),
|
||
|
|
legend.position="bottom",
|
||
|
|
legend.box="vertical",
|
||
|
|
axis.text.x=element_text(angle=0, hjust=0.5),
|
||
|
|
plot.background=element_rect(fill = "white",colour = NA)
|
||
|
|
)
|
||
|
|
|
||
|
|
getwd() ## Working directory on which the file will be saved. Can be changed with setwd("/your/directory")
|
||
|
|
height = 5
|
||
|
|
width = floor(height*(1+sqrt(5))/3)
|
||
|
|
ggsave("cutlery.png", width=width, height=height)
|