R x轴上的日期标签错误对齐一个月

给出如下数据帧：

df <- structure(list(date = structure(c(1L, 5L, 6L, 7L, 8L, 9L, 10L, 
11L, 12L, 2L, 3L, 4L, 13L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 
24L, 14L, 15L, 16L, 25L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 
26L, 27L, 28L), .Label = c("2010/1/31", "2010/10/31", "2010/11/30", 
"2010/12/31", "2010/2/28", "2010/3/31", "2010/4/30", "2010/5/31", 
"2010/6/30", "2010/7/31", "2010/8/31", "2010/9/30", "2011/1/31", 
"2011/10/31", "2011/11/30", "2011/12/31", "2011/2/28", "2011/3/31", 
"2011/4/30", "2011/5/31", "2011/6/30", "2011/7/31", "2011/8/31", 
"2011/9/30", "2012/1/31", "2012/10/31", "2012/11/30", "2012/12/31", 
"2012/2/29", "2012/3/31", "2012/4/30", "2012/5/31", "2012/6/30", 
"2012/7/31", "2012/8/31", "2012/9/30"), class = "factor"), pct = c(14, 
17.9, 17.9, 18.1, 18.2, 18.2, 18.2, 18.2, 18.3, 18.3, 18.4, 18.8, 
19.9, 15.8, 16.34, 16.5, 16.6, 16.8, 16.8, 16.9, 17, 17, 17, 
18.5, 13.1, 14.7, 14.8, 14.7, 14.5, 14.4, 14.2, 14.1, 14.1, 14.1, 
14.2, 14.5), values = c(12718.1, 25052.3, 36374, 47884.4, 60339.5, 
72669.4, 84922.2, 97492, 111028.5, 125313.3, 139224.2, 154553.7, 
15249, 29018.1, 42921.8, 56570.8, 71267.6, 85832.7, 100240.7, 
114945.7, 130810.8, 147357.2, 163486.1, 181225.8, 17222.1, 33668.6, 
49318.8, 64921.9, 81636.7, 98221.6, 114536.5, 131195.4, 149422, 
168355.8, 186832.5, 207166.7)), class = "data.frame", row.names = c(NA, 
-36L))

---

df当您在
scale\u x\u date
中手动设置限制时，
geom\u bar
和
geom\u point
之间的装箱方式似乎有所不同。或许可以忽略这一点：

library(ggplot2)
library(scales)
coeff = 1/10000
ggplot(data = df, aes(x = as.Date(date, format = "%Y/%m/%d"))) +
  geom_bar(aes(y = values), alpha = 0.5, stat = 'identity', fill = "#F8766D") +
  geom_point(aes(y = pct * 1/coeff), size = 3, color = "#F8766D") +
  scale_y_continuous(name = "$", sec.axis = sec_axis(~.*coeff, name = "%")) +
  scale_x_date(date_breaks= "6 months", date_labels = "%Y-%m", name = "date")


条形图显示为“关闭”的原因是，条形图实际上是在断裂之前稍微绘制的。这是一个放大版：


另一种方法是使用
zoo
软件包中的
yearmon
格式：

library(zoo)
coeff = 1/10000
ggplot(data = df, aes(x = as.yearmon(date, format = "%Y/%m/%d"))) +
  geom_bar(aes(y = values), alpha = 0.5, stat = 'identity', fill = "#F8766D") +
  geom_point(aes(y = pct * 1/coeff), size = 3, color = "#F8766D") +
  scale_y_continuous(name = "$", sec.axis = sec_axis(~.*coeff, name = "%")) +
  scale_x_yearmon(format = "%Y-%m", name = "date")

我不确定你是否注意到了。在OP中，
limits=c（min（df$date），max（df$date））
可能删除了条形图上的两个观察值，第一个月和最后一个月

我在3年内生成了一个从1月到36月的标记，以显示问题：

df_m_x$month = c(1:36)
ggplot() +
  geom_bar(data = df_m_x,  aes(x = date, y = value, fill = variable, group = 1), alpha = 0.5, stat = 'identity') +
  geom_point(data = df_m_ratio_x,  aes(x = date, y = value, col = variable), size = 3) +
  scale_y_continuous(name = "$", sec.axis = sec_axis(~.*coeff, name = "%")) +
  scale_x_date(
    limits = c(min(df$date), max(df$date)), 
    breaks = date_breaks("6 months"), date_labels = "%Y-%m") +
  geom_smooth(method="lm")  +
  geom_text(data= df_m_x, aes(x = date, y = value, label = month))


删除限制…

ggplot() +
  geom_bar(data = df_m_x,  aes(x = date, y = value, fill = variable, group = 1), alpha = 0.5, stat = 'identity') +
  geom_point(data = df_m_ratio_x,  aes(x = date, y = value, col = variable), size = 3) +
  scale_y_continuous(name = "$", sec.axis = sec_axis(~.*coeff, name = "%")) +
  scale_x_date(
  #  limits = c(min(df$date), max(df$date)), 
    breaks = date_breaks("6 months"), date_labels = "%Y-%m") +
  geom_smooth(method="lm")  +
  geom_text(data= df_m_x, aes(x = date, y = value, label = month))

---

谢谢，我添加了

geom_线（data=df_m_比值x，aes（x=date，y=value，linetype=variable，col=variable），alpha=1，size=1.5）

来平滑这条线，但它似乎不起作用。很抱歉，我认为这张图仍然有错误，

2020-05

应该由

2020-04

发短信吗？你怎么看？我编辑了一篇文章，解释了为什么它是“关闭”的，并提供了一个替代方案。我们是否可以控制标签的数量，我用我的真实数据尝试过，标签每年显示，

2010-01，2011-01，…

，如何每半年显示一次？有一个参数

n

到

scale\u x\u yearmon

指示要生成的中断数，您可以尝试更改它。否则，您可以使用

scale\u x\u continuous

手动指定对象。

ggplot() +
  geom_bar(data = df_m_x,  aes(x = date, y = value, fill = variable, group = 1), alpha = 0.5, stat = 'identity') +
  geom_point(data = df_m_ratio_x,  aes(x = date, y = value, col = variable), size = 3) +
  scale_y_continuous(name = "$", sec.axis = sec_axis(~.*coeff, name = "%")) +
  scale_x_date(
  #  limits = c(min(df$date), max(df$date)), 
    breaks = date_breaks("6 months"), date_labels = "%Y-%m") +
  geom_smooth(method="lm")  +
  geom_text(data= df_m_x, aes(x = date, y = value, label = month))