i tough to do it this way:
Simulation10 <- videogames %>%
filter(Genre == "Simulation") %>%
filter(Platform %in% c("NES", "SNES" , "N64", "Wii", "WiiU", "GB", "GBA", "GC", "3DS", "DS", "3DS")) %>%
summarise(Total_EU_Sales = sum(EU_Sales))
print (Simulation10) #57.49
Sports11 <- videogames %>%
filter(Genre == "Sports") %>%
filter(Platform %in% c("NES", "SNES" , "N64", "Wii", "WiiU", "GB", "GBA", "GC", "3DS", "DS", "3DS")) %>%
summarise(Total_EU_Sales = sum(EU_Sales))
print (Sports11) #123.87
Strategy12 <- videogames1 %>%
filter(Genre == "Strategy") %>%
filter(Platform %in% c("NES", "SNES" , "N64", "Wii", "WiiU", "GB", "GBA", "GC", "3DS", "DS", "3DS")) %>%
summarise(Total_EU_Sales = sum(EU_Sales))
print (Strategy12) #8.39
hist(Strategy12,Sports11,Simulation10$Total_EU_Sales)
so i have more input for the histogram.. but my way is not working 