attendance2019

library('dplyr')
library('ggplot2')

attendance <- read.csv('attendance2019.csv', stringsAsFactors = F)

ggplot(attendance, aes(x = year, y = number, fill = (Newport.Beach))) + 
  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, 2019), limits = c(1998, 2020), labels = c(1999, 2019)) + scale_y_continuous(breaks = seq(0, 1300, 250), limits = c(0, 1300))
  

ggsave('plot.png', width = 8, height = 5)

attendance2019.csv