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")