Thank you for your response. My color is set by the fill in ggplot.
Here's my code:
output$permit <- renderPlot({
final_data %>%
filter(year == input$chosenyear) %>%
ggplot(aes(x = month, y = permit, fill = month)) +
geom_bar(stat = 'identity', show.legend = FALSE) +
labs(x = "Month",
y = "Number of Permits Granted") +
scale_y_continuous(labels = comma)
})