How to create a nice bar chart in R using ggplot2? | Top 10 economies | StatswithR | Arnab Hazra

Here we explain how to generate a presentation/publication-quality bar chart in R/R-studio using ggplot2. The codes for the steps explained in the video are as follows. Copy and paste them into R, run them one-by-one and try to understand what each argument is doing.
#datascience #datavisualization #visualization #ggplot2 #tidyverse #barchart #rstudio #rcoding #normal
rm(list = ls())
library(ggplot2)
mydir = "/home/hazraa/Desktop/youtube/barchart"
setwd(mydir)
library(readxl)
gdp = read_excel("gdp.xlsx")
country = gdp$Country
gdp = gdp$GDP
gdp = gdp / 1e6
#-------------
first ggplot
p = ggplot() + geom_bar(aes(x = country, y = gdp), stat="identity")
ggsave(p, filename = "bar_ggplot1.pdf", width = 9, height = 9)
second ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, -gdp), y = gdp), stat="identity")
ggsave(p, filename = "bar_ggplot2.pdf", width = 9, height = 9)
third ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, -gdp), y = gdp), stat="identity") +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5))
ggsave(p, filename = "bar_ggplot3.pdf", width = 9, height = 9)
fourth ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, -gdp), y = gdp), stat="identity") +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5)) +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=20),
plot.title = element_text(size=20))
ggsave(p, filename = "bar_ggplot4.pdf", width = 9, height = 9)
fifth ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, -gdp), y = gdp), stat="identity") +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5)) +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=20),
plot.title = element_text(size=20)) +
theme(axis.text.x = element_text(angle = 90, hjust = 1))
ggsave(p, filename = "bar_ggplot5.pdf", width = 9, height = 9)
sixth ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, -gdp), y = gdp), stat="identity") +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5)) +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=20),
plot.title = element_text(size=20)) +
theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
xlab("") + ylab("GDP (trillion USD)")
ggsave(p, filename = "bar_ggplot6.pdf", width = 9, height = 9)
seventh ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, -gdp), y = gdp), stat="identity") +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5)) +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=20),
plot.title = element_text(size=20)) +
theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
xlab("") + ylab("GDP (trillion USD)") +
coord_flip()
ggsave(p, filename = "bar_ggplot7.pdf", width = 9, height = 9)
eighth ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, gdp), y = gdp), stat="identity") +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5)) +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=20),
plot.title = element_text(size=20)) +
xlab("") + ylab("GDP (trillion USD)") +
coord_flip()
ggsave(p, filename = "bar_ggplot8.pdf", width = 9, height = 9)
ninth ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, gdp), y = gdp), stat="identity", fill = "blue") +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5)) +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=20),
plot.title = element_text(size=20)) +
xlab("") + ylab("GDP (trillion USD)") +
coord_flip()
ggsave(p, filename = "bar_ggplot9.pdf", width = 9, height = 9)
tenth ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, gdp), y = gdp, fill = gdp), stat="identity") +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5)) +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=20),
plot.title = element_text(size=20)) +
xlab("") + ylab("GDP (trillion USD)") +
coord_flip() +
scale_fill_gradient(low="blue", high="red")
ggsave(p, filename = "bar_ggplot10.pdf", width = 9, height = 9)
eleventh ggplot
p = ggplot() + geom_bar(aes(x = reorder(country, gdp), y = gdp, fill = gdp),
stat="identity", show.legend = FALSE) +
ggtitle("Largest economies (2019, IMF)") +
theme(plot.title = element_text(hjust = 0.5)) +
theme(axis.text=element_text(size=20),
axis.title=element_text(size=20),
plot.title = element_text(size=20)) +
xlab("") + ylab("GDP (trillion USD)") +
coord_flip() +
scale_fill_gradient(low="blue", high="red")
ggsave(p, filename = "bar_ggplot11.pdf", width = 9, height = 9)

[@RiteshShekar]

Thank you . This was the easiest one to follow among all the other videos on this topic. Keep up the good work

[@timothyw.schwanitz2851]

Fantastic video! Great for beginners. Everything else I found online was too complex or too far off from what I needed, while this video helped me make a great graphic (my first ever in R!). I like that it was always clear which changes were being made in the code and that the rationale for those changes was always well explained.

[@_astrog137]

Thank you that's rly rly easy to follow and helpful!!!

[@jessicashadbolt8149]

Thank you so much! Extremely helpful, and well presented. I have applied this information to a gene ontology figure for publication!

[@statswithr602]

Thank you so much Jessica! I am very glad to hear that you found the tutorial helpful.

[@maritamatta7869]

Thank you!

[@pratikpalchowdhury8148]

Khub helpful.

[@statswithr602]

Dhonnobad Pratik 😊

[@mayanktripathi1310]

Awesome...this was easy to learn, we need to keep on playing around and exploring new by self

[@statswithr602]

Thank you 😊

[@marcelianooliveira2534]

Thanks man, nice job!

[@faezehtalebi4316]

👍👍👍👍

[@cyruskipchumba2272]

Very important thanks

[@statswithr602]

Thank you 😊

[@guilingma9613]

This is very helpful. However, I have one more question: can I do positive and negative value together in bar plot?e.g., I use positive value with one color and the negative on the left side with another color? Thanks. It seems the negative value in bar plot is using abs(), instead of its real negative value.

[@osssosos]

Why mine is -gpd invalid argument to unary operator??

[@afafmoh1612]

Hi I need someone to help me on using the R , please

[@nouhailasafi6685]

How I can add labels to bar graph?