vector <- c(3.8,7.8,31,17.1,17.2,33.8,18.3,18.3,16.5,10.4,12.7,9.9,0.5,0.74)
vector2 <- matrix(vector,nrow=2,ncol=7)
colnames(vector2) <- c("Internet","Prensa Gráfica","TV Abierta","Radio","TV Cable","Cartelería","Cine")
rownames(vector2) <- c("2015","2017")

barplot(height=vector2,beside=TRUE,las=3,legend.text = TRUE,col=c("red","orange"),ylim=c(0,35))