0

2 セットの時系列データがあります。それらを単一のプロットに入れたかったのです。次のコードを使用しました。

temp <- data.frame(HMn29_29$avg_val, HMn28_29$avg_val, HMn29_29$h)
ggplot(temp, aes(HMn29_29.h)) + ylim(-2, 13) +
    geom_line(aes(y = HMn28_29.avg_val, colour = "Tempratur")) + 
    geom_line(aes(y = HMn29_29.avg_val, colour = "TempratureA")) +
    opts(title = 'chart_title')

そして、プロット内の +.6 と -.6 の許容範囲を割り当てたいと思いHMn29_29$avg_valました。

のサンプル データHMn29_29:

                     h    avg_val
1  2007-09-29 00:00:00 -1.3250000
2  2007-09-29 01:00:00 -0.4670000
3  2007-09-29 02:00:00 -0.4426667
4  2007-09-29 03:00:00 -0.6396667
5  2007-09-29 04:00:00 -0.7843333
6  2007-09-29 05:00:00 -0.5563333
7  2007-09-29 06:00:00 -0.7276667
8  2007-09-29 07:00:00 -0.6260000
9  2007-09-29 08:00:00 -0.7290000
10 2007-09-29 09:00:00  0.4976667

のサンプル データHMn28_29:

                     h    avg_val
1  2007-09-29 00:00:00 -1.9225000
2  2007-09-29 01:00:00 -1.6676667
3  2007-09-29 02:00:00 -1.5820000
4  2007-09-29 03:00:00 -1.5716667
5  2007-09-29 04:00:00 -1.8290000
6  2007-09-29 05:00:00 -1.6153333
7  2007-09-29 06:00:00 -1.8093333
8  2007-09-29 07:00:00 -1.9303333
9  2007-09-29 08:00:00 -1.3980000
10 2007-09-29 09:00:00  1.2270000

なにか提案を？

4

2 に答える 2

1

私はデータを少しいじって、これを思いつきました。

x29_29 を A に、x28_29 を B に名前を変更しました。

私は geom_ribbon 関数を使用しましたが、これがあなたが探しているもののようです。Geomリボンの geom_ribbon のオプションに関する詳細を見つけることができます

私が使用したコードは次のとおりです。

data <- read.csv("datafromstackoverflow.csv",header=TRUE,sep=",")
data
p <- ggplot(data,aes(x=h))
p <- p+ geom_ribbon(aes(ymin=A-0.06,ymax=A+0.06),fill="blue")
p <- p + geom_ribbon(aes(ymin=B-0.06, ymax=B+0.06),fill="red")
p

得られたグラフは次のとおりです。

ここに画像の説明を入力

青い線が A、赤い線が B です。必要に応じて凡例を追加できます。

ジババ

于 2013-01-12T01:54:32.427 に答える
1

あなたのデータを 1 つにまとめ、「datafromstackoverflow.csv」という名前を付けました。変更されたデータは次のとおりです。

h x29_29 x28_29
2007/9/29 0:00 -1.325 -1.9225
2007 年 9 月 29 日 1:00 -0.467 -1.6676667
2007 年 9 月 29 日 2:00 -0.4426667 -1.582
2007 年 9 月 29 日 3:00 -0.6396667 -1.5716667
2007 年 9 月 29 日 4:00 -0.7843333 -1.829
2007 年 9 月 29 日 5:00 -0.5563333 -1.6153333
2007 年 9 月 29 日 6:00 -0.7276667 -1.8093333
2007 年 9 月 29 日 7:00 -0.626 -1.9303333
2007/9/29 8:00 -0.729 -1.398
2007 年 9 月 29 日 9:00 0.4976667 1.227

プロットに使用したコードは次のとおりです。

data <- read.csv("datafromstackoverflow.csv",header=TRUE,sep=",")
p <- ggplot(data,aes(h,x29_29))  
p <- p + geom_point(data=data,aes(x=h,y=x29_29),color="blue")  
p <- p + geom_point(data=data,aes(x=h,y=x28_29),color="red")  
p

これがお役に立てば幸いです。

ジババ

于 2013-01-12T00:10:48.470 に答える