---

title: “Exercicio11” author: “jadeilson” date: “7/12/2020” output: html_document

Questão 2

qualidade <- c("Good", "Very Good", "Excellent")
colunas <- c("$10-19", "$20-29", "$30-39", "$40-49")
colors <- c("red", "green", "blue")

Values <- matrix(c(53.8, 33.9, 2.6, 0, 43.6, 54.2, 60.5, 21.4, 2.6, 11.9, 36.8, 78.6), nrow = 3, ncol = 4, byrow = TRUE)

barplot(Values, main = "Qualidade das refeições", names.arg= colunas, xlab="Preços", ylab="Porcentagem", col=colors, ylim=c(0,160))

legend("topright", pch = c(15,15,15), col=colors, legend= qualidade)

Questao 3

Temperatura <- subset(airquality, subset = Month == 5, select = c("Temp"))
Temperature <- airquality$Temp
converter_temp <- function(df) {
  tam <- length(df)
  x <- 0
   for (i in 1:tam){
     df[i] <- (df[i] -32)/1.8
   }
  return(df)
}
new_temp <- converter_temp(Temperatura)
new <- new_temp$Temp 
hist(new, col='green', main = "Histograma de temperatura mês de Maio", breaks = 9, probability = T, xlab = "Temperatura", ylab="Densidade")
densityTemp <- density(new)
lines(densityTemp)

Questao 4

sales <- read.table("https://training-course-material.com/images/8/8f/Sales.txt",header=TRUE)
x <- sales$SALES
labels <- sales$COUNTRY
pct <- round(x/sum(x)*100)
lbls <- paste(labels, pct)
lbls <- paste(lbls, "%", sep="")
pie(x, labels=lbls, main = "Total de vendas por País", col = rainbow(6))
legend("topleft", legend= labels, cex=0.8, fill=rainbow(length(x)))

Questao 5

boxplot(count~spray, data = InsectSprays, xlab="Tipos de Spray", ylab = "Quantidade", main="Dados da Relação: Quantidade x Spray", outline = FALSE, col="Yellow")

Questão 6

levels(mtcars$cyl)

## NULL

mtcars$cyl <- as.factor(mtcars$cyl)
media <- mean(as.numeric(mtcars$mpg))
plot(mtcars$wt,mtcars$mpg, main="Peso x Milhas Por Galão",pch=17, cex=2, col=mtcars$cyl, xlab = "Peso do carro", ylab = "Milhas")
legend("topright", pch=17, col=c(1:3), legend=levels(mtcars$cyl), title = "Qtd de cilindros")
abline(h=media, col="red")