Estou tentando reproduzir o gráfico abaixo:
No entanto, não estou conseguindo colorir o meu gráfico por meio da função pal.bands de acordo com as informações que estão na planilha abaixo:
Os dados se encontram neste link: Base de Dados
As cores no qual eu estou representando na tabela acima estão definidas abaixo por e podem ser vistas no pacote pals:
Eu preciso que cada cor esteja associada as informações que estão na planilha acima, e cada uma das cores com suas siglas respectivas interiormente ao gráfico, por exemplo:
As siglas são:
Control 0.00 Violet
Control 0.01 Violet
Control 0.02 Violet
.
.
.
Control 0.30 Green
Violet = Vi
Violet + Blue = Vi / Bl
Blue + Green = Bl / Gr
Green = Gr
Violet + Blue + Green = Vi / Bl / Gr
Abaixo estão os códigos em R, todavia, não estou conseguindo colorir por meio da função pal.bands e nem inserir a legenda interior ao gráfico:
library(RColorBrewer)
library(pals)
pal.bands(cubicyf)
dados = read.table("datagraph.csv", header=T, dec=",",sep=";")
dados$Group=as.factor(dados$Group)
dados$Colors=as.factor(dados$Colors)
x <- xtabs(~Concentration + Group, data = dados)
x
x11()
barplot(x,
beside = FALSE,
xlab = "Concentrations dose",
ylab = "Concentrations mol",
col = "pal.bands(cubicyf)")
legend("Vi", "Vi/Bl","Vi/Bl/Gr","Gr/Bl","Gr")
Error in rect(y1, x1, y2, x2, ...) :
invalid color name 'pal.bands(cubicyf)'
> legend("Vi", "Vi/Bl","Vi/Bl/Gr","Gr/Bl","Gr")
Error in match.arg(x, c("bottomright", "bottom", "bottomleft", "left", :
'arg' should be one of “bottomright”, “bottom”, “bottomleft”, “left”, “topleft”, “top”, “topright”, “right”, “center”