energia <- data.frame("curso" = 1:15,"enem"=1:5)
energia$curso <- c("Eng Aeroespacial", "Eng Ambiental", "Eng de Controle e Automação", "Eng de Minas", "Eng de Produção", "Eng de Sistemas", "Eng Mecânica", "Eng Metalurgica", "Geologia", "Licenciatura em Matemática","Matemática","Química","Sistema de Informação")
energia$enem <- c(1, 2, 3, 4, 5)
rotulo <- c("curso, quantidade que fez enem")
par(mgp=c(1,1,0))
barplot(energia$enem, main="enem por curso", xlab=rotulo[1],ylab=rotulo[2], names.arg = energia$curso, ylim=c(0, 100), cex.names = 0.8, xaxs = "i")
barplot(energia$curso, main="Energia Eólica no Mundo", xlab=rotulo[1], ylab=rotulo[2], names.arg = energia$curso, ylim=c(0, 145000100), cex.names = 0.8, xaxs = "i", add=TRUE)
#Error in `$<-.data.frame`(`*tmp*`, curso, value = c("Eng Aeroespacial", :
#replacement has 13 rows, data has 15