bdscale :: scale_x_bd - как удалить метку оси x в результате этой функции

Question

Я использую scale_x_bd, чтобы раскрасить мою ось X. Однако он генерирует назойливую метку «дата» на оси. Как мне избавиться от этого.

Мой пример кода:

library(lubridate)
library(tidyverse)
library(bdscale)


s1_date <- dmy("30/09/2019")
s2_date <- dmy("07/10/2019")


df <- data.frame(date = c(seq(s1_date, s1_date + 4, by = "day"), seq(s2_date, s2_date + 4, by = "day")),
           value = sample(1:25, 10)) 

p1 <- df %>% 
  ggplot(aes(x = date, y = value)) + 
  geom_col() +
  labs(x = "", y = "") 


p1 + scale_x_bd(business.dates = df %>% pull(date) %>% 
               unique %>% sort, max.major.breaks = 15) 

#does not work
p1 + scale_x_bd(business.dates = df %>% pull(date) %>% 
                  unique %>% sort, max.major.breaks = 15) +
  xlab("")

Есть идеи?

Answer 1

Вы можете удалить его, используя theme().

p1 + 
  scale_x_bd(business.dates = df %>% pull(date) %>% 
                  unique %>% sort, max.major.breaks = 15)  +
  theme(axis.title.x = element_blank())