R의지도에서 점 과도 플로팅 (예 : ggplot2)-점을 측면으로 밀고, 원래 위치를 표시하고, 근접 점을 결합하는 방법…?

언어, 경도 및 위도 및 기능 값 (카테고리 1, 카테고리 2 또는 둘 다-플롯에서 각각 빨강, 파랑 및 녹색으로 표시됨)이 포함 된 데이터베이스가 있습니다. 언어 당 최대 3 개의 지점이있을 수 있으며 자연스럽게 두 개의 언어 지점이 서로 매우 가까이있을 수 있습니다.

    name            longitude   latitude    sp_sum
1   Modern Armenian 45          40          both
2   Modern Armenian 45          40          both
3   Modern Armenian 45          40          spatial
4   Dieri           138         -28.1667    both
5   Dieri           138         -28.1667    both
6   Finnish         25.5577     64.7628     non-spatial
7   Crimean Tatar   28.1418     43.8398     spatial
8   Ese Ejja        -67.515     -11.7268    non-spatial
9   Makhuwa         38.8052     -14.8509    non-spatial
...

나는 R 패키지 ggplot2를 사용하고 있습니다 (가장 익숙한 것이므로 계속 사용하게되어 기쁘지만 다른 솔루션도 환영합니다). 다음은 이전 시도에서 얻은 작물입니다 (코드 : ¹ 참조 ).

모든 시점에서 나는 (거칠게) 위치뿐만 아니라 가치가 여전히 보이기를 원합니다. (단일 언어에 대해 여러 포인트가있는 경우 결합 될 수 있습니다.)

방법이 있습니까?

• ... 오버 플로팅이 없도록 포인트를 측면으로 충분히 옮기는 것 (geom_jitter를 사용하는 것보다 무작위로 적음- 예를 들어 beeswarm 패키지 에는 많은 종류의 회피 가 있습니다 )?
• ... 그리고 / 또는 포인트를 이동해야 할 경우 원래 위치를 가리키는 일종의 "라인"이 있어야합니까?
• ... 또는 근접 지점을 여전히 명확한 방식으로 결합하려면 (비닝을 사용하는 작동 기술이있을 수 있습니다 (예 : stat_bin * 또는 유사한 효과가있는 것))?

• ... 나 아직 PDF 파일에 포함 할 수있는 웹 사이트에서 본 것과 같은 "대화 형 플롯"을 만들기 위해 (내가 좋아하는 패키지의 능력에 대해도 생각하고 애니메이션 과 반짝 여기에)? 예를 들어, wals.info 에서 다음과 같습니다 .

  

이전 게시물에서 directlabels 패키지가 레이블을 이동할 수 있다는 것을 알고 있지만 포인트를 이동시키는 방법을 찾지 못했습니다.

설명을 요청하십시오.

참고 : 과도 플로팅에 대해 여러 가지 질문이 있다는 것을 알고 있지만 모두 살펴본 내용은 다른 (예 : 통계적) 목적을 가진 것으로 보입니다 ( 모두 읽지 않았다고 주장 하므로 d) 물론 링크를 받아도 기쁘다). 나는 내가 알고 있고 관련성이 높은 게시물을 나열하려고 노력할 것입니다.

• stats.SE : R 플롯에서 레이블이 겹치지 않게하려면 어떻게합니까?
• SO : ggmap에서 동적 데이터 포인트 레이블 위치

¹ 다음 코드 줄은 위에서 자르기를 만들었습니다.

library(OpenStreetMap)
library(ggplot2)

