删除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()