170

I am trying to make a bar-plot where the plot is ordered from the miRNA with the highest value to the miRNA with the lowest. Why does my code not work?

> head(corr.m)

        miRNA         variable value
1    mmu-miR-532-3p      pos     7
2    mmu-miR-1983        pos    75
3    mmu-miR-301a-3p     pos    70
4    mmu-miR-96-5p       pos     5
5    mmu-miR-139-5p      pos    10
6    mmu-miR-5097        pos    47

ggplot(corr.m, aes(x=reorder(miRNA, value), y=value, fill=variable)) + 
  geom_bar(stat="identity")

3 Answers 3

303

Your code works fine, except that the barplot is ordered from low to high. When you want to order the bars from high to low, you will have to add a -sign before value:

ggplot(corr.m, aes(x = reorder(miRNA, -value), y = value, fill = variable)) + 
  geom_bar(stat = "identity")

which gives:

enter image description here


Used data:

corr.m <- structure(list(miRNA = structure(c(5L, 2L, 3L, 6L, 1L, 4L), .Label = c("mmu-miR-139-5p", "mmu-miR-1983", "mmu-miR-301a-3p", "mmu-miR-5097", "mmu-miR-532-3p", "mmu-miR-96-5p"), class = "factor"),
                         variable = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "pos", class = "factor"),
                         value = c(7L, 75L, 70L, 5L, 10L, 47L)),
                    class = "data.frame", row.names = c("1", "2", "3", "4", "5", "6"))
17
  • it does not get ordered in my plot for some reason Sep 4, 2014 at 11:39
  • @user3741035 Strange. Did you use it on the sample dataset you provided above or on the whole dataset?
    – Jaap
    Sep 4, 2014 at 11:43
  • Which version of R & ggplot are you using? Can you also privede a larger sample dataset (preferrably with more than one value for variable)?
    – Jaap
    Sep 4, 2014 at 11:48
  • 6
    found the solution: I had loaded library(gplots) which messed up things Sep 4, 2014 at 11:55
  • 1
    @maycca It is giving me the correct result (on both OSX 10.10.4 / Windows 7, R 3.2.3 & ggplot2 2.1.0). Maybe you should start with a fresh session?
    – Jaap
    Jun 2, 2016 at 6:34
4

Aside from what @Jaap answered, there are two other ways to order the plot:

1: By using desc argument for value:

ggplot(corr.m, aes(x = reorder(miRNA, desc(value)), y = value, fill = variable)) + 
   geom_bar(stat = "identity")

2: By releveling the miRNA factor and omitting reorder argument:

corr.m %>%
   arrange(desc(value)) %>%
   mutate(miRNA = factor(miRNA, levels = unique(miRNA))) %>% 
ggplot(aes(x = miRNA, y = value, fill = variable)) + 
   geom_bar(stat = "identity") 
2

Another option is creating the variable as a factor where the factor levels are in decreasing order based on your value variable.

decreasing = TRUE

library(ggplot2)
# Create factor column with decreasing order TRUE
corr.m$miRNA <- factor(corr.m$miRNA, levels = corr.m$miRNA[order(corr.m$value, decreasing = TRUE)])

ggplot(corr.m, aes(x=miRNA, y=value, fill=variable)) + 
  geom_bar(stat="identity") 

Created on 2022-08-19 with reprex v2.0.2

decreasing = FALSE

library(ggplot2)
# Create factor column with decreasing order FALSE
corr.m$miRNA <- factor(corr.m$miRNA, levels = corr.m$miRNA[order(corr.m$value, decreasing = FALSE)])

ggplot(corr.m, aes(x=miRNA, y=value, fill=variable)) + 
  geom_bar(stat="identity")

Created on 2022-08-19 with reprex v2.0.2

Not the answer you're looking for? Browse other questions tagged or ask your own question.