Удалить диапазон дат в верхнем правом углу графика 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"])

Код и сюжет взяты с сайта Джошуа Ульриха xts .

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