На следующей прилагаемой картинке изображена гистограмма xlsx, которую я пытаюсь повторить в R.
До сих пор мне удалосьсоздать следующий график, используя код, представленный после рисунка:
Код:
melted_Data = melt(Data, id = rownames(Data), varnames = c("Var","Segments"))
Colors = c("blue","darkgreen","green","orange","yellow")
ggplot(data = melted_Data,
aes (x = Segments, y = value, fill = Var)) +
scale_fill_manual(values = Colors) +
theme_bw()+
theme(legend.position="bottom", legend.box = "horizontal") +
geom_bar(position = 'dodge',stat = "identity")+
labs(x = "Segments", y = "value") +
ggtitle("Title")
Переменная Data
имеет следующий вид:
a b c d e
bla 0.00760458 0.0144459 0.0115575 0.003626049 0.008984297
blabla 0.01010000 0.0155000 0.0121000 0.009300000 0.009300000
Как вы можете видеть, мой код назначает только первые два цвета каждой паре столбцов вопреки примеру фигуры xlsx.
Поэтому мои вопросы таковы:
1) Как можно назначить определенный цвет для каждой пары полос (например, синий для a
, темно-зеленый для b
, светло-зеленыйдля c
и т. д.)?
2) Можно ли назначить разные шаблоны заполнения для одного из двух столбцов в каждой паре (как в примере с примером xlsx)?