Как дрожать /dodge geom_segments, чтобы они оставались параллельными?

Я сделал что-то подобное с моими данными, но, несмотря на прозрачность, сегменты трудно представить (мои данные имеют намного меньшее количество сегментов, чем пример ниже), чтобы увидеть их начало и конец.

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))

ОТВЕТЫ

Ответ 1

Насколько я знаю, geom_segment не позволяет дрожать и не уклоняться. Вы можете добавить дрожание в соответствующую переменную в фрейме данных, а затем нарисовать дрожащую переменную. В вашем примере коэффициент преобразуется в числовой, затем метки для уровней фактора добавляются к оси с помощью scale_y_continuous.

library(ggplot2)
iris$JitterSpecies <- ave(as.numeric(iris$Species), iris$Species, 
   FUN = function(x) x + rnorm(length(x), sd = .1))

ggplot(iris, aes(x = Petal.Length, xend = Petal.Width,
                 y = JitterSpecies, yend = JitterSpecies)) +
    geom_segment()+
    geom_point(aes(size=Sepal.Length, shape=Species)) +
    scale_y_continuous("Species", breaks = c(1,2,3), labels = levels(iris$Species))

enter image description here

Но кажется, что geom_linerange позволяет уклонение.

ggplot(iris, aes(y = Petal.Length, ymin = Petal.Width,
                 x = Species, ymax = Petal.Length, group = row.names(iris))) +
       geom_point(position = position_dodge(.5)) +
     geom_linerange(position = position_dodge(.5)) +
     coord_flip()

enter image description here