r - 如何在其中一个方面添加一条线？

Question

ggplot(all, aes(x=area, y=nq)) +
  geom_point(size=0.5) +
  geom_abline(data = levelnew, aes(intercept=log10(exp(interceptmax)), slope=fslope)) + #shifted regression line
  scale_y_log10(labels = function(y) format(y, scientific = FALSE)) + 
  scale_x_log10(labels = function(x) format(x, scientific = FALSE)) + 
  facet_wrap(~levels) +
  theme_bw() +
  theme(panel.grid.major = element_line(colour = "#808080"))

我得到这个数字



现在，我要向其中一个构面添加一个geom_line。基本上，我只想在主面板中有一条虚线（说x = 10,000）。我怎样才能做到这一点？

Answer 1

我没有您的数据，所以我做了一些：

df <- data.frame(x=rnorm(100),y=rnorm(100),z=rep(letters[1:4],each=25))

ggplot(df,aes(x,y)) +
  geom_point() +
  theme_bw() +
  facet_wrap(~z)

要在 x = 1处添加垂直线，我们可以将 geom_vline()与具有相同构面变量（在我的情况下为 z='b'，但您将为 levels='major'）的数据框一起使用：

ggplot(df,aes(x,y)) +
  geom_point() +
  theme_bw() +
  facet_wrap(~z) +
  geom_vline(data = data.frame(xint=1,z="b"), aes(xintercept = xint), linetype = "dotted")