我只是不知道如何在两个geom_pointrange((之间添加空间。
有人能给我一个提示吗?谢谢
position_nudge
可以做到这一点。使用一些伪数据:
data.frame(expcondition = c('A', 'B'),
coefs = 6:7) %>%
ggplot(aes(expcondition, coefs)) +
geom_pointrange(aes(ymin = coefs * .9, ymax = coefs * 1.2)) +
geom_pointrange(aes(ymin = coefs * .8, ymax = coefs * 1.1), col = 'grey',
## add some horizontal shift:
position = position_nudge(x = .1)
)
旁白:正如用户krfurlong所建议的,将数据合并并转换为长格式通常有助于处理数据,而不仅仅是ggplot
。