Skip to content

Instantly share code, notes, and snippets.

@ronammar

ronammar/UsingR_ceo_dataset.R

Created May 14, 2016 17:02
Show Gist options
  • Save ronammar/bdea069d8dc38c7ed84f987768a6edcf to your computer and use it in GitHub Desktop.
Save ronammar/bdea069d8dc38c7ed84f987768a6edcf to your computer and use it in GitHub Desktop.
Download ZIP
Raw
UsingR_ceo_dataset.R
library(UsingR)
library(scales)
ggplot(ceo2013, aes(x=base_salary, y=(cash_bonus + option_awards))) +
geom_text(aes(label=ticker), size=3) +
facet_wrap(~ industry, scales="free") +
labs(x="Base Salary ($)", y="Bonus + Options ($)") +
scale_x_continuous(labels=comma) +
scale_y_continuous(labels=comma) +
theme_bw()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment