Цвета для сложенного барплота - PullRequest
Новая
       94

Цвета для сложенного барплота

0 голосов
/ 07 сентября 2018

Я новичок с вопросом о цвете для сложенного барплота. Позвольте мне предвосхитить это, сказав, что я искал ответы, прежде чем задавать этот вопрос, но я настолько плохо знаком с графиком R, что, возможно, я не использую правильный поисковый запрос.

Теперь у меня есть матрица, которую я хотел бы построить на диаграмме с накоплением, используя положительные и отрицательные значения. Я смог сделать это (с некоторой помощью), но я не могу заставить столбцы принимать разные цвета для положительных и отрицательных значений. Вот что я написал: 

dataset<-as.matrix(read.csv("skin_2hr.csv", header=T, row.names=1))

colors <-c("139", "orange", "132","purple","navy","forestgreen")
barcenter<-barplot(t(dataset[,3:2]), density=c(10,40,20,40,20,40),
main="Skin 2hr Post Exposure", 
xlab=expression(paste("kJ/m"^"2",4100K FL")), ylab="number of genes", 
    names.arg=rownames(dataset), 
    ylim=c(-150,500), col=colors)
lines(barcenter,dataset[,1])
box()
legend("topleft", legend=rownames(dataset), col=colors,
   pch=15, bty="n")

По какой-то причине все столбцы окрашены в оранжевый цвет. барплот

Матрица данных ниже: 

    Total   UP  DOWN
1   113    92   -21
2   216   130   -86
4   406   266   -140
8   183   136   -47
16  150   119   -31
32  178   144   -34

Можно ли иметь положительные значения цвета столбчатой ​​диаграммы, отличные от отрицательных значений в столбчатой ​​диаграмме с накоплением? Если да, не могли бы вы предложить предложения, как это сделать?

1 Ответ

0 голосов
/ 07 сентября 2018

Цвета можно манипулировать один за другим в "scale_fill_manual" с помощью руководства, например this 

dataset<-structure(c(113L, 216L, 406L, 183L, 150L, 178L, 92L, 130L, 266L, 136L, 119L, 144L, -21L, -86L, -140L, -47L, -31L, -34L), .Dim = c(6L, 3L), .Dimnames = list(c("1", "2", "4", "8", "16", "32"), c("Total", "UP", "DOWN")))
dataset<-as.data.frame(dataset)
dataset$id<-rownames(dataset)
dataset<-cbind(melt(dataset)[7:18,],dataset$Total)
names(dataset)[names(dataset)=="dataset$Total"]<-"Total"
dataset$variable<-letters[1:nrow(dataset)]
dataset2<-dataset[1:6,c(1,4)]

Вам понадобится ggplot2, который очень полезен для графиков. 

#install.packages("ggplot2")
library(ggplot2)
ggplot(dataset2, aes(factor(id,levels=dataset2$id), Total, group=1, colour=1)) + 
  geom_line(show.legend=F) + 
  geom_point(size=1, shape=16,show.legend=F) + 
  geom_bar(data=dataset, aes(x=id,y=value,fill=variable), stat="identity",position = "identity",show.legend=F)+
  ylab(paste("number of genes")) + xlab(expression("kJ / m"^"2"))+ 
  ggtitle("Skin 2hr Post Exposure")+
  guides(fill=FALSE)+#turns off color legend for above/below 0
  theme(legend.position="none")+
  #  scale_fill_brewer(palette = "Set3")+
  scale_fill_manual(values=c("orange", "black","green","yellow","white","red","pink","blue","brown","magenta","lightgray","lightblue"))+
  theme_bw()
...