2024-06-22 02:39:04 +00:00
|
|
|
ggtitle("Posterior Predictive Density", subtitle="Non-Democracies") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p
|
|
|
|
|
#plot of reading_ease
|
|
|
|
|
p <- ggplot(readme_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p
|
|
|
|
|
p <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p
|
|
|
|
|
p <- ggplot(contributing_df, aes(x=mcalpine_eflaw, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p
|
|
|
|
|
p <- ggplot(contributing_df, aes(x=linsear_write, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p
|
2024-06-19 23:40:22 +00:00
|
|
|
head(readme_df)
|
2024-06-22 02:39:04 +00:00
|
|
|
p0
|
|
|
|
|
p0 <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p0
|
|
|
|
|
p0 <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-5, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p0
|
|
|
|
|
p0 <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p0
|
|
|
|
|
p0 <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p0
|
|
|
|
|
p0 <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p0
|
|
|
|
|
p0 <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-300, 300) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p0
|
|
|
|
|
p0 <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p0
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
p0
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_y_continuous(breaks = seq(0,10,1),labels = paste(seq(0, 10, by = 1), "%", sep = ""))+
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes( color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes(y = (..count..)/sum(..count..)), color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes(y = (..count..)/sum(..count..), color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
y = (..count..)/sum(..count..),
|
|
|
|
|
y = (..count..)/sum(..count..),
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes(y = (..count..)/sum(..count..), color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="dodge") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
contributing_linsear_plot <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_histogram(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_linsear_plot
|
|
|
|
|
contributing_linsear_plot <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_linsear_plot
|
|
|
|
|
readme_linsear_plot <- ggplot(readme_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
readme_linsear_plot
|
|
|
|
|
contributing_linsear_plot
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_time_plot
|
|
|
|
|
contributing_reading_time_plot
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_time_plot
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 50) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_time_plot
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 70) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_time_plot
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 80) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_time_plot
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_time_plot
|
|
|
|
|
contributing_mcalpine_eflaw <- ggplot(contributing_df, aes(x=mcalpine_eflaw, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_mcalpine_eflaw
|
|
|
|
|
contributing_mcalpine_eflaw <- ggplot(contributing_df, aes(x=mcalpine_eflaw, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 70) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_mcalpine_eflaw
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 70) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_linsear_plot, contributing_mcalpine_eflaw, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
library(gridExtra)
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_linsear_plot, contributing_mcalpine_eflaw, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
# plotting contributing linsear writing formula
|
|
|
|
|
contributing_linsear_plot <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
theme_bw(legend.position="none")
|
|
|
|
|
# plotting contributing reading time
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw(legend.position="none")
|
|
|
|
|
# plotting contributing mcalpine eflaw
|
|
|
|
|
contributing_mcalpine_eflaw <- ggplot(contributing_df, aes(x=mcalpine_eflaw, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 70) +
|
|
|
|
|
theme_bw(legend.position="none")
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme(legend.position = "top") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_linsear_plot, contributing_mcalpine_eflaw, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
# plotting contributing mcalpine eflaw
|
|
|
|
|
contributing_mcalpine_eflaw <- ggplot(contributing_df, aes(x=mcalpine_eflaw, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 70) +
|
|
|
|
|
theme(legend.position="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme(legend.position = "top") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_linsear_plot, contributing_mcalpine_eflaw, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
# plotting contributing mcalpine eflaw
|
|
|
|
|
contributing_mcalpine_eflaw <- ggplot(contributing_df, aes(x=mcalpine_eflaw, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 70) +
|
|
|
|
|
guides(fill="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme(legend.position = "top") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_linsear_plot, contributing_mcalpine_eflaw, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
# plotting contributing mcalpine eflaw
|
|
|
|
|
contributing_mcalpine_eflaw <- ggplot(contributing_df, aes(x=mcalpine_eflaw, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 70) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
theme(legend.position = "top") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_linsear_plot, contributing_mcalpine_eflaw, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
# plotting contributing linsear writing formula
|
|
|
|
|
contributing_linsear_plot <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-30, 30) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading time
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing mcalpine eflaw
|
|
|
|
|
contributing_mcalpine_eflaw <- ggplot(contributing_df, aes(x=mcalpine_eflaw, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 70) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw(legend.position = "top")
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw(legend.position = "left")
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme(legend.position = "left")
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme(legend.position = "left") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw(legend.position = "left")
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
opts(legend.position = "left") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme(legend.position = "left") +
|
|
|
|
|
theme_bw()
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(legend.position = "left")
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(legend.position = "top")
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_linsear_plot, contributing_mcalpine_eflaw, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
readme_reading_ease <- ggplot(readme_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(legend.position = "top")
|
|
|
|
|
readme_reading_ease
|
|
|
|
|
#plotting readme reading ease
|
|
|
|
|
readme_reading_ease <- ggplot(readme_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(legend.position = "top")
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
grid.arrange(readme_reading_ease, readme_reading_time, contributing_reading_ease, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
grid.arrange(readme_reading_ease, readme_reading_time_plot, contributing_reading_ease, contributing_reading_time_plot, nrow = 2)
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, nrow = 2)
|
|
|
|
|
# establishing the color scheme
|
|
|
|
|
irisColors <-
|
|
|
|
|
setNames( c('red', 'forestgreen', 'blue')
|
|
|
|
|
, levels(contributing_df$subdir) )
|
|
|
|
|
# establishing the color scheme
|
|
|
|
|
subdirColors <-
|
|
|
|
|
setNames( c('red', 'forestgreen', 'blue')
|
|
|
|
|
, levels(contributing_df$subdir) )
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(legend.position = "top")
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
#plot of reading_ease
|
2024-06-19 23:40:22 +00:00
|
|
|
#readme_df <- readme_df |>
|
|
|
|
|
# mutate(coef_grouping <- as.factor(subdir))
|
|
|
|
|
#test_lm <- lm(mcalpine_eflaw ~ word_count + as.factor(subdir),data=readme_df)
|
|
|
|
|
#summary(test_lm)
|
|
|
|
|
aggregate(contributing_df[, 3:10], list(contributing_df$subdir), median)
|
2024-06-22 02:39:04 +00:00
|
|
|
readme_reading_time_plot
|
|
|
|
|
#plotting readme reading ease
|
|
|
|
|
readme_reading_ease <- ggplot(readme_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(legend.position = "top")
|
|
|
|
|
readme_reading_ease
|
|
|
|
|
#plotting readme reading ease
|
|
|
|
|
readme_reading_ease <- ggplot(readme_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(axis.text.y=element_blank())
|
|
|
|
|
readme_reading_time_plot
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw(axis.text.y=element_blank()) +
|
|
|
|
|
theme(axis.text.y=element_blank())
|
|
|
|
|
readme_reading_time_plot
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 100) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(axis.text.y=element_blank())
|
|
|
|
|
readme_reading_time_plot
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 110) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(axis.text.y=element_blank())
|
|
|
|
|
readme_reading_time_plot
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 140) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(axis.text.y=element_blank())
|
|
|
|
|
readme_reading_time_plot
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 140) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(axis.title.y=element_blank())
|
|
|
|
|
readme_reading_time_plot
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 140) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
#theme(axis.title.y=element_blank())
|
|
|
|
|
readme_reading_time_plot
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 140) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, nrow = 2)
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, nrow = 2)
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, nrow = 2, labels = c("a)","b)"))
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, nrow = 2)
|
|
|
|
|
library(ggpubr)
|
|
|
|
|
ggarrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, nrow = 2,labels = c("a)","b)") )
|
|
|
|
|
ggarrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, ncol = 2, nrow = 2,labels = c("a)","b)") )
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, nrow = 2)
|
|
|
|
|
# plotting contributing reading time
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
ylab("readme density") +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
ylab("readme density") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(legend.position = "top")
|
|
|
|
|
#plotting readme reading ease
|
|
|
|
|
readme_reading_ease <- ggplot(readme_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
ylab("readme density") +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
#plotting readme reading time
|
|
|
|
|
readme_reading_time_plot <- ggplot(readme_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
ylab("readme density") +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading time
|
|
|
|
|
contributing_reading_time_plot <- ggplot(contributing_df, aes(x=reading_time, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
ylab("contributing density") +
|
|
|
|
|
guides(fill="none", color="none")+
|
|
|
|
|
theme_bw()
|
|
|
|
|
# plotting contributing reading ease
|
|
|
|
|
contributing_reading_ease <- ggplot(contributing_df, aes(x=flesch_reading_ease, group=as.factor(subdir))) +
|
|
|
|
|
geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
|
|
|
|
|
scale_color_manual(values = subdirColors) +
|
|
|
|
|
ylab("contributing density") +
|
|
|
|
|
xlim(-10, 90) +
|
|
|
|
|
theme_bw() +
|
|
|
|
|
theme(legend.position = "top")
|
|
|
|
|
contributing_reading_ease
|
|
|
|
|
grid.arrange(contributing_reading_ease, contributing_reading_time_plot,readme_reading_ease, readme_reading_time_plot, nrow = 2)
|
