R使用ggplot中的列表变量

Question

我有一个列表中的变量（年份，班级大小和学费），我想在表格中加入，然后使用年份和班级大小创建时间序列图表。但是，当我使用ggplot时，错误表明它不知道如何处理列表数据。这是我的代码：

univ.ann <- results1[c(as.character(1996:2015))]

size <- sapply(univ.ann, function(LIST) LIST$student$size) %>% 
  unlist()

size_df <- data.frame(classsize = size) %>% 
  rownames_to_column(var = "year") 

tuition <- sapply(univ.ann, function(LIST) LIST$cost$tuition$in_state) %>% 
  unlist()

tuition_df <- data.frame(in_state = tuition) %>%
  rownames_to_column(var = "year") 

full_join(size_df, tuition_df, by = c("year" = "year")) %>% 
  arrange(year) 

此时所有内容都有效，但是，当我执行以下代码块时，绘图无法显示：

university_plot <- ggplot(univ.ann, aes(year)) + 
  geom_point(aes(y=size_df)) + 
  ylab("Size") + 
  xlab("Year") + 
  ggtitle("Class Size Plot")

university_plot

有没有办法将ggplot用于列表变量？