วิธีการวาดรูปหลายเหลี่ยมเรียบร้อยรอบ ๆ ภูมิภาคกระจายใน ggplot2 [ปิด]

ฉันจะเพิ่มรูปหลายเหลี่ยมที่เรียบร้อยรอบ ๆ กลุ่มของจุดบนแผนการกระจายได้อย่างไร ฉันใช้ ggplot2 geom_polygonแต่กำลังผิดหวังกับผลของการ

ชุดข้อมูลอยู่ที่นั่นเป็นไฟล์ข้อความที่คั่นด้วยแท็บ กราฟด้านล่างแสดงให้เห็นถึงสองมาตรการของทัศนคติต่อสุขภาพและการว่างงานในหลายประเทศ:

ฉันต้องการที่จะเปลี่ยนจากgeom_density2dการแฟนซีน้อย geom_polygonแต่สังเกตุที่ถูกต้องมากขึ้น ผลลัพธ์ของข้อมูลที่ไม่เรียงลำดับนั้นไม่เป็นประโยชน์:

ฉันจะวาดรูปหลายเหลี่ยมที่ 'เรียบร้อย' ที่ทำหน้าที่เป็นเส้นทางเส้นรอบ ๆ ค่า min-max 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 ผลลัพธ์จะเป็นดังนี้:

กับบาง googling ฉันมาในเว็บไซต์ของ 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 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มีการใช้ข้อมูล ( X) และ AES จาก ggplot 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