首先把同一月份的日期标记为同一个分类变量，然后用tapply，或者ddply函数都可以

嗯嗯 就是这么做的，感谢
但有个不完美的是 如果某月没有数据 不知道怎么能补进去一条为0的记录

这个我不会，可以在原数据上加一个吧

library(lubridate)
library(dplyr)
library(dplyr)
data$month=month(as.POSIXlt(data$date))

data002=data%>%group_by(month)%>%summarise(school_number=sum(school_number))

gg=ggplot(data002, aes(x = month, y = school_number)) +
  geom_line()+geom_point()
gg