Skip to content

Instantly share code, notes, and snippets.

@underthecurve

underthecurve/attendance2.csv

Last active April 6, 2018 19:50
Show Gist options
  • Save underthecurve/d9011c5edd3d6c2c1114f4073838a22a to your computer and use it in GitHub Desktop.
Save underthecurve/d9011c5edd3d6c2c1114f4073838a22a to your computer and use it in GitHub Desktop.
Download ZIP
NICAR conference registration - updated with final 2018 numbers
Raw
attendance2.csv
year City number Chicago
1999 Boston 515
2000 Lexington 343
2001 NA
2002 Philadelphia 206
2003 Charlotte 261
2004 Cincinnati 335
2005 Hollywood 359
2006 Newark 324
2007 Cleveland 306
2008 Houston 281
2009 Indianapolis 212
2010 Phoenix 288
2011 Raleigh 427
2012 St. Louis 411
2013 Louisville 642
2014 Baltimore 997
2015 Atlanta 942
2016 Denver 1046
2017 Jacksonville 846
2018 Chicago 1252 1
Raw
attendanceplot.R
library('dplyr')
library('ggplot2')
attendance <- read.csv('attendance2.csv', stringsAsFactors = F)
ggplot(attendance, aes(x = year, y = number, fill = (Chicago))) +
geom_bar(stat = 'identity', fill='darkred') +
theme_minimal() +
labs(x = '', y = '') +
theme(axis.text = element_text(size=25), panel.grid.major.x = element_blank(), panel.grid.minor.x = element_blank()) +
scale_x_continuous(breaks = c(1999, 2018), limits = c(1998, 2019), labels = c(1999, 2018)) + scale_y_continuous(breaks = seq(0, 1300, 250), limits = c(0, 1300))
ggsave('plot.png', width = 8, height = 5)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment