ti-enxame.com

criar boxplots com cor transparente ggplot2

Crio um gráfico com vários grupos e traço um geom_boxplot () sobre um conjunto de linhas. No entanto, seria bom colorir as caixas de forma transparente para que as linhas possam ser vistas.

Aqui estão alguns dados de amostra:

x11()

name <- c("a", "a", "a", "a", "a", "a","a", "a", "a", "b", "b", "b","b", "b", "b","b", "b", "b")
class <- c("c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3","c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3")
year <- c("2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008")
value <- c(100, 33, 80, 90, 80, 100, 100, 90, 80, 90, 80, 100, 100, 90, 80, 99, 80, 100)

df <- data.frame(name, class, year, value)
df

Eu desenho o gráfico com:

p1 <- ggplot(df, aes(year, value))
p1 <- p1 + geom_line(aes(group=name, size=name),colour="#ff2300",alpha=0.5) +     facet_wrap(~ class, scales = "free_y") 
p1 <- p1 + geom_boxplot(aes(group=name))
print(p1)

E no meu sistema, a largura da linha na legenda não é exibida corretamente. Estou fazendo algo errado? Desde já, obrigado!

18
Seb

Você pode adicionar o argumento alpha ao seu boxplot. Por exemplo:

geom_boxplot(aes(group=name), alpha = 0.8)

darei à você

enter image description here

29
Roman Luštrik

Mude a ordem dos geoms para desenhar o boxplot primeiro e depois as linhas. No entanto, não acho que seu gráfico faça sentido. Por que você está usando o nome para alterar o tamanho da linha? Não faria mais sentido alterar o tipo de linha? E eu desaconselho free_y nas facetas, uma vez que torna difícil comparar.

name <- c("a", "a", "a", "a", "a", "a","a", "a", "a", "b", "b", "b","b", "b", "b","b", "b", "b")
class <- c("c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3","c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3")
year <- c("2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008")
value <- c(100, 33, 80, 90, 80, 100, 100, 90, 80, 90, 80, 100, 100, 90, 80, 99, 80, 100)

df <- data.frame(name, class, year, value)
df
library(ggplot2)
p1 <- ggplot(df, aes(year, value))
p1 <- p1 + geom_boxplot(aes(group=name)) + geom_line(aes(group=name, size=name),colour="#ff2300",alpha=0.5) + 
  facet_wrap(~ class, scales = "free_y")
5
Luciano Selzer