Início / coding / Perguntas / 79586116
Accepted
Bogaso
Asked: 2025-04-22 17:42:50 +0800 CST

Aplique cores diferentes para diferentes marcas de escala no ggplot

  • 772

Estou tentando criar um ggolot onde as cores das x-axismarcas de seleção seriam diferentes. Abaixo está meu código, baseado em outra publicação: https://stackoverflow.com/a/24078744/1867328

library(ggplot2) 
ggplot(data.frame(name=c("apple", "orange", "plum"),value=c(3,8,2),outlier=c(FALSE,TRUE,FALSE))) +
geom_point(aes(x=value,y=name)) +
theme(axis.text.y = element_text(ifelse(outlier, 'red', 'green')))

Com esse código estou recebendo erro como

Error: object 'outlier' not found

Entendo que esse erro é da linha

element_text(ifelse(outlier, 'red', 'green'))

No entanto, com base no estilo de codificação existente, não quero definir dados externamente. Existe alguma maneira de a função element_text()acessar os dados definidos internamente ggplote usar a coluna outlier?

Obrigado pela sua dica.

1 respostas

  1. Best Answer

    Movendo meu comentário para uma resposta. Não há suporte até onde eu sei, mas você pode usar uma solução alternativa.

    Isso só deve ser feito se cada valor y tiver uma marca de seleção no eixo y correspondente! Mesmo assim, não é uma prática recomendada fornecer entradas vetorizadas para elem_text(): Entradas vetorizadas para element_text()não são oficialmente suportadas. ℹ Os resultados podem ser inesperados ou podem mudar em versões futuras do ggplot2.

    (1) - usando um pipe magrittr conforme descrito aqui e aplicando estilos de tema ao gráfico com base nos dados fornecidos.

    library(dplyr)
library(ggplot2)
data.frame(name=c("apple", "orange", "plum"), value=c(3,8,2), outlier=c(FALSE,TRUE,FALSE)) %>%
{   
  p <- ggplot(., aes(x = value, y = name)) + geom_point()
  p$theme$axis.text.y <- element_text(colour = ifelse(.$outlier, "red", "green")) # text-col
  p$theme$axis.ticks.y = element_line(color = ifelse(.$outlier, "red", "green")) # tick-col
  p
}

    dando

    fora

    ou (2) usando um local({...})wrapper e definindo um data.framee plotdentro

    local({
  d <- data.frame(name=c("apple", "orange", "plum"), value=c(3,8,2), outlier=c(FALSE,TRUE,FALSE))
  ggplot(d, aes(x=value, y=name)) +
    geom_point() +
    theme(axis.text.y = element_text(color = ifelse(d$outlier, "red", "green")),
          axis.ticks.y = element_line(color = ifelse(d$outlier, "red", "green")))
})
    • 2

relate perguntas