vnom<-c("Monse","Carlos","Laura","Lore","Fco","Miguel","Ivan","David") ved<-c(40,39,39,36,41,39,1,5) barplot(ved, names.arg = vnom, main = "Vectores de Edad y Nombre", xlab = "Nombres", ylab = "Edades")