geom_segments를 지터/닷지 (zitter/dodge)하여 병렬로 유지하는 방법은 무엇입니까?

Question

내 데이터로 이와 같은 작업을했는데 투명성에도 불구하고 세그먼트의 시작과 끝을보기 위해 세그먼트를 시각화하기가 어렵습니다 (내 데이터의 세그먼트 수가 아래 예보다 많습니다).

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_jitter 대신 position_dodge을 시도했지만 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)) 

Answer 1

내가 아는 한 geom_segment은 지터 링이나 피할 수 없습니다. 데이터 프레임의 관련 변수에 jittering을 추가 한 다음 jittered 변수를 플롯 할 수 있습니다. 귀하의 예에서는 요소가 숫자로 변환 된 후 계수 레벨의 레이블이 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)) 

하지만 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()