Convert snake_case to CamelCase.
camelize(x, first = FALSE)
Taken from ~/ggplot2/utilities.r. Taken from ~/ggplot2/utilities.r