1

私は次の形式のデータを持っています:

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

'num'(x)および'percent'(y)のプロットとともに、x軸のすべての点の平均(2,3,4,5)がに追加されるようにデータをプロットしたいと思います。プロットと平均系列に基づく回帰直線がプロットされます。

4

1 に答える 1

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))
于 2012-10-30T20:15:01.113 に答える