Untitled

within_subjects_agg <- list(
  "word_length" = group_by(df, name, word_length) %>% summarise(rt_mean = mean(rt)) %>% as.data.frame(),
  "kf_freq" = group_by(df, name, kf_freq) %>% summarise(rt_mean = mean(rt)) %>% as.data.frame()
)

between_subjects_agg <- list(
  "word_length" = group_by(within_subjects_agg$word_length, word_length) %>% summarise(rt_mean = mean(rt_mean)) %>% as.data.frame(),
  "kf_freq" = group_by(within_subjects_agg$kf_freq, kf_freq) %>% summarise(rt_mean = mean(rt_mean)) %>% as.data.frame(),
  "word_number" = group_by(df, word_number) %>% summarise(rt_mean = mean(rt)) %>% as.data.frame()
)