主页 / coding / 问题 / 79217346
Accepted
Breeze
Asked: 2024-11-23 15:22:54 +0800 CST

ggplot：stat_contour_filled 与 ggpattern 结合，根据特定条件进行区域填充

  • 772

例如，我想使用 ggpattern 的条纹来填充值大于 50 的区域。但是 breaks 参数（可能是我的问题）无法达到我想要的结果。

library(tidyverse)

d <- expand.grid(x = 1:10 ,y=1:10)
d$value <- 1:100

# The target area is concentrated in the upper right corner
ggplot(data = d,aes(x = x,y = y,fill = value))+
  geom_tile()

ggplot(d)+
  stat_contour_filled(aes(x = x, y = y, z = value),
                      breaks = c(-Inf, 50, Inf),
                      geom = ggpattern::GeomPolygonPattern, 
                      pattern_angle = 60,
                      fill = 'transparent', color = NA,
                      pattern = 'stripe',
                      pattern_fill = 'black',
                      pattern_density = 0.001,
                      pattern_spacing = 0.03,
                      pattern_size = 0.3) +
  scale_pattern_manual(values = c(NA,'stripe'))

或者

ggplot(d)+
  stat_contour_filled(aes(x = x, y = y, z = value>50),
                      geom = ggpattern::GeomPolygonPattern, 
                      pattern_angle = 60,
                      fill = 'transparent', color = NA,
                      pattern = 'stripe',
                      pattern_fill = 'black',
                      pattern_density = 0.001,
                      pattern_spacing = 0.03,
                      pattern_size = 0.3)

结果： 在此处输入图片描述

1 个回答

  1. Best Answer

    您想将pattern美学映射到变量，因此需要将其移动到aes()函数内部：

    ggplot(d) +
    stat_contour_filled(
        aes(
            x = x,
            y = y,
            z = value,
            pattern = value > 50 # this is new
        ),
        breaks = c(-Inf, 50, Inf),
        geom = ggpattern::GeomPolygonPattern,
        pattern_angle = 60,
        # removed pattern = 'stripe' from here
        fill = "transparent", color = NA,
        pattern_fill = "black",
        pattern_density = 0.001,
        pattern_spacing = 0.03,
        pattern_size = 0.3
    ) +
    scale_pattern_manual(values = c(NA, "stripe")) +
    theme(legend.position = "none")

    用图案进行绘图

    ggpattern关于选项的说明

    这对我来说运行良好，但对于 OP 返回了错误：

    Error in check_numeric_scalar(width, "width") : 
  width must be a numeric scalar

    这似乎与R 4.1 中引入的ggpattern 选项有关，因为我可以通过设置来重现它options(ggpattern_use_R4.1_gradients = FALSE, ggpattern_use_R4.1_masks = FALSE)。

    以下选项解决了该错误：

    options(
    ggpattern_use_R4.1_gradients = TRUE,
    ggpattern_use_R4.1_masks = TRUE,
    ggpattern_geometry_funcs = NULL,
    ggpattern_res = NULL,
    ggpattern_use_R4.1_clipping = NULL,
    ggpattern_use_R4.1_patterns = NULL
)
    • 1

相关问题