Resoução do exercício 12

Visualização de Gráficos

Questão 1

Não consegui resolver

Questão 2

colors <- c("blue","yellow","green")
price <- c("$10 - 19", "$20 - 29", "$30 - 39", "$40 - 49")
values <- matrix(c(53.8, 33.9, 2.6, 0.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, names.arg = price, col = colors, beside = TRUE, 
        main = "Qualidade de Refeição / Valor", xlab = "Faixa de Preços ($)", 
        ylab = "Avaliação (%)",
        ylim = c(0,100))
legend("topleft", col=colors,legend = c("Good", "Very Good", "Excellent"))

Questão 3

{library(dplyr)}
aq <- airquality %>% filter(Month == 5)
aq$Temp <- ((aq$Temp - 32)/ 1.8) 

hist(aq$Temp, col = "red", xlab = "Temperatura (°C)", ylab = "Frequência", 
     main = "Histograma de Temperatura do mês de maio", probability = T)
densidade <- density(aq$Temp)
lines(densidade)

Questão 4

sales <- read.table("https://training-course-material.com/images/8/8f/Sales.txt",header=TRUE)

vendas <- sales$SALES
paises <- sales$COUNTRY
porcentagem <- round((vendas/sum(vendas)) *100)
labels <- paste(paises, porcentagem)
labels <- paste(labels, "%", sep = " ")

pie(vendas, labels = labels, col = rainbow(6),  main = "Vendas por países" )
legend("topleft", legend = paises, fill = rainbow(6), cex = 0.5)

Questão 5

boxplot(count ~ spray, data = InsectSprays, xlab = "Spray", ylab = "Insetos",
        outline = FALSE,
        col = "yellow",
        main = "Contagem de insetos por Inseticidas")

Questão 6

Não consegui resolver

Questão 7

  netflix <- read.csv(file = "netflix_titles.csv", header = T)
  netflix <- netflix %>% mutate(umPais = str_detect(country, ".*,.*")) %>% 
  filter(umPais == FALSE) %>% 
  group_by(country) %>% summarise(qtd_conteudo = length(title))

  maisConteudos <- netflix %>% arrange(desc(qtd_conteudo))
  maisConteudos <- maisConteudos[-3,]
  maisConteudos <- maisConteudos[1:10,]

  plot_ly(maisConteudos, 
               labels = ~maisConteudos$country,
               values = ~maisConteudos$qtd_conteudo,
               type = 'pie')

Questão 8

 plot_ly(
  type= 'table',
  columnwidth = c(50, 50),
  columnorder = c(0, 1),
  header =list(
    values = c("Países","Qtd. Conteúdo"),
    line = list(width= 1.5, color = 'black'),
    fill = list(color = "gray"),
    font = list(family= "Arial",size= 12, color = c("white")),
    align = c("center", "center")
  ),
  cells = list(  
    values=rbind(maisConteudos$country, maisConteudos$qtd_conteudo),
    align= c("center", "center"),
    line=list(width = 1.5, color = 'black'),
    font = list(family = "Arial", size= 12, color = c("black"))
  )
)

Questão 9

netflix <- read.csv(file = "netflix_titles.csv", header = T)

netflix$decade <- as.integer(netflix$release_year/10)*10

decades_series <- netflix %>%
  filter(!is.na(decade) & decade != "" & type == "TV Show") %>%
  group_by(decade) %>%
  summarise(total_series=n()) %>%
  arrange(desc(decade))

decades_movies <- netflix %>%
  filter(!is.na(decade) & decade != "" & type == "Movie") %>%
  group_by(decade) %>%
  summarise(total_movies=n()) %>%
  arrange(desc(decade))

decades_count = merge(x=decades_movies, y=decades_series, by="decade")

plot_ly(x = decades_count$decade) %>%
  plotly::add_trace(y = ~decades_count$total_series, type = "scatter", name = 'TV Series', mode = 'lines+markers') %>%
  plotly::add_trace(y = ~decades_count$total_movies, type = "scatter", name = 'Movies', mode = 'lines+markers') %>%
  plotly::layout(
    xaxis=list(title = "Década"),
    yaxis=list(title = "Qnt. Conteúdo")
  )

Questão 10

Não consegui resolver