Stuck on step 10 for museum and nature centers project. please help

project:

https://www.codecademy.com/paths/analyze-data-with-r/tracks/data-visualization-in-r-skill-path/modules/intermediate-data-visualization-with-ggplot-2/projects/data-visualization-in-r-museums

I am stuck on step 10 which is:

Our graph looks pretty good! However, our axes titles are a little non-descript. Using the labs() layer, let’s title this plot “Museum Types by Region”, relabel the x axis title as “Region”, relabel the y axis title as “Percentage of Total”, and relabel the fill legend title as “Type”

note that the code below was adapted from (Museums and Nature Centers - Intermediate ggplot2 - Help needed) for step 8 since my code was giving me a lot of difficulty and was not working for some unknown reason

and this is the graph that step 10 produces which is wrong:

please help

museum_stacked <- ggplot(data=museums_df) + 

  geom_bar(

    aes(x=factor(Region.Code..AAM.), 

    fill=Is.Museum),

    position = "fill") + 

  scale_x_discrete(

    labels = c(

      "1" = "New England", 

      "2" = "Mid-Atlantic", 

      "3" = "Southeastern", 

      "4" = "Midwest", 

      "5" = "Mountain Plains", 

      "6" = "Western")) + 

  scale_fill_discrete(

    labels = c(

      "FALSE" = "Non-Museum", 

      "TRUE" = "Museum"))

  scale_y_continuous(

    scales::percent_format()) + 

  labs(title = "Museum Types by Region", x = "Region", y = "Percentage of Total", fill = "Type")

museum_stacked