两个时间序列-出现相似但绘制不同

时间:2018-10-19 21:48:02

标签: r ggplot2

我已经合并了两个系列以使用ggplot2进行绘制,但是第二个系列以区域而不是线条进行绘制。我的输入是一个小标题,暗示了有关数据的某些信息。 我将xts系列合并为一个小标题,当我对其进行绘制时,第一个系列显示为一条线,第二个系列显示为一个区域。我不明白为什么。这两个系列的大小相似。红色区域的顶部大约在第二个系列的右边。 这是输入数据框的摘要

> summary(us_cdn_xts)
     Index               us10y2y          cdn10y2y      
 Min.   :2004-01-01   Min.   :-0.190   Min.   :-0.1400  
 1st Qu.:2007-09-13   1st Qu.: 0.770   1st Qu.: 0.0000  
 Median :2011-05-26   Median : 1.460   Median : 0.6500  
 Mean   :2011-05-26   Mean   : 1.401   Mean   : 0.6949  
 3rd Qu.:2015-02-05   3rd Qu.: 2.120   3rd Qu.: 1.2200  
 Max.   :2018-10-18   Max.   : 2.910   Max.   : 2.3200  
                      NA's   :1700     NA's   :159      
> 

代码在下面

> plot_data<-tidy(us_cdn_xts)
> print(plot_data)
# A tibble: 10,810 x 3
   index      series  value
   <date>     <chr>   <dbl>
 1 2004-01-01 us10y2y NA   
 2 2004-01-02 us10y2y  2.44
 3 2004-01-03 us10y2y NA   
 4 2004-01-04 us10y2y NA   
 5 2004-01-05 us10y2y  2.46
 6 2004-01-06 us10y2y  2.45
 7 2004-01-07 us10y2y  2.43
 8 2004-01-08 us10y2y  2.42
 9 2004-01-09 us10y2y  2.43
10 2004-01-10 us10y2y NA   
# ... with 10,800 more rows
> library(ggthemes)
> term_plot<-ggplot(plot_data,aes(x=index,y=value,colour=series))+
+ geom_line()
> ggsave(term_plot,file="term_plot.png")
Saving 7 x 7 in image
Warning message:
Removed 3 rows containing missing values (geom_path). 
> 

plot

2 个答案:

答案 0 :(得分:0)

我认为,如果您使用数据表或框架,则可能只需要添加组外观即可。

这是为我运行的示例:

index  <- c("10/17/2018","10/18/2018","10/19/2018","10/20/2018","10/17/2018","10/18/2018","10/19/2018","10/20/2018")
series <- c("a","a","a","a","b","b","b","b")
values <- c(1,2,3,4,4,3,2,1)
df <- data.frame(index, series, values)

g <- ggplot()
g <- g + geom_line(data= df, aes(x=index, y=values, colour= series, group= as.factor(series)))
g

希望有帮助!

The resulting graph - g

答案 1 :(得分:0)

当我想出答案时,我试图弄清楚如何在问题中发布数据。第二个系列的问题在于它的观测值绝对为零。我将对引起奇怪情节的原因发表评论。我找不到有关该行为的文档。但是用NA代替零给了我很好的情节。 good plot after replacing 0's with NA