在 R 中绘制具有不连续轴的时间序列答案

【问题标题】：plot time series with discontinuous axis in R在 R 中绘制具有不连续轴的时间序列
【发布时间】：2016-09-26 01:29:57
【问题描述】：

我想绘制一个时间序列，其中不包括中间的一段时间。如果我单独绘制系列，x 轴上只有一个索引，这就是我得到的。内部排除点集不会出现。

x <- rnorm(50)
Dates <- seq(as.Date("2008-1-1"), by = "day", length.out = length(x))
dummy <- c(rep(1, 25), rep(0, 10), rep(1, length(x) - 35))
plot(x[dummy == 1])

但是，一旦日期位于 x 轴上，R 就会尽职尽责地呈现准确的真实时间刻度，包括排除的日期。这会在绘图上产生一个空白区域。

plot(Dates[dummy == 1], x[dummy == 1])

如何在 x 轴上获取日期，但不显示排除日期的空白区域？

【问题讨论】：

这样做会破坏您的 x 轴，这不是一个好主意。也许你可以把剩下的部分放到 ggplot 方面。
为什么不@alistaire？它是不好的形式/误导性，还是出于更多技术原因的不好？
我想到了 plot(x[dummy == 1], xaxt = "n") 之类的东西，然后使用 axis 将日期放入（或 ggplot 中的等效构造），但无法弄清楚如何使用添加日期dummy == 1 子集。
x 方向定位的含义会根据您在图表上的位置而有所不同，而不是具有单一一致的关系。这是误导；它会使数据点看起来比实际更接近。

标签： r date plot plotrix

【解决方案1】：

三种选择：

1. ggplot2 显然，ggplot2 would not allow for a discontinuous axis 但你可以使用facet_wrap 来获得类似的效果。

# get the data
  x = rnorm(50)
  df <- data.frame( x = x,
                  Dates = seq(as.Date("2008-1-1"), by = "day", length.out = length(x)) ,
                  dummy = c(rep(1, 25), rep(0, 10), rep(1, length(x) - 35)))

  df$f <- ifelse(df$Dates <= "2008-01-25",  c("A"), c("B")) 

# plot
  ggplot( subset(df, dummy==1)) +
    geom_point(aes(x= Dates, y=x)) +
    facet_wrap(~f , scales = "free_x")

2。基础R

plot(df$x ~ df$Dates, col= ifelse( df$f=="A", "blue", "red"), data=subset(df, dummy==1))

3. plotrix Another alternative would be to use gap.plot{plotrix}.代码将类似于下面的代码。但是，我无法弄清楚如何在具有date 值的轴上进行中断。也许这会和其他问题。

library(plotrix)

gap.plot(Dates[dummy == 1], x[dummy == 1], gap=c(24,35), gap.axis="x")

【讨论】：

谢谢，但这似乎在情节中造成了差距。我想要相反：标准情节有一个我不想要的差距。
我已经更正了代码。它回答了你的问题吗？
谢谢。像我这样的新手需要注意：ggplot 解决方案 (1) 中的 data.table 命令可以替换为 data.frame，然后不需要另一个包。

【解决方案2】：

我想我明白了。按照我上面提出的思路，我不得不长时间摆弄axis 命令才能让它把日期标签放在正确的位置。这是我使用的：

plot(x[dummy == 1], xaxt = "n", xlab = "")  # plot with no x-axis title or tick labels
Dates1_index <- seq(1,length(Dates1), by = 5)  # set the tick positions
axis(1, at = Dates1_index, labels = format(Dates1[Dates1_index], "%b %d"), las = 2)

成功后，我现在同意@alistaire 的观点，它看起来很误导。也许如果我在休息处放一条垂直虚线......

【讨论】：