这是问题：
使用单个管道函数，创建一个名为
year_season粘贴年份和季节（paste（year，season，sep =“-”））。
然后，总结平均，最小和最大自行车数
并在x轴和数字上使用year_season构建图
y轴上的自行车数量。显示三行（geom_line）：
最小值，最大值为1，平均值为1。
以某种方式将最大值/最小值与平均值区分开来（可以使用
线型，颜色或线号来执行此操作；完全取决于您）。
注意：为了使它起作用，您的绘图的第一行需要 是这个（不带引号）：'ggplot（aes（year_season，count_avg，group = 1））+'
这是我完成的代码，但是我不确定为什么这是错误的以及为什么我没有得到图：
bikes %>%
mutate(year_season = paste(year,season, sep="-")) %>%
summarize (avg_bikes=mean(count), min_bikes=min(count),
max_bikes=max(count)) %>%
ggplot(aes(year_season,avg_bikes,group=1))+
geom_line(aes(avg_bikes, group=avg_bikes))+
geom_line(aes(min_bikes, group=min_bikes))+
geom_line(aes(max_bikes, group=max_bikes))