0

我有两组时间序列数据。我想把它们放在一个情节中。我使用了以下代码：

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')

我想HMn29_29$avg_val在情节中分配 +.6 和 -.6 的容差。

的样本数据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 Ribbon上找到有关 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

我将您的数据合并为一个并命名为“datafromstackoverflow.csv”。修改后的数据如下：

高 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 回答