使用R在单个图中具有缺失值的多个时间序列数据

时间:2013-08-23 03:30:38

标签: r time-series

我已根据日期和时间准备了一个数据框asPOSIXlt:

             Date_Time A1    B2 C1    E2
46 24/06/2012 12:20:00 NA 5.515 20    NA
47 24/06/2012 13:20:00 41    NA NA 3.519
48 25/06/2012 14:00:00 NA    NA NA    NA
49 25/06/2012 14:20:00 30    NA 30    NA
50 27/06/2012 15:20:00 NA    71 NA    NA
51 28/06/2012 18:00:00 11    NA 55    11
... ...

正如您所看到的,它包含许多“NA”值。是否有可能在单个图中绘制所有数据,其中“x轴”显示月份,不同的颜色分配给不同的数据(例如绿色表示A1,蓝色表示C1)?我尝试了'ggplot2'包,删除了所有缺失的值。尝试'zoo'包不允许将x轴绘制为月 - 年。有什么建议吗?

1 个答案:

答案 0 :(得分:2)

对于任何R的绘图包都不应该有问题。我不是ggplot用户,但这里是使用稍微修改过的数据版本的基本R示例。请注意,使用as.POSIXct比在as.POSIXlt个对象中使用data.frame更可取:

dat <- read.csv(text="Date_Time,A1,B2,C1,E2
24/06/2012 12:20:00,NA,5.515,20,NA
24/06/2012 13:20:00,41,NA,NA,3.519
25/06/2012 14:00:00,NA,NA,NA,NA
25/07/2012 14:20:00,30,NA,30,NA
27/08/2012 15:20:00,NA,71,NA,NA
28/09/2012 18:00:00,11,NA,55,11")

dat$Date_Time <- as.POSIXct(dat$Date_Time,format="%d/%m/%Y %H:%M:%S")

matplot(
  dat[,1],
  dat[2:5],
  type="o",
  pch=19,
  col=c("green","red","blue","black"),
  xaxt="n",
  xlab="Year-Month",
  ylab="Value"
)

使用所选格式添加POSIXct代表的轴:

axis.POSIXct(side=1,x=dat$Date_Time,format="%Y-%m")

enter image description here