学習者コーパス論 2015.12.11 作図

LC-2015.12.11-graph.R

library(dplyr)
library(ggplot2)
library(scales)

df <- read.csv('out/2015.12.04-awl_asl.csv')


df_plot <- df %>%
    mutate(
        native = plyr::revalue(native, c(en = 'L1 English ', ja='L1 Japanese'))
    )


box_tokens <- ggplot(df_plot, aes(x = native, y = n_token)) +
    geom_boxplot(outlier.colour = NA) +
    stat_summary(fun.y = mean, geom = 'point', shape = 5, size = 4) +
    geom_jitter(aes(color = native), alpha = 0.8) +
    scale_y_continuous(breaks = pretty_breaks(n = 8)) +
    labs(
        x     = 'Native Language',
        y     = 'Tokens in English Essays',
        color = 'Native Language'
    )


box_types <- ggplot(df_plot, aes(x = native, y = n_type)) +
    geom_boxplot(outlier.colour = NA) +
    stat_summary(fun.y = mean, geom = 'point', shape = 5, size = 4) +
    geom_jitter(aes(color = native), alpha = 0.8) +
    scale_y_continuous(breaks = pretty_breaks(n = 8)) +
    labs(
        x     = 'Native Language',
        y     = 'Types in English Essays',
        color = 'Native Language'
    )