How to change the order of bars in bar chart in R ?

In this article, we will discuss how to change the order of bars in bar chart in R programming language. We can change the order of bars by using two plots ggplot and barplot.

Method 1: Ggplot re-ordering 

Firstly create a sample dataset and plot the graph-Manual. Now let's reorder them accordingly.

Dataset in Use:

Reordering in ggplot is done using theme() function. Within this, we use axis.text.x with the appropriate value to re-order accordingly. By default, geom_bar uses stat="bin". This makes the height of each bar equal to the number of cases in each group,  If you want the heights of the bars to represent values in the data, use stat="identity" and map a value to the y aesthetic.

• geom_bar() : Use for the Bar charts

Syntax:

geom_bar( mapping = NULL, data = NULL, stat = "count", color='blue'; fill='yellow' width = NULL, na.rm = FALSE, orientation = NA, show.legend = NA,...,)

• Theme: Themes can be used to give plots a consistent customized look.

Syntax:

theme( line, rect, text, title, aspect.ratio, axis.text.x, axis.text.x.top, axis.text.x.bottom,)

Parameter:

• line  : all line elements (element_line())
• rect  :all rectangular elements (element_rect())
• text  : all text elements (element_text())
• title  :all title elements: plot, axes, legends (element_text(); inherits from text)
• aspect.ratio  :aspect ratio of the panel.
• axis.text.x : labels along with axes (element_text()). Specify all axis labels (axis.text), labels

Manually Order

To reorder bars manually, you have to pass stat="identity" in the geom_bar() function.

Example: 

library(ggplot2)

# Create the data frame.
gfg.data <- data.frame(
  GFG_Id = c (1:7), 
  GFG_Name = c("Damon","Joe","Jen","Ryan","Bonnie","Stefan","William"),
  GFG_Sal = c(6200,5152,6110,7290,8485,7654,2341))
print(gfg.data)

# GGPLOT
x <- ggplot(gfg.data, aes(x = GFG_Name, y = GFG_Sal))

x <- x + geom_bar(stat="identity", color='lightgreen',fill='lightgreen')

x <- x + theme(axis.text.x=element_text(angle=45, hjust=0.9))
x

Output:

Re-ordering the in ascending and descending order

The reorder function is used here to change the order of the graphs.

Syntax : 

ggplot(dataframe name, aes(x=reorder(column1,±column2),y=column2)

Here if you want ascending order then you'll use '+' plus sign, if you want in descending order then you should use '-' minus sign.

Note: Column2 must be the column with numeric data.

Example: Let us first show the same bar plot in ascending order.

library(ggplot2)

# Create the data frame.
gfg.data <- data.frame(
  GFG_Id = c (1:7), 
  GFG_Name = c("Damon","Joe","Jen","Ryan","Bonnie","Stefan","William"),
  GFG_Sal = c(6200,5152,6110,7290,8485,7654,2341))

print(gfg.data)

# GGPLOT
x <- ggplot(gfg.data, aes(x = reorder(GFG_Name, +GFG_Sal), y = GFG_Sal))

x <- x + geom_bar(stat="identity", color='red',fill='red')

x <- x + theme(axis.text.x=element_text(angle=45, hjust=0.9))
x

Output:

Example: Now let's look at descending ordered plot

library(ggplot2)

# Create the data frame.
gfg.data <- data.frame(
  GFG_Id = c (1:7), 
  GFG_Name = c("Damon","Joe","Jen","Ryan","Bonnie","Stefan","William"),
  GFG_Sal = c(6200,5152,6110,7290,8485,7654,2341))

print(gfg.data)

# GGPLOT
x <- ggplot(gfg.data, aes(x = reorder(GFG_Name, -GFG_Sal), y = GFG_Sal))

x <- x + geom_bar(stat="identity", color='violet',fill='violet')

x <- x + theme(axis.text.x=element_text(angle=45, hjust=0.9))
x

Output:

Method 2: Using Barplot re-ordering

Firstly create a sample dataset and plot the graph. Now let us look at the reordering of the bars.

Dataframe in use:

In R, barplot() function

Syntax:

barplot(height, name.args = NULL, col = NULL, main = NULL)

Parameter:

• height: You can specify either a Vector or a Matrix of values.
• name.args :a Vector of names you want to plot below each bar or group of bars in an R bar chart.

Manually Ordering

For manual ordering pass the order to the x-axis while creating the dataframe.

Example:

# Create the data for the chart
GFG_ID   <- c(1:7)
GFG_Sal  <- c(6200,5152,6110,7290,8485,7654,2341)
GFG_Name <- c("Dia","Joe","Rex","Ryan","Bex","Stef","Max")
X <- data.frame(GFG_ID,GFG_Name,GFG_Sal)
X

# Give the chart file a name
png(file = "barchart_months_salary.png")

# Plot the bar chart 
barplot(GFG_Sal,names.arg=GFG_Name,xlab="Employee Name",
        ylab="Salary Range",col="black",
main="Salary chart",border="Red")

# Save the file
dev.off()

Output

Re-ordering the graph in ascending and descending order

The function used here is the order (order returns a permutation that rearranges its first argument into ascending or descending order)

Syntax -

order(…, na.last = TRUE, decreasing = FALSE)

Parameter:

na.last: for controlling the treatment of NAs

Let us first look at the ascending ordered plot.

Example:

GFG_ID  <- (LETTERS[1:7])
GFG_Sal  <- c(6200,5152,6110,7290,8485,7654,2341)

data <- data.frame(GFG_Sal, GFG_ID)

barplot(data[order(data[,1],decreasing=FALSE),
        ][,1],names.arg=data[order(data[,1],decreasing=FALSE),]
        [,2],col="blue",xlab="Employee Name Initial Letter",
        ylab="Salary Range",main="Salary chart",border="black")

Output

Now let us look at the descending ordered plot.

Example:

GFG_ID  <- (LETTERS[1:7])
GFG_Sal  <- c(6200,5152,6110,7290,8485,7654,2341)

data <- data.frame(GFG_Sal, GFG_ID)

barplot(data[order(data[,1],decreasing=TRUE),
        ][,1],names.arg=data[order(data[,1],decreasing=TRUE),
        ][,2],col="blue",xlab="Employee Name Initial Letter",
        ylab="Salary Range",main="Salary chart",border="black")

Output