load("/cloud/project/CARROS.RData")
CARROS$Tipodecombustivel<-as.factor(CARROS$Tipodecombustivel)
CARROS$TipodeMarcha<-as.factor(CARROS$TipodeMarcha)
boxplot(Kmporlitro~Tipodecombustivel, data=CARROS, col=c("red","skyblue"), main="Gráfico 1: km/l por tipo de combustível \n (0=Gasolina, 1=Álcool)")
boxplot(Kmporlitro~TipodeMarcha, data=CARROS, col=c("white","green"), main="Gráfico 2: km/l por tipo de câmbio \n (0=Automático, 1=Manual)")
boxplot(Preco~Cilindros, data=CARROS, col=c("green","blue", "red"), main="Gráfico 3: Preço por cilindros")
library(ggplot2)
library(plotly)
grafico<-ggplot(CARROS) +
aes(x = HP, y = Preco, colour = TipodeMarcha, size = TipodeMarcha, group = Cilindros) +
geom_point() +
scale_color_viridis_d(option = "inferno") +
labs(x = "Potência do motor", title = "Meu gráfico ggplot", subtitle = "com esquisse", caption = "fonte: base de dados carros") +
theme_minimal()
plotly::ggplotly(grafico)
É possível concluir que:
Carros a gasolina, automáticos e com maior número de cilindros são mais caros.