mgaughan/24_deb_pkg_gov
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

another update to readability plot adds

Browse Source
This commit is contained in:
mjgaughan 2024-06-21 22:52:08 -04:00
parent dc5327ab17
commit b7feac85ab
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
R/documentReadabilityAnalysis.R
View File

@ -13,11 +13,12 @@ head(readme_df)
aggregate(readme_df[, 3:10], list(readme_df$subdir), median) aggregate(readme_df[, 3:10], list(readme_df$subdir), median)
#getting basic stats for the readme readability #getting basic stats for the readme readability
median(readme_df$flesch_reading_ease) median(readme_df$flesch_reading_ease)
median(readme_df$linsear_write_formula)
median(readme_df$mcalpine_eflaw) median(readme_df$mcalpine_eflaw)
median(readme_df$reading_time) median(readme_df$reading_time)
# establishing the color scheme # establishing the color scheme
subdirColors <- subdirColors <-
setNames( c('red', 'forestgreen', 'blue') setNames( c('firebrick1', 'forestgreen', 'cornflowerblue')
, levels(contributing_df$subdir) ) , levels(contributing_df$subdir) )
#plotting linsear scoring #plotting linsear scoring
@ -53,6 +54,7 @@ aggregate(contributing_df[, 3:10], list(contributing_df$subdir), median)
median(contributing_df$flesch_reading_ease) median(contributing_df$flesch_reading_ease)
median(contributing_df$mcalpine_eflaw) median(contributing_df$mcalpine_eflaw)
median(contributing_df$reading_time) median(contributing_df$reading_time)
median(contributing_df$linsear_write_formula)
# plotting contributing linsear writing formula # plotting contributing linsear writing formula
contributing_linsear_plot <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) + 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") + geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +

BIN
R/draft_readability_analysis_plot.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 122 KiB

After

Width:  |  Height:  |  Size: 97 KiB