r - 在 ggplot (R) 中的图形内创建多边形

Question

我正在尝试在我在 ggplot2 中创建的一个图表上创建一个多边形，以表示“组合场”。我知道我应该使用 geom_polygon 函数，但我无法成功输入此函数。我的图表的代码如下(少geom_polyon)。我在图表上添加了一张我想要做的事情的照片。本质上，我想在 (x = 8, y = 0.8) 和 (x = 100, y = 2) 之间创建一个多边形。非常感谢任何帮助，谢谢。

图片[1]:/image/MR8pj.png

图形脚本

ggplot(data = ZonesPd, aes(x = Pd_ppm, y = Cu.Pd)) +

geom_point(aes(color = Mineralized.Zone, size = Mineralized.Zone), alpha = 0.5) +

scale_x_log10(limit = c(1e-3, 1e3), expand = c(0, 0)) +
  scale_y_log10(limit = c(1e2, 1e5), expand = c(0, 0)) +

scale_size_manual(values = c(0.5, 0.5, 3)) +

theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.ticks.length = unit(-0.24, "cm"),
        axis.text.x = element_text(size = 15, color = "black", margin = margin(0.5, 0.5, 0.5, 0.5, 
          "cm")),
        axis.text.y = element_text(size = 15, color = "black", margin = margin(0.5, 0.5, 0.5, 0.5, 
          "cm")),
        axis.title = element_text(size = 15),
        aspect.ratio = 0.75,
        legend.position = c(0.8, 0.15),
        legend.text = element_text(size = 15),
        legend.title = element_blank())

Answer 1

正如 r2evans 在评论中建议的那样，geom_rect 是这里的方法:

library(ggplot2)

ZonesPd <- data.frame(Pd_ppm <- 10^rnorm(100), Cu.Pd <- 10^rnorm(100), 
                      Mineralized.Zone=sample(gl(5,20)))

ggplot() +
  geom_point(data = ZonesPd, aes(x = Pd_ppm, y = Cu.Pd, color = Mineralized.Zone, size = Mineralized.Zone), alpha = 0.5) +
  scale_x_log10() + scale_y_log10() +
  geom_rect(aes(xmin=8, xmax=100, ymin=0.8, ymax=8))