Ggplot2 içindeki scatterplot bölgelerinin etrafına düzgün çokgenler nasıl çizilir [kapalı]

Bir dağılım grafiğindeki nokta grubunun etrafına düzgün bir çokgen nasıl eklerim? Ggplot2 kullanıyorum ama sonuçları ile hayal kırıklığına uğradım geom_polygon.

Veri kümesi orada , sekmeyle ayrılmış bir metin dosyası olarak var. Aşağıdaki grafik, birçok ülkede sağlık ve işsizliğe yönelik iki tutum ölçüsünü göstermektedir:

Daha geom_density2daz fantaziye geçmek istiyorum ama ampirik olarak daha doğru geom_polygon. Sıralanmamış verilerdeki sonuç yararsızdır:

Min-max yx değerlerinin etrafına kontur yolu gibi davranan 'düzgün' çokgenleri nasıl çizerim? Verileri boşuna sıralamaya çalıştım.

Kod:

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

dNesne ile elde edilir Bu CSV dosyası .

Çözüm:

Sayesinde Wayne , Andy W onların göstericiler için ve diğerleri! Veri, kod ve grafikler GitHub'a gönderildi . Sonuç şöyle görünür:

Bazı googling ile Gota Morota'nın web sitesine rastladım, bunu zaten web sitesinde yapıyor . Aşağıda verilerinize verilen bu örnek verilmiştir.

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

Sorununu anlamak, dışbükey gövde aradığınız healthve unemployment. Bunu yapmak için, muhtemelen biri paket olan R'de birkaç paket vardır geometry. Noktaların çevreye göre sıralandığını hayal ediyorum ama bunu kontrol etmeniz gerekecek.

EDIT: İşte kullanmayan bir örnek ggplot, ama umarım faydalıdır. chullBelgelerdeki örnek yanlış görünüyor, bu da sizi atıyor olabilir:

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 EDIT: Tamam, işte ggplot2 kullanarak bir şey. Biz çevirmek Xbir içine data.framedeğişkenlerle xve y. Sonra:

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

O Not geom_pointverilerini (kullanıyor Xben bunu geçersiz kılma yerken, ggplot itibaren) ve aes geom_polygon.

Tam olarak elde etmek için, her iki sayının da gövdesine göre x ve y değerlerini koymanız ve bunları ayırt etmek bariçin üçüncü bir sütun issuekullanmanız gerekir.

Bu öğleden sonra, chullişlevi bir R paketinin içine işlev olarak geom_convexhullsardım.

Paket yüklendikten sonra, başka bir coğrafya olarak kullanılabilir, sizin durumunuzda şöyle bir şey olmalı:

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

Paket github'da mevcuttur: https://github.com/cmartin/ggConvexHull