geom_jitter中的垂直闪避

Question

我有一个类似ethogram的ggplot，我绘制了一个因子quadrant（1到4）的值，它是为电影的每一帧（frameID）绘制的。颜色由被跟踪的3只动物给出。

我对图表非常满意，但即使使用alpha，点数也很难看到。我想知道如何以一种不会破坏情节的方式添加position_dodge。

ggplot(dataframe) ,
         aes(frameID, quadrant, color=animal)) +
    geom_jitter(alpha=0.5) +
    scale_color_manual(values =  c("#1334C1","#84F619", "#F43900")) + 
    theme_classic()+ 
    theme(legend.position = 'none')

此链接提供了有关使用geom_point躲避的有用信息。 R: How to spread (jitter) points with respect to the x axis?

我可以用高度改为geom_point，这有效但产生了一些可怕的东西。

+ geom_point(position = position_jitter(w = 0, h = 2))

更新

数据存在于GitHub中

降低alpha值或改变大小有助于在重新缩放图像时增加麻烦。

https://github.com/matiasandina/MLA2_Tracking/blob/master/demo_data/sample_data.csv