My real dataset is larger, but I tried to shorten it here. #What I have:
Income_100m_total_df <- data.frame(Name = c("Amstelpark",
