当 x 轴有日期时，删除 ggplot 中多余的 space

Question

我的问题是，对于 ggplot，当 x 轴包含的日期有点太多时，左侧的图中给出了过多的 space
有没有可能去掉红色的space？使整个曲线和x轴向左移动。

library(tidyverse)
set.seed(138)
mydat <- (as.Date("2021-04-01")+0:99) %>% as.data.frame()
y <- rnorm(100) 
mydat$val <- y
names(mydat) <- c("Time", "Value")

ggplot(mydat, aes(x=as.Date(Time)))+geom_line(aes(y=Value))+
  scale_x_date(breaks = c(seq(as.Date('2021-04-01'), as.Date('2021-08-01'), by="2 week")) , date_labels = "%d-%b-%y ", limits=c(as.Date('2021-04-01'), as.Date('2021-07-09')))+theme(legend.position="bottom")+
  theme(
    axis.text.x = element_text(angle=45,size=10, vjust = 0.5))

Answer 1

在scale_x_date

中添加expand =c(0,0)参数

当 x 轴有日期时，删除 ggplot 中多余的 space

Remove excess space in ggplot when x axis has dates

plot

r

ggplot2