Início / coding / Perguntas / 79217346
Accepted
Breeze
Asked: 2024-11-23 15:22:54 +0800 CST

ggplot: stat_contour_filled combinado com ggpattern para preenchimento de região com base em certas condições

  • 772

Por exemplo, quero usar as listras do ggpattern para preencher áreas com valores maiores que 50. Mas o parâmetro breaks (provavelmente meu problema) não atinge o resultado que desejo.

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'))

ou

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)

resultado: insira a descrição da imagem aqui

1 respostas

  1. Best Answer

    Você quer mapear a patternestética para uma variável, então precisa movê-la para dentro da aes()função:

    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")

    enredo com padrão

    Uma nota sobre ggpatternopções

    Isso funciona bem para mim, mas para o OP retornou o erro:

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

    Isso parece estar relacionado às ggpattern opções introduzidas no R 4.1, pois consegui reproduzi-lo definindo options(ggpattern_use_R4.1_gradients = FALSE, ggpattern_use_R4.1_masks = FALSE).

    As seguintes opções resolveram o erro:

    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

relate perguntas