如何减少ggplot中x轴在日期上的超前/滞后空间

Question

我使用scale_x_continuous来缩小ggplots上的超前/滞后空间。它适用于数字x轴对象。但是，约会却没有喜悦。

我的例子：

library(lubridate)  
library(tidyverse)

# this works
  ggplot(cars, aes(x = speed, y = dist)) +
  geom_line() +
  scale_x_continuous(expand = c(0, 0)) 


# this does not work
cars %>% 
  mutate(date = seq(dmy("01/01/2019"), dmy("01/01/2019") + ddays(nrow(cars) - 1), "day")) %>% 
  ggplot(aes(x = date, y = dist)) +
  geom_line() +
  scale_x_continuous(expand = c(0, 0))

有什么想法吗？

Answer 1

在X轴上，您正在处理date类型的数据，而不是continuous数据。

您可以使用以下代码

cars %>% 
  mutate(date = seq(dmy("01/01/2019"), dmy("01/01/2019") + ddays(nrow(cars) - 1), "day")) %>% 
  ggplot(aes(x = date, y = dist)) +
  geom_line() +
  scale_x_date(expand = c(0, 0))

产生以下情节