Skip to main content
Adicionados tags relevantes.
Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28
removeu 32 caracteres do conteúdo
Fonte Link
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
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, 145000), cex.names = 0.8,    xaxs = "i", add=TRUE)
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, xlab=rotulo[1], ylab=rotulo[2], names.arg = energia$curso, ylim=c(0, 100), 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
removeu 3 caracteres do conteúdo
Fonte Link
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")
grid(nx=NA, ny=NULL)
barplot(energia$curso, main="Energia Eólica no Mundo", xlab=rotulo[1], ylab=rotulo[2], names.arg = energia$curso, ylim=c(0, 145000), cex.names = 0.8,    xaxs = "i", add=TRUE)
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")
grid(nx=NA, ny=NULL)
barplot(energia$curso, main="Energia Eólica no Mundo", xlab=rotulo[1], ylab=rotulo[2], names.arg = energia$curso, ylim=c(0, 145000), cex.names = 0.8,    xaxs = "i", add=TRUE)
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, 145000), cex.names = 0.8,    xaxs = "i", add=TRUE)
removeu 3 caracteres do conteúdo
Fonte Link
Carregando
Fonte Link
Carregando