学習者コーパス論 2015.12.04 作図

LC-2015.12.04-graph.R

library(dplyr)
library(ggplot2)

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'))
    )

token_type <- ggplot(df_plot, aes(n_token, n_type)) +
    facet_grid(. ~ native, scales = 'free_x') +
    geom_point() +
    geom_smooth() +
    labs(x = 'Tokens in English Essays', y = 'Types')

token_ttr <- ggplot(df_plot, aes(n_token, ttr)) +
    facet_grid(. ~ native, scales = 'free_x') +
    geom_point() +
    geom_smooth() +
    labs(x = 'Tokens in English Essays', y = 'Type Token Ratio')

token_gi <- ggplot(df_plot, aes(n_token, gi)) +
    facet_grid(. ~ native, scales = 'free_x') +
    geom_point() +
    geom_smooth() +
    labs(x = 'Tokens in English Essays', y = 'Guiraud Index')