我有一个Simpsons数据库，其中包含每个季节。我必须创建一个新数据库来总结每个季节的评分（最大和最小）。
我尝试将每个季节分开，以便分别获得每个最大值和最小值，然后在最后连接它们。
Newtable4 for是每个季节，IMDb和观众得分的原始数据帧。
summary(Newtable4)
x1<- Newtable4%>% filter(Newtable4$season.wiki==1)
season mean_tv_com mean_imdb number_episodes max_tv_com
1 8.207692 7.784615 13 8.8
2 8.545455 8.047619 22 8.9
3 8.7625 8.195833 24 9.1
4 8.809524 8.309524 21 9.1