How to make and enhance barplot with data labels, error bar and legend using R programming?

#barplot #rprogramming #datavisualization #barcharts #errorbars
In this video I discussed how to get a complete publication ready grouped barplot using base R function.

To get the summarize data to plot bars and std. dev for error bars , i have used summarise _all function of dplyr.

Adjustment of margin, y axis limits and Orientation of labels to get text accommodated is also discussed.

Facebook page:
  / rajendrachoureisc  

Mail Id:
[email protected]

YouTube playlist:
   • R programming tutorials  

Script

#barplot with error bars

#datasummary
head(iris)

library(dplyr)

iris_sum_mean = group_by(iris, Species)

iris_sum_mean = summarise_all(iris_sum_mean,mean)

iris_sum_mean_mat = as.matrix(iris_sum_mean[,-1])

iris_sum_sd =group_by( iris, Species)

iris_sum_sd =summarise_all(iris_sum_sd ,sd)

iris_sum_sd_mat =as.matrix(iris_sum_sd[,-1])

#barplot
par(mar=c(7,3,2,2))
gbp = barplot(iris_sum_mean_mat,beside=TRUE,las=2, col=terrain.colors(3),ylim=c(0,7.5),main="barplot with errorbars")
text(x=gbp, y=iris_sum_mean_mat+0.15,labels = round(iris_sum_mean_mat,2), cex=0.6)
#Errorbars
arrows(x0=gbp, x1=gbp,y0=iris_sum_mean_mat-iris_sum_sd_mat,y1=iris_sum_mean_mat+iris_sum_sd_mat, code=3, angle=90,length=0.05)

#legend
legend(x="topright", fil=terrain.colors(3),legend=iris_sum_mean$Species,bty="n")