ggplot2에서 산점도 영역 주위에 깔끔한 다각형을 그리는 방법 [닫기]

산점도의 점 그룹 주위에 깔끔한 다각형을 어떻게 추가합니까? ggplot2를 사용하고 있지만의 결과에 실망합니다 geom_polygon.

데이터 세트는 탭으로 구분 된 텍스트 파일로 존재 합니다. 아래 그래프는 여러 국가에서 건강과 실업에 대한 두 가지 태도 측정치를 보여줍니다.

나는 geom_density2d덜 공상적이지만 경험적으로 더 정확한 것으로 전환하고 싶습니다 geom_polygon. 정렬되지 않은 데이터의 결과는 도움이되지 않습니다.

최소-최대 yx 값 주위의 등고선 경로로 동작하는 '순수한'다각형을 어떻게 그리나요? 나는 쓸모없는 데이터 정렬을 시도했다.

암호:

print(fig2 <- ggplot(d, aes(man, eff, colour=issue, fill=issue)) + 
geom_point() + geom_density2d(alpha=.5) + labs(x = "Efficiency", y = "Mandate"))

d객체로 얻을 이 CSV 파일 .

해결책:

그들의 포인터에 대해 Wayne , Andy W 및 다른 사람들에게 감사합니다 ! 데이터, 코드 및 그래프가 GitHub 에 게시 되었습니다 . 결과는 다음과 같습니다.

일부 인터넷 검색을 통해 이미 Gota Morota 웹 사이트를 방문했습니다 . 아래는 데이터로 확장 된 예입니다.

library(ggplot2)
work <- "E:\\Forum_Post_Stuff\\convex_hull_ggplot2"
setwd(work)

#note you have some missing data
mydata <- read.table(file = "emD71JT5.txt",header = TRUE, fill = TRUE)
nomissing <- na.omit(mydata) #chull function does not work with missing data

#getting the convex hull of each unique point set
df <- nomissing
find_hull <- function(df) df[chull(df$eff, df$man), ]
hulls <- ddply(df, "issue", find_hull)

plot <- ggplot(data = nomissing, aes(x = eff, y = man, colour=issue, fill = issue)) +
geom_point() + 
geom_polygon(data = hulls, alpha = 0.5) +
labs(x = "Efficiency", y = "Mandate")
plot

문제를 이해하면 health및의 볼록 껍질을 찾고있는 것 입니다 unemployment. R에서 이것을 수행하기위한 여러 패키지가있을 수 있습니다 geometry. 점 주위가 순서대로 정렬되어 있다고 생각하지만 확인해야합니다.

편집 : 여기에을 사용하지 않는 예제가 ggplot있지만 유용하기를 바랍니다. chull설명서 의 예제 가 잘못된 것 같습니다.

X <- matrix(rnorm(2000), ncol = 2)
X.chull <- chull (X)
X.chull <- c(X.chull, X.chull[1])
plot (X)
lines (X[X.chull,])

편집 2 : OK, 여기 ggplot2를 사용하는 것이 있습니다. 우리는 설정 X에 data.frame변수 x와 y. 그때:

library(ggplot2)
X <- as.data.frame(X)
hull <- chull(X)
hull <- c(hull, hull[1])
ggplot(X, aes(x=x, y=y)) + geom_polygon(data=X[hull,], fill="red") + geom_point()

(가) 있습니다 geom_point데이터 (사용하고 X나는 그것을 무시하고있어 동안 ggplot에서) 및 AES를 geom_polygon.

그것을 완전히 얻으려면 두 문제의 선체에 x와 y를 넣고 bar에 세 번째 열 issue을 사용하여 문제 를 구분해야합니다.

오늘 오후부터 chullR 패키지 안에 함수를 함수로 래핑했습니다 geom_convexhull.

패키지가로드되면 다른 지오메트리로 사용할 수 있습니다.

ggplot(d, aes(man, eff, colour=issue, fill=issue)) + 
  geom_convexhull(alpha=.5) + 
  geom_point() + 
  labs(x = "Efficiency", y = "Mandate"))

패키지는 github에서 사용할 수 있습니다 : https://github.com/cmartin/ggConvexHull