時間、A、B の 3 つの列で構成されるデータ フレームがあります。(A と B) VS 時間を 1 つのグラフにプロットすることができました。A、Bの移動平均を計算し、同じグラフにプロットしたいと思います。同様の質問を見つけましたが、それは単一のデータ用です。同じ手順を実行しましたが、同じグラフで A と B の移動平均を組み合わせて複数にすることができませんでした。
私のデータフレームのサンプル:
time,A,B
0.122096,1,0
0.207928,9,0
0.300415,17,30
0.400383,30,60
0.503295,26,50
0.606207,24,70
1.05641,7,50
1.066232,1,56
1.068054,1,60
1.072752,1,76
1.107066,5,30
1.209493,16,40
1.301466,33,50
私のコード:
require(reshape2)
require(ggplot2)
library(zoo)
df<-read.csv("DATA.csv")
temp.zoo<-zoo(df$time,df$A)
temp2.zoo<-zoo(df$time,df$B)
m.av<-rollmean(temp.zoo,10)
df$A.av=coredata(m.av)
m2.av<-rollmean(temp2.zoo,10)
df$B.av=coredata(m2.av)
p<-ggplot(dat = melt(df, id.var="time"), aes(x=time, y=value, color = variable)) +
geom_line(size=0.6) +
// the above line is graphing the two columns(A and B ) VS time .
geom_line(aes(x=df$time,y=df$A.av),color="black") +
geom_line(aes(x=df$time,y=df$B.av),color="grey")
print(p)
何が足りないのかわからない？なにか提案を？