Import data
State one question
Plot data
Interpret

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?

Plot data

ggplot(data = data) + 
  geom_bar(mapping = aes(x = STATE, y= ARTISTS), 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.