Proporción de mercado por Año
ggplot(data=wine,aes(x=wine$Geogrphy,y=wine$`2016`, fill=`Category`))+geom_col()+ labs(x="Pais", y="Porcentaje de Mercado", title = "Proporción de mercado 2016", subtitle = "Por Pais", caption = "Fuente: Euromonitor.") + theme(axis.text.x = element_text(angle=90, vjust=0.5, size=8))+ scale_fill_manual(values = c("cyan3", "darkcyan", "aquamarine2" ))
ggplot(data=wine,aes(x=wine$Geogrphy,y=wine$`2017`, fill=`Category`))+geom_col()+ labs(x="Pais", y="Porcentaje de Mercado", title = "Proporción de mercado 2017", subtitle = "Por Pais", caption = "Fuente: Euromonitor.") + theme(axis.text.x = element_text(angle=90, vjust=0.5, size=8))+ scale_fill_manual(values = c("firebrick1", "red4", "indianred1" ))
ggplot(data=wine,aes(x=wine$Geogrphy,y=wine$`2018`, fill=`Category`))+geom_col()+ labs(x="Pais", y="Porcentaje de Mercado", title = "Proporción de mercado 2018", subtitle = "Por Pais", caption = "Fuente: Euromonitor.") + theme(axis.text.x = element_text(angle=90, vjust=0.5, size=8))+ scale_fill_manual(values = c("gold", "darkorange3", "darkgoldenrod2" ))
ggplot(data=wine,aes(x=wine$Geogrphy,y=wine$`2019`, fill=`Category`))+geom_col()+ labs(x="Pais", y="Porcentaje de Mercado", title = "Proporción de mercado 2019", subtitle = "Por Pais", caption = "Fuente: Euromonitor.") + theme(axis.text.x = element_text(angle=90, vjust=0.5, size=8))+ scale_fill_manual(values = c("magenta", "darkmagenta", "darkorchid1" ))
ggplot(data=wine,aes(x=wine$Geogrphy,y=wine$`2020`, fill=`Category`))+geom_col()+ labs(x="Pais", y="Porcentaje de Mercado", title = "Proporción de mercado 2020", subtitle = "Por Pais", caption = "Fuente: Euromonitor.") + theme(axis.text.x = element_text(angle=90, vjust=0.5, size=8))+ scale_fill_manual(values = c("lightgreen", "forestgreen", "limegreen" ))
ggplot(data=wine,aes(x=wine$Geogrphy,y=wine$`2021`, fill=`Category`))+geom_col()+ labs(x="Pais", y="Porcentaje de Mercado", title = "Proporción de mercado 2021", subtitle = "Por Pais", caption = "Fuente: Euromonitor.") + theme(axis.text.x = element_text(angle=90, vjust=0.5, size=8))+ scale_fill_manual(values = c("darkturquoise", "steelblue2", "navy" ))
