Cara menggambar poligon yang rapi di sekitar wilayah scatterplot di ggplot2 [ditutup]

Bagaimana cara menambahkan poligon yang rapi di sekitar sekelompok titik di sebar? Saya menggunakan ggplot2 tetapi saya kecewa dengan hasilnya geom_polygon.

Dataset ada di sana , sebagai file teks yang dibatasi tab. Grafik di bawah ini menunjukkan dua ukuran sikap terhadap kesehatan dan pengangguran di banyak negara:

Saya ingin beralih dari geom_density2dyang kurang mewah tetapi secara empiris lebih benar geom_polygon. Hasil pada data yang tidak disortir tidak membantu:

Bagaimana cara menggambar poligon 'rapi' yang berperilaku sebagai jalur kontur di sekitar nilai min-max yx? Saya mencoba menyortir data tetapi tidak berhasil.

Kode:

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

The dobjek diperoleh dengan file CSV ini .

Larutan:

Terima kasih kepada Wayne , Andy W dan yang lainnya untuk petunjuk mereka! Data, kode, dan grafik telah diposting ke GitHub . Hasilnya terlihat seperti ini:

Dengan beberapa googling saya menemukan situs web Gota Morota yang memiliki contoh melakukan hal ini di situs webnya . Di bawah ini adalah contoh yang diperluas ke data Anda.

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

Jika saya memahami masalah Anda, Anda mencari lambung cembung dari healthdan unemployment. Mungkin ada beberapa paket untuk melakukan ini di R, salah satunya adalah paket geometry. Saya akan membayangkan bahwa titik-titik diurutkan dalam urutan di sekeliling, tetapi Anda harus memeriksanya.

EDIT: Berikut ini contoh, yang tidak digunakan ggplot, tapi saya harap ini berguna. Contoh dalam chulldokumentasi tampaknya salah, yang mungkin membuat Anda tidak senang:

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

EDIT 2: OK, ini ada sesuatu yang menggunakan ggplot2. Kami berubah Xmenjadi data.framedengan variabel xdan y. Kemudian:

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

Perhatikan bahwa geom_pointini menggunakan data ( X) dan aes dari ggplot, sementara saya menimpanya di geom_polygon.

Untuk mendapatkannya sepenuhnya, Anda harus memasukkan x dan y untuk lambung untuk kedua masalah bar, menggunakan kolom ketiga issueuntuk membedakannya.

Sampai sore ini, saya telah membungkus chullfungsi di dalam paket R sebagai geom_convexhullfungsi.

Setelah paket dimuat, itu dapat digunakan sebagai geom lainnya, dalam kasus Anda harus sesuatu seperti:

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

Paket ini tersedia di github: https://github.com/cmartin/ggConvexHull