删除 xts 图右上角的日期范围

Question

如何删除 xts 图右上角的日期范围？例如，在下面 xts 图的右上角，我想删除文本“2007-01-02/2007-06-30”。

library(xts)
data(sample_matrix)
sample.xts <- as.xts(sample_matrix)
plot(sample.xts[,"Close"])

代码和情节取自Joshua Ulrich's xts website .

Answer 1

我不认为自定义 plot.xts 的输出是直接的，但也许其他人会纠正我。

我会使用 ggplot 来绘制数据，它为您提供了您希望自定义标签、刻度、网格线、标题、注释等的所有选项。

这里是一个如何重新创建上面情节的例子:

library(scales);
library(tidyverse);
sample.xts %>%
    as.data.frame() %>%
    rownames_to_column("Date") %>%
    mutate(Date = as.Date(Date, format = "%Y-%m-%d")) %>%
    ggplot(aes(Date, Close)) +
    geom_line() +
    scale_x_date(
        date_breaks = "1 month",
        labels = date_format("%b\n%Y")) +
    theme_minimal()