Regionwise_sales = Salesdata %>% group_by(Region)%>% summarise(toalSales2015 = sum(Sales2015) , toalSales2016 = sum(Sales2016) ) ggplot2::ggplot(Regionwise_sales)+aes(