R-ggplot scale_x_date图形中的日期不正确

Question

我用以下代码在R中创建了图形：

x <- data.frame(
  "date" = seq(Sys.Date()-120, Sys.Date(), "weeks"), 
  "amount" = seq(1:18),
  stringsAsFactors = F)

library(ggplot2)

ggplot(x, aes(x=date, y=amount)) + 
  geom_bar(stat = "identity") +
  scale_x_date(date_breaks = "1 week", date_labels = "%d-%m-%y")

一切都很好，除了我的数据帧以日期2019-02-17开头，而图形以日期2019-02-11开头（在图形末尾出现类似问题）。如何使我的图表以正确的日期开始（2019-02-17）？

Answer 1

这可能对您有用：

ggplot(x, aes(x=date, y=amount)) + 
  geom_bar(stat = "identity") +
  scale_x_date(date_breaks = "1 week", date_labels = "%d-%m-%y", expand = c(0,0))

ggplot出于显示原因“填充”您的数据。