r functions: ggplot barplot with errorbars

summary

The best way to create a barplot with errorbars using ggplot in R is not obvious. I'll show a super simple solution.


example R plot made using the below function and built-in data.frame

The best way to create a barplot with errorbars using ggplot in R is not obvious. Below is a super simple solution. As it is self-explanatory, this will be my shortest entry ever. cheers!

update 2013.12.10: the code was modified slightly by adding position_dodge() to make the error lines be smaller than the bars and the theme has been cleaned up to remove the default gray background.

update 2013.12.28: wrapped the script into a function (to generalize it)—pass data as a data.frame and x/y/fill as column name strings.

download ggplot_barplot.R

R / S+
  1. ggplotErrorBarplot <-function(data,x,y,fill,...){
  2.         # makes a barplot with errorbars using ggplot, variable inputs are strings
  3.         # biafra ahanonu, updated: 2013.12.28
  4.  
  5.         # load ggplot
  6.         require(ggplot2)
  7.  
  8.         # create functions to get the lower and upper bounds of the error bars
  9.         stderr <- function(x){sqrt(var(x,na.rm=TRUE)/length(na.omit(x)))}
  10.         lowsd <- function(x){return(mean(x)-stderr(x))}
  11.         highsd <- function(x){return(mean(x)+stderr(x))}
  12.  
  13.         # create a ggplot
  14.         ggplot(data,aes_string(x=x,y=y,fill=fill))+
  15.         # first layer is barplot with means
  16.         stat_summary(fun.y=mean, geom="bar", position=position_dodge(), colour='white')+
  17.         # second layer overlays the error bars using the functions defined above
  18.         stat_summary(fun.y=mean, fun.ymin=lowsd, fun.ymax=highsd, geom="errorbar", position=position_dodge(.9),color = 'black', size=.5, width=0.2)+
  19.         theme(line = element_blank(),panel.background = element_rect(fill = "white", colour = NA))
  20. }
  21.  

-biafra

comments

comments powered by Disqus

other entires to explore:

sublime text
16 august 2012 | programming

When coding, writing up blog post, or doing any other task, I generally have used Notepad++. It is a great program that au[...]tomatically detects, based on the extension, the type of code you are writing and parses the file accordingly. It is light and gets the job done, but it always felt like it could be taken to the next level. Enter Sublime Text 2, a program that seems to have everything I am looking for in a text editor and then some.

los ambiciones equivocados
05 may 2010 | short story | spanish

Mis amigos y yo fuimos al bar cuyo nombre es “Club Dos”, es muy famoso en esta parte de la gran ciudad. Sus ciudadanos le [...]ponen algunos nombres a la ciudad, como “La Ciudad sin Tierra” o “La Ciudad de Edificios”. Para que tengas entender más sobre lo que ocurrirá, es necesario que yo les explique lo que es la ciudad.

Next Spanish short, it focuses on a magnificent city and its origin story. It is something of a cautionary tale, made all the more real by my experiences in Singapore.

social chair spring 2012
27 december 2011 | psk

My terms as social chair during Fall 2011 went quite well, but there were several things I was unsatisfied with. This presentation outlines[...] several different areas I would like to see improved.

singapore: final report
16 september 2012 | singapore

Before finishing my adventures in Singapore, I was asked to put together a final report describing my experiences and where the program cou[...]ld improve. Rather than bore you with details, I've included a link to download the report. This is a draft form and I'll update the link with a finished version in the future.

©2006-2017 | biafra ahanonu | updated 19 june 2017
biafra ahanonu