R + ggplot2：如何从x轴隐藏缺少的日期？

Question

假设我们有以下日期 - 值对的简单数据框，其中序列中缺少某些日期（即1月12日至1月14日）。当我绘制点时，它会在x轴上显示这些缺失日期，但没有与这些日期对应的点。我想防止这些丢失的日期显示在x轴上，以便点序列没有中断。有关如何做到这一点的任何建议？谢谢！

dts <- c(as.Date( c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16')))
df <- data.frame(dt = dts, val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() + 
        scale_x_date(format = '%d%b', major='days')

Answer 1

然后将日期数据转换为一个因子。目前，ggplot正在解释您告诉它数据的意义上的数据 - 连续日期范围。你不想要那个尺度，你想要一个分类尺度：

require(ggplot2)
dts <- as.Date( c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16'))
df <- data.frame(dt = dts, val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() + 
        scale_x_date(format = '%d%b', major='days')

与

df <- data.frame(dt = factor(format(dts, format = '%d%b')), 
                  val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point()

产生：

这就是你想要的吗？

Answer 2

我制作了一个包来做到这一点。它被称为bdscale，它位于CRAN和github上。无耻的插头。

复制你的例子：

> library(bdscale)
> library(ggplot2)
> library(scales)
> dts <- as.Date( c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16'))
> ggplot(df, aes(x=dt, y=val)) + geom_point() + 
    scale_x_bd(business.dates=dts, labels=date_format('%d%b'))

但你可能想要的是加载已知的有效日期，然后使用x轴上的有效日期绘制数据：

> nyse <- bdscale::yahoo('SPY') # get valid dates from SPY prices
> dts <- as.Date('2011-01-10') + 1:10
> df <- data.frame(dt=dts, val=seq_along(dts))
> ggplot(df, aes(x=dt, y=val)) + geom_point() + 
    scale_x_bd(business.dates=nyse, labels=date_format('%d%b'), max.major.breaks=10)

Warning message:
Removed 3 rows containing missing values (geom_point). 

警告告诉您删除了三个日期：

• 15th = Saturday
• 16th = Sunday
• 17th = MLK Day

Answer 3

第一个问题是：你为什么要那样做？如果您的轴不是坐标，则显示基于坐标的绘图没有意义。如果你真的想这样做，你可以转换为一个因素。但要注意订单：

dts <- c(as.Date( c('31-10-2011', '01-11-2011', '02-11-2011',
           '05-11-2011'),format="%d-%m-%Y"))
dtsf <- format(dts, format= '%d%b')
df <- data.frame(dt=ordered(dtsf,levels=dtsf),val=seq_along(dts))
ggplot(df, aes(dt,val)) + geom_point()

有了因素，你必须要小心，因为顺序在一个因子中是任意的，除非你把它作为有序因子。由于因素按字母顺序排序，因此您可能会遇到某些日期格式的问题。所以要小心你的工作。如果您不考虑订单，则会得到：

df <- data.frame(dt=factor(dtsf),val=seq_along(dts))
ggplot(df, aes(dt,val)) + geom_point()