geom_segment -并行躲避

Question

我遇到了一个“经典”的ggplot问题，非常类似于问题discussed here。我试着按照那里的建议来解决它，但不知何故它不起作用。

数据集为：

overall <- structure(list(organization = c("orga_arts", "orga_arts", "orga_arts", 
"orga_arts", "orga_environment", "orga_environment", "orga_environment", 
"orga_environment", "orga_humanrights", "orga_humanrights", "orga_humanrights", 
"orga_humanrights", "orga_labour", "orga_labour", "orga_labour", 
"orga_labour", "orga_neighbor", "orga_neighbor", "orga_neighbor", 
"orga_neighbor", "orga_none", "orga_none", "orga_none", "orga_none", 
"orga_others", "orga_others", "orga_others", "orga_others", "orga_party", 
"orga_party", "orga_party", "orga_party", "orga_patriotic", "orga_patriotic", 
"orga_patriotic", "orga_patriotic", "orga_religious", "orga_religious", 
"orga_religious", "orga_religious", "orga_sports", "orga_sports", 
"orga_sports", "orga_sports", "orga_welfare", "orga_welfare", 
"orga_welfare", "orga_welfare"), among_participants = c(8.5, 
8.5, 8.5, 8.5, 8.7, 8.7, 8.7, 8.7, 2.6, 2.6, 2.6, 2.6, 11.4, 
11.4, 11.4, 11.4, 5.4, 5.4, 5.4, 5.4, 49.9, 49.9, 49.9, 49.9, 
4.9, 4.9, 4.9, 4.9, 5.6, 5.6, 5.6, 5.6, 1, 1, 1, 1, 11.8, 11.8, 
11.8, 11.8, 19.1, 19.1, 19.1, 19.1, 4.4, 4.4, 4.4, 4.4), value = c(10.7, 
10.6, 11.9, 11, 12.9, 10.9, 12.8, 8.8, 4, 5.5, 5.4, 3.2, 12.3, 
10.5, 12, 14.3, 6.9, 7.8, 7.6, 6.5, 46.9, 45.3, 45.1, 47.7, 5.4, 
4.3, 5.4, 5.1, 6.5, 9, 4.5, 5.8, 0.9, 1.2, 1.2, 1.7, 13.2, 12.5, 
12, 10.5, 20.8, 17.3, 19.2, 21.5, 5.7, 5.4, 4.5, 5.4), type = c("issue_climate", 
"issue_racism", "issue_corona_eco", "issue_corona", "issue_climate", 
"issue_racism", "issue_corona_eco", "issue_corona", "issue_climate", 
"issue_racism", "issue_corona_eco", "issue_corona", "issue_climate", 
"issue_corona", "issue_corona_eco", "issue_racism", "issue_climate", 
"issue_racism", "issue_corona_eco", "issue_corona", "issue_corona_eco", 
"issue_racism", "issue_climate", "issue_corona", "issue_racism", 
"issue_climate", "issue_corona_eco", "issue_corona", "issue_climate", 
"issue_racism", "issue_corona", "issue_corona_eco", "issue_climate", 
"issue_racism", "issue_corona_eco", "issue_corona", "issue_climate", 
"issue_racism", "issue_corona_eco", "issue_corona", "issue_climate", 
"issue_racism", "issue_corona_eco", "issue_corona", "issue_climate", 
"issue_racism", "issue_corona_eco", "issue_corona")), row.names = c(NA, 
-48L), class = "data.frame")

我想做一些类似的事情：

ggplot(overall) + 
  geom_segment(aes(x = among_participants, xend = value,
                 y=organization, yend=organization, color=type),
                arrow = arrow(length = unit(0.5, "cm")),
             position=position_dodge(width=space_between_bars))

但很明显是用平行箭头。我知道我可以做geom_linerange，但是我错过了箭头，它们对于显示我心目中的图形设计的变化方向很重要。

我试着这样做：

overall$organization_dodged <- ave(as.numeric(overall$organization), overall$organization, 
   FUN = function(x) x + rnorm(length(x), sd = .1))

然后根据上面链接的问题中的建议答案，用scale_y_continuous执行geom_segment，但我无法让它工作。

我还在this thread上看到，10年前就应该有更新了。也许这发生了，我错过了一个简单的修复，我现在看不到了？

Answer 1

我敢打赌，这可以做得更优雅，但这似乎是有效的：

space_between_bars <- 0.2
overall$type_y_adj = scale(as.numeric(as.factor(overall$type))) * -space_between_bars
overall$y = as.numeric(as.factor(overall$organization)) + overall$type_y_adj

ggplot(overall) + 
  geom_segment(aes(x = among_participants, xend = value, y=y, yend=y, color=type),
               arrow = arrow(length = unit(0.1, "cm"))) +
  scale_y_continuous(breaks = 1:length(unique(overall$organization)),
                     labels = unique(overall$organization), minor_breaks = NULL)

​

​