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

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

库（xts）
数据（样本矩阵）
sample.xts我认为定制
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()

您可以在中使用该解决方案，直到有一个补丁使其成为可选。
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()