如何在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中可能有几个软件包可以执行此操作，其中一个是package 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：好，这是使用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使用Xggplot中的data（）和aes时，我在中覆盖了它geom_polygon。

要完全使用它，您需要将两个问题的船体的x和y放入中bar，使用第三列issue来区分它们。

截至今天下午，我已将该chull函数包装在R包中作为geom_convexhull函数。

加载包后，就可以将其用作其他任何geom，在您的情况下，它应类似于：

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