2 VA

Respostas

VADeaths

df <- VADeaths

cores = rainbow(length(rownames(df)))

par(mar = c(8,4,4,8))

barplot(df,
        col = cores,
        cex.names = 0.75,
        main = "Death rates per 1000 in Virginia in 1940.",
        xlab = "Population groups",
        ylab = "Death rates per 1000")

legend("topright",
       inset = c(-0.25, 0),
       xpd = TRUE,
       fill = cores,
       legend = rownames(df))

ClassificaçãoDoença

categoria <- c("Leve", "Moderado", "Severo")
quantidade <- c(8, 9, 3)

pct <- round(quantidade / sum(quantidade) * 100)

lbls <- paste(categoria, pct, "%")

cores <- rainbow(length(categoria))

par(mar = c(4, 4, 4, 8))

pie(quantidade,
    labels = lbls,
    col = cores,
    main = "Classificação Doença")

legend("topright",
       inset = c(-0.25, 0),
       xpd = TRUE,
       legend = categoria,
       fill = cores,
       cex = 0.8)

USArrests

library(dplyr)

## 
## Anexando pacote: 'dplyr'

## Os seguintes objetos são mascarados por 'package:stats':
## 
##     filter, lag

## Os seguintes objetos são mascarados por 'package:base':
## 
##     intersect, setdiff, setequal, union

library(plotly)

## Carregando pacotes exigidos: ggplot2

## 
## Anexando pacote: 'plotly'

## O seguinte objeto é mascarado por 'package:ggplot2':
## 
##     last_plot

## O seguinte objeto é mascarado por 'package:stats':
## 
##     filter

## O seguinte objeto é mascarado por 'package:graphics':
## 
##     layout

df <- USArrests

df <- df %>%
  mutate(City = rownames(.)) %>%
  arrange(desc(Murder)) %>%
  slice(1:5)

df$City <- factor(df$City, levels = df$City)

fig <- plot_ly(df,
               x = ~City,
               y = ~Murder,
               type = 'bar',
               name = "Murder")

fig <- fig %>% add_trace(y = ~Rape,
                         name = "Rape")

fig <- fig %>% add_trace(y = ~Assault,
                         name = "Assault")
fig <- fig %>% layout(
  title = "5 estados mais violentos(EUA, 1973)",
  xaxis = list(title = "Estados"),
  yaxis = list(title = "Ocorrências")
)
fig

Orange

library(plotly)

df <- Orange

fig <- plot_ly(
  data = df,
  x = ~age,
  y = ~circumference,
  color = ~Tree,
  type = "scatter",
  mode = "lines+markers",
  text = ~paste(
    "Árvore", Tree,
    "— idade:", age, "dias",
    "— circ.:", circumference, "mm"
  ),
  hoverinfo = "text"
)

fig <- fig %>% layout(
  title = "Crescimento das Laranjeiras",
  xaxis = list(title = "Idade (dias)"),
  yaxis = list(title = "Circunferência (mm)")
)

fig