Как добавить среднее значение для рассеивания в R?

Question

У меня есть данные в виде:

Num Percent 
5 9.44 
4 19.7 
4 10.64 
4 10.81 
4 10.97 
4 11.35 
3 13.18 
3 24.54 
3 24.99 
3 12.95 
3 13.17 
3 24.29 
3 13.81 
3 13.93 
3 27.87 
3 13.26 
2 41.41 
2 34.19 
2 41.6 
2 19.31 
2 34.4 
2 38.72 
2 18.16 
2 36.28 
2 18.95 
2 18.49 

Я хотел бы построить данные таким образом, что, наряду с сюжетом «пит» (х) и «процента» (у), то среднее в каждой точке оси x (2,3,4,5) добавляется к графику и строится линия регрессии на основе среднего ряда.

Answer 1

Вызов ваш кадр данных DF

MeansByNum <- tapply(DF$Percent, DF$Num, mean) #Create an array of means by Num 
NewDF <- data.frame(cbind(Num = as.numeric(as.vector(names(MeansByNum))), 
          Percent = as.numeric(MeansByNum))) 
plot(Percent~Num, DF) 
points(NewDF$Num, NewDF$Percent, col="red") 
abline(lm(Percent~Num, NewDF))