对齐不同的时间序列

Question

我正在尝试“捕获”栏中的一些点。 这些点代表3年中每月的36个值。 条形表示相同3年中每年的3个值。

如果运行代码，您会看到第一年​​的某个点可能被第二年的条形捕获，而第三年的点则“耗尽”了最后一个条形。

如何对齐条和点？

library(ggplot2)

set.seed(1)
df.year <- data.frame(yeardate = seq(as.Date("2010-01-01"), by = "year", length.out = 3), datevalue = abs(rnorm(3)))
df.month <- data.frame(monthdate = seq(as.Date("2010-01-01"), by = "month", length.out = 36), datevalue = abs(rnorm(36)))
df.month$inyear <- format(df.month$monthdate, "%Y") 

df.month
p <- ggplot()
p <- p +    geom_point(
            data = df.month
            ,aes(x = monthdate, y = datevalue, color=inyear)
        )
p <- p +    geom_bar(
            data = df.year
            ,aes(x = yeardate, y = datevalue)
            ,alpha=0.7 
            ,stat = "identity"
        )           
p + scale_x_date(labels = date_format("%Y"), breaks = date_breaks("years"))

Answer 1

geom_bar以指定的日期为中心。 由于给定的日期是一年的第一天，因此它以一年的第一天为中心，因此2012年的大部分时间都位于以2012-01-01为中心的柱线之外（大部分柱线位于2011年）。 因此，可以在年中将条形图居中：

df.year <- data.frame(yeardate = seq(as.Date("2010-07-01"), 
                                     by = "year", 
                                     length.out = 3), 
                      datevalue = abs(rnorm(3)))

这使

或以您想要的确切范围绘制矩形

df.year <- data.frame(yearstart = seq(as.Date("2010-01-01"), 
                                      by = "year", length.out = 3),
                      yearend = seq(as.Date("2010-12-31"), 
                                    by = "year", length.out = 3),
                      datevalue = abs(rnorm(3)))

并将geom_bar调用替换为

p <- p +    geom_rect(
            data = df.year
            ,aes(xmin = yearstart, xmax = yearend,
                 ymin = 0, ymax = datevalue)
            ,alpha=0.7
        )           

给予