genre_streams <- spotify_data %>%
  group_by(Genre) %>%
  summarise(Total_Streams = sum(Streams))

ggplot(genre_streams, aes(x = Genre, y = Total_Streams, fill = Genre)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  labs(title = "Stream Distribution by Genre", x = "Genre", y = "Total Streams")