Изменить порядок заполнения переменной на ggplot geom_bar - PullRequest
Новая
       26

Изменить порядок заполнения переменной на ggplot geom_bar

1 голос
/ 16 апреля 2020

У меня есть барплот, на котором я изменил порядок сэмплов "ББ", "АА". Они заполняются условием расположения.

Как изменить порядок заполнения легенды, чтобы столбцы отображались как Вашингтон-Монголия-Египет? (ie: черная колонна (Египет) будет справа, затем Монголия, затем белая (Вашингтон) будет слева). 

sample <- c("AA", "AA", "AA", "BB", "BB", "BB")
location<- c("Washington", "Mongolia", "Egypt", "Washington", "Mongolia", "Egypt" )
value <- c(0.03, 0.06, 0.02, 0.0051, 0.0082, 0.003)
data <- data.frame(sample, location, value)


ggplot(data, aes(fill=location, y=value, x=sample)) + 
    geom_bar(position="dodge", stat="identity", color="black")+
theme_classic()+
 scale_fill_grey() +
  scale_x_discrete(limits=c("BB", "AA"))

enter image description here

1 Ответ

1 голос
/ 16 апреля 2020

Вы можете использовать position_dodge2 с аргументом reverse = TRUE в geom_col (что эквивалентно geom_bar(stat = "identity")).

Я также использую guides(fill = guide_legend(reverse = TRUE)) для изменения маркировки легенды и соответствия порядка столбцов 

library(ggplot2) 

ggplot(data, aes(fill=location, y=value, x=sample)) + 
  geom_col(position = position_dodge2(reverse = TRUE) color="black")+
  theme_classic()+
  scale_fill_grey() +
  scale_x_discrete(limits=c("BB", "AA"))+
  guides(fill = guide_legend(reverse = TRUE))

enter image description here

РЕДАКТИРОВАТЬ: Добавление geom_errobar с использованием position_dodge2

Как задокументировано в этом обсуждении (https://github.com/tidyverse/ggplot2/issues/2251), при использовании position_dodge2 сюда geom_col, если вы хотите добавить geom_errorbar, вам нужно поиграть с аргументом padding: 

sample <- c("AA", "AA", "AA", "BB", "BB", "BB")
location<- c("Washington", "Mongolia", "Egypt", "Washington", "Mongolia", "Egypt" )
value <- c(0.03, 0.06, 0.02, 0.0051, 0.0082, 0.003)
sd <- c(0.003, 0.0012, 0.0015, 0.00025, 0.0002, 0.0001) 
data <- data.frame(sample, location, value, sd)

library(ggplot2)

ggplot(data, aes(fill=location, y=value, x=sample)) + 
  geom_bar(position = position_dodge2(reverse = TRUE), stat="identity", color="black")+
  theme_classic()+
  scale_fill_grey() +
  scale_x_discrete(limits=c("BB", "AA"))+
  guides(fill = guide_legend(reverse = TRUE))+
  geom_errorbar(aes(ymin = value-sd, ymax = value+sd), 
                position = position_dodge2(reverse = TRUE, padding = 0.6, width = 0.5))

enter image description here

...