Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
NICAR conference registration - updated with final 2018 numbers
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
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
You can’t perform that action at this time.