Import data

# excel file
data <- read_excel("C:/Users/jessi/OneDrive - USNH/PSU_DAT3000_IntroToDa/01_module4/data/My Data_charts.xlsx", 
    sheet = "Total Employed by State")
data

State one question

Are the total number of artists in the U.S. higher in states that contain large cities, and what race makes up the largest percentage of artists?

Plot data

ggplot(data = data) + 
  geom_bar(mapping = aes(x = STATE, y= ARTISTS, fill = RACE), position = "dodge", stat = "identity") +
    coord_flip() +
  theme(
   axis.text.x = element_blank(),
   axis.ticks.x = element_blank()
   )

Interpret

According to the data presented, it appears that the relationship between states with large cities have more artists employed. The bar graph also suggests a large presence of employed white and hispanic artists.