根据变量设置水平线的范围

由 发布于 rggplot2
 收藏

我有以下df：

aema = structure(list(MAEImprove = c(0.6262, -0.1413, -0.4477, 0.7005, 
-2.5644, 0.0087, 0.0027, 1.0048, 0.6925, -0.1582, -1.9058, 0.6909, 
0.416, -0.7901, 0.0054, 2.9682, 0.5899, 0, -2.3013, 0.0254, 1e-04, 
-0.0025, -2.0339, -0.0036, -0.0398, 0.3313, -0.0024, -0.0209, 
-0.961, -0.0022, -6.7423, 0, 0.8595, -0.6245, 0.7873, -0.4805, 
0.5182, -0.1366, 0.1799, 0.0042, 1.3768, 1.3158, 1.0448, 0.0214, 
-1.0634, -1.9322, 2.2249, 1.0547), MAE_Factor = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("aEMA", 
"pEMA", "fEMA"), class = "factor"), ParticipantNr = 1:48), row.names = c(NA, 
48L), class = "data.frame")

我产生以下情节：

ggplot(aema) +
  geom_vline(xintercept=c(0), lty=2) +  # add a dotted line at x=1 after flip

  geom_hline(aes(yintercept = participants))  +
  ylab("Participant") + xlab("Improvement aEMA") +
  theme_bw()  # use a white background

如何根据变量“ MAEImprove”为x轴上的每条水平线设置范围？每行应从0开始“开始”，并取决于MAEImprove达到其关联的负值或正值。