Cách vẽ đa giác gọn gàng xung quanh các vùng phân tán trong ggplot2 [đã đóng]

Làm cách nào để thêm một đa giác gọn gàng xung quanh một nhóm điểm trên biểu đồ phân tán? Tôi đang sử dụng ggplot2 nhưng thất vọng với kết quả geom_polygon.

Bộ dữ liệu ở đằng kia , dưới dạng tệp văn bản được phân định bằng tab. Biểu đồ dưới đây cho thấy hai thước đo thái độ đối với sức khỏe và thất nghiệp ở một loạt các quốc gia:

Tôi muốn chuyển từ geom_density2dít ưa thích hơn nhưng theo kinh nghiệm chính xác hơn geom_polygon. Kết quả trên dữ liệu chưa được sắp xếp là không có ích:

Làm cách nào để tôi vẽ các đa giác 'gọn gàng' hoạt động như các đường viền xung quanh các giá trị yx tối thiểu? Tôi đã cố gắng sắp xếp dữ liệu vô ích.

Mã số:

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

Đối dtượng thu được với tệp CSV này .

Dung dịch:

Cảm ơn Wayne , Andy W và những người khác cho con trỏ của họ! Dữ liệu, mã và đồ thị đã được đăng lên GitHub . Kết quả trông như thế này:

Với một số người tôi đã tìm thấy trang web của Gota Morota, người có một ví dụ về việc này đã có trên trang web của cô ấy . Dưới đây là ví dụ mở rộng cho dữ liệu của bạn.

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

Nếu tôi hiểu vấn đề của bạn, bạn đang tìm kiếm thân tàu lồi healthvà của unemployment. Có lẽ có một số gói để làm điều này trong R, một trong số đó là gói geometry. Tôi tưởng tượng rằng các điểm được sắp xếp theo thứ tự xung quanh chu vi, nhưng bạn phải kiểm tra xem.

EDIT: Đây là một ví dụ, không sử dụng ggplot, nhưng tôi hy vọng nó hữu ích. Ví dụ trong chulltài liệu dường như sai, có thể khiến bạn thất vọng:

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, đây là một cái gì đó sử dụng ggplot2. Chúng tôi biến Xthành một data.framevới các biến xvà y. Sau đó:

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

Lưu ý rằng việc geom_pointsử dụng dữ liệu ( X) và aes từ ggplot, trong khi tôi ghi đè lên nó geom_polygon.

Để có được nó đầy đủ, bạn cần đặt x và y cho thân tàu cho cả hai vấn đề bar, sử dụng cột thứ ba issueđể phân biệt chúng.

Kể từ chiều nay, tôi đã gói chullchức năng bên trong gói R là một geom_convexhullchức năng.

Khi gói được tải, nó có thể được sử dụng như bất kỳ geom nào khác, trong trường hợp của bạn, nó sẽ giống như:

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

Gói có sẵn trên github: https://github.com/cmartin/ggConvexHull