# mutate(highlight = ifelse(Country == "Japan", TRUE, FALSE)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(color="group")) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures for each condition") +
ylab("Scores") +
xlab("Conditions")
# install.packages("lemon")
# library(lemon)
data_score_diffs %>%
# group_by(measure) %>%
# summarise(num_youtubers=n()) %>%
# arrange(desc(num_youtubers)) %>%
# mutate(highlight = ifelse(Country == "Japan", TRUE, FALSE)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill="group")) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures for each condition") +
ylab("Scores") +
xlab("Conditions")
# install.packages("lemon")
# library(lemon)
data_score_diffs %>%
# group_by(measure) %>%
# summarise(num_youtubers=n()) %>%
# arrange(desc(num_youtubers)) %>%
# mutate(highlight = ifelse(Country == "Japan", TRUE, FALSE)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge',  aes(fill="group")) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures for each condition") +
ylab("Scores") +
xlab("Conditions")
# install.packages("lemon")
# library(lemon)
data_score_diffs %>%
# group_by(measure) %>%
# summarise(num_youtubers=n()) %>%
# arrange(desc(num_youtubers)) %>%
# mutate(highlight = ifelse(Country == "Japan", TRUE, FALSE)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill="group")) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures for each condition") +
ylab("Scores") +
xlab("Conditions")
# install.packages("lemon")
# library(lemon)
data_score_diffs %>%
# group_by(measure) %>%
# summarise(num_youtubers=n()) %>%
# arrange(desc(num_youtubers)) %>%
# mutate(highlight = ifelse(Country == "Japan", TRUE, FALSE)) %>%
ggplot(aes(x=group, y=value, fill=group)) +
geom_bar(position='dodge', stat="identity", aes(fill="group")) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures for each condition") +
ylab("Scores") +
xlab("Conditions")
# install.packages("lemon")
# library(lemon)
data_score_diffs %>%
# group_by(measure) %>%
# summarise(num_youtubers=n()) %>%
# arrange(desc(num_youtubers)) %>%
# mutate(highlight = ifelse(Country == "Japan", TRUE, FALSE)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures for each condition") +
ylab("Scores") +
xlab("Conditions")
# install.packages("lemon")
# library(lemon)
data_score_diffs %>%
# group_by(measure) %>%
# summarise(num_youtubers=n()) %>%
# arrange(desc(num_youtubers)) %>%
# mutate(highlight = ifelse(Country == "Japan", TRUE, FALSE)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures by each group", fill="Group") +
ylab("Scores") +
xlab("Conditions")
# install.packages("lemon")
# library(lemon)
data_score_diffs %>%
# group_by(measure) %>%
# summarise(num_youtubers=n()) %>%
# arrange(desc(num_youtubers)) %>%
# mutate(highlight = ifelse(Country == "Japan", TRUE, FALSE)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures by each group", fill="Group") +
ylab("Scores") +
xlab("Groups")
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures by each group", fill="Group") +
ylab("Scores") +
xlab("Groups") +
ggsave("./pre-post_changes.png")
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures by each group", fill="Group") +
ylab("Scores") +
xlab("Groups") +
ggsave(file="./pre-post_changes.png")
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures by each group", fill="Group") +
ylab("Scores") +
xlab("Groups")
ggsave(file="./pre-post_changes.png", dpi=320)
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures by each group", fill="Group") +
ylab("Scores") +
xlab("Groups")
ggsave(file="./pre-post_changes.png", dpi=320, width=16, height=9)
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures by group", fill="Group") +
ylab("Scores") +
xlab("Groups")
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="Pre-post changes in the score of the measures by group", fill="Group") +
ylab("Score") +
xlab("Group")
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(title="", fill="Group") +
ylab("Score") +
xlab("Group")
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group")
knitr::opts_chunk$set(echo = TRUE)
# install.packages("tidyverse")
library(tidyverse)
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
theme_economist()
install.packages("ggthemes") # Install
library(ggthemes) # Load
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
theme_economist()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_stata()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_stata() + scale_color_stata()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
# theme_stata() + scale_color_stata()
theme_wsj()+ scale_colour_wsj("colors6")
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
# theme_stata() + scale_color_stata()
# theme_wsj()+ scale_colour_wsj("colors6")
theme_hc()+ scale_colour_hc()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
# xlab("Group") +
# theme_economist()
# theme_stata() + scale_color_stata()
# theme_wsj()+ scale_colour_wsj("colors6")
theme_hc()+ scale_colour_hc()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
# theme_stata() + scale_color_stata()
# theme_wsj()+ scale_colour_wsj("colors6")
theme_hc()+ scale_colour_hc()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
# theme_stata() + scale_color_stata()
# theme_wsj()+ scale_colour_wsj("colors6")
# theme_hc()+ scale_colour_hc()
theme_igray() + scale_colour_tableau()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
# theme_stata() + scale_color_stata()
# theme_wsj()+ scale_colour_wsj("colors6")
# theme_hc()+ scale_colour_hc()
# theme_igray() + scale_colour_tableau()
theme_calc()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
# theme_stata() + scale_color_stata()
# theme_wsj()+ scale_colour_wsj("colors6")
# theme_hc()+ scale_colour_hc()
# theme_igray() + scale_colour_tableau()
# theme_calc()
theme_clean()
data_score_diffs %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
knitr::opts_chunk$set(echo = TRUE)
# install.packages("tidyverse")
library(tidyverse)
data_score_diffs_row <- read_csv('./score_diffs_row.csv')
data_score_diffs_row %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
library(ggthemes) # Load
data_score_diffs_row %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
ggplot(aes(x=group, y=diff_value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
ggplot(aes(x=group, y=diff_value)) +
# geom_bar(position='dodge', stat="identity", aes(fill=group)) +
geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row <- read_csv('./score_diffs_row.csv')
data_score_diffs_row %>%
ggplot(aes(x=group, y=diff_value)) +
# geom_bar(position='dodge', stat="identity", aes(fill=group)) +
geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
ggplot(aes(x=group, y=diff_value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value))
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(value = mean(diff_value)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value))
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value)) %>%
ggplot(aes(x=group, y=value)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value)) %>%
ggplot(aes(x=group, y=mean)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value)) %>%
ggplot(aes(x=group, y=mean)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
geom_errorbar(aes(ymax = mean + sd, ymin = mean - sd), width = 0.2, size = 1.5)
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value)) %>%
ggplot(aes(x=group, y=mean)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
geom_errorbar(aes(ymax = mean + sd, ymin = mean - sd), width = 0.2, size = 1.5) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value)) %>%
ggplot(aes(x=group, y=mean)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
geom_errorbar(aes(ymax = mean + sd, ymin = mean - sd), width = 0.2, size = 1.5) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value)) %>%
ggplot(aes(x=group, y=mean)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
geom_errorbar(aes(ymax = mean + sd, ymin = mean - sd)) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value)) %>%
ggplot(aes(x=group, y=mean)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
geom_errorbar(aes(ymax = mean + sd, ymin = mean - sd), width = 0.2, size = 1) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
data_score_diffs_row %>%
group_by(group, measure) %>%
summarise(mean = mean(diff_value), sd = sd(diff_value)) %>%
ggplot(aes(x=group, y=mean)) +
geom_bar(position='dodge', stat="identity", aes(fill=group)) +
geom_errorbar(aes(ymax = mean + sd, ymin = mean - sd), width = 0.2, size = 0.5) +
# geom_boxplot() +
facet_grid(~factor(measure, levels=c("TTM", "STAI", "SCFQ", "AAQ-II"))) +
# scale_fill_manual(values = c('gray', 'red'), guide=FALSE) +
labs(fill="Group") +
ylab("Score") +
xlab("Group") +
# theme_economist()
theme_economist_white()
knitr::opts_chunk$set(echo = TRUE)
# install.packages("tidyverse")
library(tidyverse)
library(ggthemes) # Load
install.packages("ggthemes") # Install
install.packages("ggthemes")
