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

我使用以下代码在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")

---

x这可能适合您：

ggplot（x，aes（x=日期，y=金额））+
几何图形栏（stat=“identity”）+
缩放x日期（日期间隔=“1周”，日期标签=“%d-%m-%y”，扩展=c（0,0））

ggplot
“填充”数据以显示原因。
您可以使用
geom\u col（）
而不是
geom\u bar（stat=“identity”）
。一般规则是，当值已经存在于数据中时，使用
geom_col（）
，就像它们存在于数据中一样。此外，为什么不在可视化时间序列数据时使用
geom_line（）
？另一个问题似乎是你想用周日作为一周的开始。默认情况下，
scale\u x\u date（）
的
date\u breaks=“1周”
使用星期一作为一周的开始，因此
2019-02-18
（星期一）将是第一个标签，除非您使用自定义比例。