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 

가 I 데이터를 플롯하고 싶은 등, 그 각 점에서 'NUM'(x)와 '퍼센트'(Y), 평균의 플롯과 함께 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))