Chart 2: Annual Salaries of employees of the Executive Office of the President of the United States

Every year, the White House must deliver a report to Congress listing the title and salary of every employee of the Executive Office of the President. The chart below shows how the salaries of 472 staffers are distributed. (Source: data.gov, updated 8/25/15, accessed 12/28/15)

Two unpaid advisors are not represented on the chart. Kimberlyn Leary is the White House Advisor to the Council on Women and Girls. Todd Park, the former Chief Technology Officer of the United States, now focuses on recruiting top tech talent into government.

The R source code for generating this chart follows:

d <- read.csv(file=”2015_Report_to_Congress_on_White_House_Staff.csv”,
head=TRUE,
sep=”,”)
windowsFonts(GothamBook=windowsFont(“Gotham Book”))
windowsFonts(GothamBold=windowsFont(“Gotham Bold”))
library(ggplot2)
library(scales)
x_start <- 40000
x_end <- 180000
x_bw <- 10000
xbins <- seq(from=40000, to=x_end, by=x_bw)
xlabels <- seq(from=x_start, to=x_end, by=x_bw*2)
ggplot(data=d, aes(x=Salary)) +
geom_histogram(
binwidth=x_bw,
stat=”bin”,
origin=x_start,
fill=”#5DA5DA”
) +
scale_x_continuous(
breaks=xlabels,
minor_breaks=xbins,
labels=dollar
) +
scale_y_continuous(
breaks=c(0,20,40,60,80,100),
minor_breaks=seq(from=0,to=110,by=10)
) +
theme(
panel.background=element_rect(fill=”#dddddd”),
axis.ticks=element_blank(),
axis.title.x=element_blank(),
axis.title.y=element_blank(),
plot.title=element_text(family=”GothamBook”),
axis.text.x=element_text(family=”GothamBold”, size=10),
axis.text.y=element_text(family=”GothamBold”, size=10)
) +
ggtitle(“Annual salaries of employees of the Executive Office of the President (2015)”) +
geom_vline(
xintercept=median(d$Salary),
colour=”#F15854",
size=1
) +
annotate(
“text”,
label=”Median: $70,700",
x=71000,
y=75,
size=5,
colour=”#F15854",
hjust=”inward”,
family=”GothamBold”
)