Skip to content

Instantly share code, notes, and snippets.

@bobthecat
Created May 15, 2012 22:40
Show Gist options
  • Save bobthecat/2705679 to your computer and use it in GitHub Desktop.
Save bobthecat/2705679 to your computer and use it in GitHub Desktop.
Barplot for pubmed trend
plot_bar <- function(x=sex.pub, linecol="royalblue", cols, addArg=TRUE) {
bp <- barplot(x, col=cols, add=addArg)
fit <- stats::lowess(x, f=1/3)
lines(x=bp, fit$y, col=linecol, lwd=3)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment