我用我的数据做了类似的事情,但是尽管透明度很高,但很难看到这些片段(我的数据的片段数比下面的例子少得多)才能看到它们的开头和结尾.

require(ggplot2)
ggplot(iris, aes(x = Petal.Length, xend = Petal.Width,
                 y = factor(Species), yend = factor(Species),
                 size = Sepal.Length)) +
    geom_segment(alpha = 0.05) + 
    geom_point(aes(shape = Species))

碰到这个解决方案,但线条交叉.有没有办法让抖动产生与尖端点的平行线？我试过position_dodge而不是position_jitter,但它需要ymax.可以ymax集成在一起使用geom_segment吗？

ggplot(iris, aes(x = Petal.Length, xend = Petal.Width,
                 y = factor(Species), yend = factor(Species))) +
    geom_segment(position = position_jitter(height = 0.25))+
    geom_point(aes(size = Sepal.Length, shape = Species))

我已经尝试了一段时间来寻找修复程序，但是基本上我想知道是否存在一种快速的方法来“躲避” ggplot2中两个不同数据集的线图。

我的代码当前为：

#Example data
id <- c("A","A")
var <- c(1,10)
id_num <- c(1,1)
df1 <- data.frame(id,var,id_num)

id <- c("A","A")
var <- c(1,15)
id_num <- c(0.9,0.9)
df2 <- data.frame(id,var,id_num)


#Attempted plot
dodge <- position_dodge(width=0.5)
p<- ggplot(data= df1, aes(x=var, y=id))  +
  geom_line(aes(colour="Group 1"),position="dodge") + 
  geom_line(data= df2,aes(x=var, y=id,colour="Group 2"),position="dodge") +
  scale_color_manual("",values=c("salmon","skyblue2"))
p

产生：

在这里，“组2”行隐藏了所有“组1”行，这不是我想要的。相反，我希望“组2”行位于“组1”行之下。我环顾四周，发现了上一篇文章：ggplot2 offset散点图点，但是当使用单独的数据帧时，我似乎无法适应该代码以使两条geom_lines相互闪避。

我一直在将我的y变量转换为数值，并略微偏移它们以获得所需的输出，但是我想知道是否存在使用ggplot的闪避功能或其他方法获得相同结果的更快/更简便的方法。

我围绕代码的工作很简单：

p<- ggplot(data= df1, aes(x=var, y=id_num))  +
  geom_line(aes(colour="Group 1")) + 
  geom_line(data= df2,aes(x=var, y=id_num,colour="Group 2")) +
  scale_color_manual("",values=c("salmon","skyblue2")) + 
  scale_y_continuous(lim=c(0,1))
p

给我我想要的输出：

所需的输出：

当我尝试扩展数字方法以适合实际数据时，数字方法可能会有些麻烦。我必须将y值转换为因数，将其更改为数值，然后将值合并到第二个数据集，因此更快捷的方法是可取的。在此先感谢您的帮助！