PM2.5<-c(97, 80, 64, 91, 87, 100, 128, 144, 150, 150, 150, 106, 78, 68, 62, 46, 55, 68, 84, 92, 95, 108, 128, 138) #PM2.5值
time<-c(0:23) #时间值
Z<-cbind(time,PM2.5) #合并矩阵
time[c(which(PM2.5==max(PM2.5)))] #求得pm2.5最高的时间
maxPM2.5<-sum(PM2.5[c(which(PM2.5==max(PM2.5)))]) #求得PM2.5最高的和 并给maxPM2.5
maxPM2.5/sum(PM2.5) #求占比
plot(Z,type="l",ylim=c(0,180)) #画时间与PM2.5的图 用线画 规定Y轴的范围

我也是刚开始学R 所以有问题随时交流

计算 PM2.5 早高峰（6时到10时）时段占全天的比例
这个问题，似乎有点问题：浓度是不能直接加总的，所以说占一天的比例，就有点不妥了吧。

建议跟平均值比较，在平均值之上或者之下。

求最大值的时间，可以用which.max()函数，直接返回序号

之前我也用了which.max 但是只返回了一个最大值 从数据上面看 上面有多个最大值150 which.max有办法吗？

如果有多个的话，which.max是没办法的。这个一般适用于连续型变量吧。还是回归到最原始的which的判断问题吧。