R 在ggplot中，scale_x_date使绘图从四月开始，而不是一月

我目前正在

ggplot2

中创建时间趋势图。我使用了

scale\u x\u date（）

函数来创建6个月的

date\u分段

，并每6个月给它们贴上标签，但图形x轴从4月开始，而不是1月

library(lubridate)
library(stats)
library(ggplot2)

dates <- seq.Date(mdy("01-01-2013"), mdy("01-01-2017"), by = "month")
value <- rnorm(length(dates))
data <- cbind.data.frame(dates, value)

plot <- ggplot(data, aes(x = dates, y = value)) +
  geom_point() +
  scale_x_date(date_breaks = "6 months",
               date_labels = "%b\n%Y")

但结果是：

---

请告知

在代码中，日期和日期之间存在错误。那么这个呢：

ggplot(data, aes(x = cdates, y = value)) +
   geom_point() +
 scale_x_date(breaks = seq(as.Date("2013-01-01"), as.Date("2017-01-01"), by="6 months"), date_labels = "%b\n%Y")

---

在代码中，日期和日期之间存在错误。那么这个呢：

ggplot(data, aes(x = cdates, y = value)) +
   geom_point() +
 scale_x_date(breaks = seq(as.Date("2013-01-01"), as.Date("2017-01-01"), by="6 months"), date_labels = "%b\n%Y")

---

请提供一个可复制的示例。当有人要求提供可复制的示例时，这意味着要复制样本数据和您正在使用的代码，以便可以复制错误，这样就不可能得到您面临的相同问题欢迎使用StackOverflow。为了提出更好的问题，请阅读和。@MLavoie这里是一个例子。@AlejandroAndrade这里是一个例子！请提供一个可复制的示例。当有人要求提供可复制的示例时，这意味着要复制样本数据和您正在使用的代码，以便可以复制错误，这样就不可能得到您面临的相同问题欢迎使用StackOverflow。为了提出更好的问题，请阅读和。@MLavoie这里是一个例子。@AlejandroAndrade这里是一个例子！我道歉。“cdates”中的“c”一定是文章中的错别字。结果是固定的！我道歉。“cdates”中的“c”一定是文章中的错别字。结果是固定的！