Как изменить порядок гистограмм

Question

Я пытаюсь вручную изменить порядок гистограмм, но просто не могу этого сделать. Может ли кто-нибудь помочь мне?

Я хочу сделать стержни со следующими первые номера, которые должны быть расположены рядом друг с другом: 1-8-12, 2-7-11, 3-6-10 и 4-5-9.

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

dsv <- read.csv("mydata.csv",sep=";",dec=",",header=TRUE,row.names=1) 
dsv$Diatomeer <- NULL 
tdsv <- t(dsv) 
pdsv <- prop.table(as.matrix(tdsv),margin=2) 
sum(pdsv) 
tpdsv <- pdsv*100 
plotdsv <- melt(tpdsv) 
head(plotdsv) 
colnames(plotdsv) <- c("Art","Basseng","value") 
ggplot(plotdsv,aes(x=Basseng,y=value,ymin=0,ymax=value,fill=Art))+ 
    geom_bar(stat="identity")+ 
    theme(axis.text.x=element_text(angle=90)) 

Answer 1

Для окраски, попробуйте это

my_pal <- c(RColorBrewer::brewer.pal(9, 'Set1'), 
      RColorBrewer::brewer.pal(8, 'Set2')) 

позже в ggplot добавить

scale_colour_manual(values=my_pal) 

Answer 2

Большое вам спасибо за вашу помощь. Мне удалось изменить цвета вручную. Я почти закончил, мне просто нужно вручную изменить порядок видов, чтобы они получили правильные цвета и порядок. По умолчанию они помещаются в алфавитном порядке.

Я использовал scale_color_hue (..., разбивает = с ('видов ...'), этикетки = с ('mylabels ...')) + scale_fill_manual (значения = с ('mycolours. .. '))

Я построил каждый вид в том порядке, в котором я хотел в breaks = function, но все же он выходит в алфавитном порядке. У вас есть решение моей проблемы? Спасибо!