R 如何阻止其他几何图形更改 ggplot2 中的关键 alpha

发布于08月10日

我有两张ggplot2::geom_pologon号的，里面装满了半透明的 colored颜色 . 我希望用相同的Alpha显示密钥，但它不是. 该解决方案将理想地zoom ，以便当我添加具有相同填充和Alpha colored颜色的其他多边形时，匹配保持不变.

示例代码:

chosen_alpha = 0.2
ggplot() +
    theme_minimal() +
    geom_polygon(
        aes(
            fill = "A",
            x = c(1, 2, 2),
            y = c(1, 1, 2)
        ),
        alpha = chosen_alpha
    ) +
    geom_polygon(
        aes(
            fill = "A",
            x = c(3, 4, 4),
            y = c(3, 3, 4)
        ),
        alpha = chosen_alpha
    ) +
    guides(
        fill = guide_legend(
            override.aes = list(
                alpha = chosen_alpha
            ),
        )
    )

如果我只有一个多边形，这是可行的，如下所示.

chosen_alpha = 0.2
ggplot() +
    theme_minimal() +
    geom_polygon(
        aes(
            fill = "A",
            x = c(1, 2, 2),
            y = c(1, 1, 2)
        ),
        alpha = chosen_alpha
    ) +
    guides(
        fill = guide_legend(
            override.aes = list(
                alpha = chosen_alpha
            ),
        )
    )

推荐答案

问题是，每geom个图形就会绘制一个关键的字形，也就是说，你最终会得到多层略透明的长方形，这些长方形被一层接一层地绘制，因此添加的几何图形越多，你最终得到的 colored颜色就越深.

解决问题的最干净的方法是只使用一个geom_polygon来绘制您的多边形.为此，将您的数据放在一个data.Frame中，并通过groupAES说明不同的面.

library(ggplot2)

chosen_alpha <- 0.2

dat <- data.frame(
  x = c(c(1, 2, 2), c(2, 3, 3)),
  y = c(c(1, 1, 2), c(2, 2, 3)),
  fill = "A",
  group = rep(1:2, each = 3)
)
ggplot(dat) +
  theme_minimal() +
  geom_polygon(
    aes(
      fill = fill,
      x = x,
      y = y,
      group = group
    ),
    alpha = chosen_alpha
  )

第二种 Select 是将key_glyph设置为"blank"，只有一个geom除外.这样，关键字形只绘制一次:

ggplot() +
  theme_minimal() +
  geom_polygon(
    aes(
      fill = "A",
      x = c(1, 2, 2),
      y = c(1, 1, 2)
    ),
    alpha = chosen_alpha,
    key_glyph = "blank"
  ) +
  geom_polygon(
    aes(
      fill = "A",
      x = c(2, 3, 3),
      y = c(2, 2, 3)
    ),
    alpha = chosen_alpha
  )