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