data <- read.csv(header = T, sep = ",", dec = ".", quote= "'",
text = "'','name','longitude','latitude','sp_sum'
'1','Modern Armenian',45,40,'both'
'2','Modern Armenian',45,40,'both'
'3','Modern Armenian',45,40,'spatial'
'4','Dieri',138,-28.1667,'both'
'5','Dieri',138,-28.1667,'both'
'6','Finnish',25.5577,64.7628,'non-spatial'
'7','Crimean Tatar',28.1418,43.8398,'spatial'
'8','Sochiapam Chinantec',-96.6079,17.7985,'non-spatial'
'9','Ese Ejja',-67.515,-11.7268,'non-spatial'
'10','Makhuwa',38.8052,-14.8509,'non-spatial'
'11','Mualang',111.077,0.31083,'non-spatial'
'12','Martuthunira',116.607,-20.9294,'non-spatial'
'13','Evenki',108.626,53.85,'both'
'14','Afrikaans',30,-22,'both'
'15','Male (Ethiopia)',36.9892,5.91975,'both'
'16','Manchu',126.557,47.3122,'both'
'17','Dime',36.3329,6.20951,'non-spatial'
'18','Koorete',37.8679,5.80545,'non-spatial'
'19','Wolaytta',37.7537,6.32668,'both'
'20','Dizin',35.5763,6.1405,'both'")

map <- openproj(openmap(c(85, -179.9), c(-60, 179.9), zoom = 2, type = "nps"))
plot <- autoplot(map) + 
  geom_point(data = data, aes(x = longitude, y = latitude),
             color = "white", alpha = 0.8, size = 8) +
  geom_point(data = data, aes(x = longitude, y = latitude, color = sp_sum),
             alpha = 0.3, size = 4)
plot

지금까지 나는 상당히 괜찮은 해결책을 찾았습니다 .packcircles R 패키지는 다른 목적으로 설계되었을 수도 있지만 점을 서로 멀어지게하는 좋은 일을합니다 (또한 해당 블로그 게시물 참조 ). 나는이 패키지의 모든 내부 작업을 이해하지 못할 수도 있지만 다행히도 웹 사이트의 예제 파일을 거의 직접 사용할 수 있습니다. 변수 이름, 원 사이의 거리 (또는 점) , 사용하는 기능에 따라 다름) 및 그래프의 "한계"(예 : 180 °).

결국 모든 circleLayout()함수는 lon, lat 및 radius (즉, 거리) 열과 두 개의 2 숫자 xlim / ylim 벡터가있는 데이터 프레임 을 사용하는 함수로 귀착됩니다 . 포인트 위치가 개선 된 데이터 프레임을 반환합니다.

• 이 'after'맵을 질문의 'before'맵 스 니펫과 비교하십시오.

아마도 이런가요?

data$spacing_x = 5
data$spacing_y = 5

for(i in 2:nrow(data)) {
  if( abs(data$latitude[i]-data$latitude[i+1]) < 2 ) {
    data$spacing_y[i] = data$spacing_y + 6 +jitter(data$spacing_y,8)
    data$spacing_y[i+1] = data$spacing_y + 6 + jitter(data$spacing_y,8)
  }
}

for(i in 2:nrow(data)) {
     if( abs(data$longitude[i]-data$longitude[i+1]) < 2 ) {
      data$spacing_x[i] = data$spacing_x + jitter(data$spacing_x,4)
      data$spacing_x[i+1] = data$spacing_x +jitter(data$spacing_x,4)
     }
}

for(i in 2:nrow(data)) {
  if( abs(data$spacing_y[i]-data$spacing_y[i+1]) < 1.5 ) {
    data$spacing_y[i] = data$spacing_y + 2 
    data$spacing_y[i+1] = data$spacing_y + 2
  }
}

for(i in 2:nrow(data)) {
  if( abs(data$spacing_x[i]-data$spacing_x[i+1]) < 1.5 ) {
    data$spacing_x[i] = data$spacing_x + 2 
    data$spacing_x[i+1] = data$spacing_x + 2
  }
}


plot = autoplot(map) + 
  geom_segment(data = data
               , mapping=aes(x=longitude
                             , y=latitude
                             , xend=longitude + spacing_x
                             , yend=latitude + spacing_y)
               , size=0.5, color="black"
               , alpha = 0.9) +
  geom_point(data = data
             , aes(x = longitude+spacing_x
                  , y = latitude+spacing_y)
             , color = "white"
             , alpha = 0.8, size = 8) +
  geom_point(data = data
             , aes(x = longitude+spacing_x
                   , y = latitude+spacing_y
                   , color = sp_sum)
             , alpha = 0.3, size = 4)
  xlab("") +
  ylab("")
plot