将分组的geom_vline添加到多个方面

Question

我正在尝试添加应该特定于每个绘图方面的垂直线。我试图通过将绘图数据分组的相同过程对geom_vline数据进行分组来尝试这样做。垂直数据来自与点不同的数据帧。下面的代码就是我所拥有的。

plots <-
  dd %>%
   ggplot(aes(Date, TDS)) +
    theme_bw() +
    geom_point(aes(group = Well, color = Well), size = 1) +
    ggtitle(paste("WMA A-AX TDS")) +
    ylab("mg/L") +
    geom_smooth(aes(group= Well), method = "loess", color = "black",  se = FALSE) +
    geom_vline(data = cpdates, aes(group = Well_LOC, xintercept=as.numeric(CPT_DATE)), color ="blue", lwd=0.5, lty=1) +
    facet_grid(Well~.)

但是，此代码不会对geom_vline数据进行分组，而是将所有行放在所有方面中。分组适用于点和LOESS线，为什么不是vlines呢？

我已经尝试了很多东西来解决这个问题，但没有任何作用。任何和所有建议将不胜感激。

Answer 1

Facets不会使用群体美学。情节在Well上有分面，因此cpdates需要Well变量。

这是一些虚拟数据，用于重现有问题的情节。

library('ggplot2')
library('dplyr')

cpdates <- data.frame(
  Well_LOC = c(4, 5, 6, 8),
  CPT_DATE = c(1, 2, 3,4))

dd <- data.frame(
  Date = mpg$displ,
  TDS = mpg$cty,
  Well = mpg$cyl)


dd %>%
 ggplot(aes(Date, TDS)) +
  theme_bw() +
  geom_point(aes(group = Well, color = Well), size = 1) +
  ggtitle(paste("WMA A-AX TDS")) +
  ylab("mg/L") +
  geom_smooth(aes(group = Well), method = "loess", color = "black",  se = FALSE) +
  geom_vline(data = cpdates, aes(group = Well_LOC, xintercept=as.numeric(CPT_DATE)), color ="blue", lwd=0.5, lty=1) +
  facet_grid(Well~.)

将Well添加到cpdates可解决问题。我们也可以摆脱group审美。

cpdates$Well = cpdates$Well_LOC

dd %>%
 ggplot(aes(Date, TDS)) +
  theme_bw() +
  geom_point(aes(group = Well, color = Well), size = 1) +
  ggtitle(paste("WMA A-AX TDS")) +
  ylab("mg/L") +
  geom_smooth(method = "loess", color = "black",  se = FALSE) +
  geom_vline(data = cpdates, aes(xintercept=as.numeric(CPT_DATE)), color ="blue", lwd=0.5, lty=1) +
  facet_grid(Well~.)