Gráficos
VADeaths
colors <- c("red","green","blue","yellow", "purple")
faixas <- c("50-54","55-59","60-64","65-69","70-74")
barplot(VADeaths, main = "Faixa Etária por Categoria",
xlab = "Categorias",
ylab = "Quantidade", col = colors, beside = T)
legend("topleft", pch=c(15,15,15), col= colors, legend=faixas)
ClassificaçãoDoença
x <- c(9, 8, 3)
labels <- c("Moderado", "Leve", "Severo")
pct <- round(x/sum(x)*100)
lbls <- paste(labels,pct)
lbls <- paste(lbls,"%", sep="")
pie(x,labels=lbls, main = "Situação dos Pacientes", col=rainbow(3))
legend("topleft", pch=c(15,15,15), col=rainbow(3), legend=labels)
USArrests
USArrests$Estado <- rownames(USArrests)
dados_ordenados <- USArrests[order(USArrests$Murder, decreasing = TRUE), ]
top5 <- head(dados_ordenados, 5)
top5$Estado <- factor(top5$Estado, levels = top5$Estado)
fig <- plot_ly(top5, x=~Estado, y =~Murder, type='bar', name ='Murder') %>%
add_trace(y= ~Rape, name = 'Rape') %>%
add_trace(y= ~Assault, name = 'Assault') %>%
layout(title = "5 estados mais violentos (EUA, 1973)",xaxis = list(title = "Estado"),
yaxis = list(title = "Ocorrências"), barmode = 'group')
fig
Orange
fig <- plot_ly(data =Orange, x= ~age,
y = ~circumference, color =~Tree,
type= 'scatter', mode= 'lines+markers',
text= ~paste0("Árvore ", Tree, " - idade: ", age," dias - circ.: ", circumference," mm."),
hoverinfo = 'text') %>%
layout(title = "Crescimento das Laranjeiras",
xaxis = list(title = "Idade (dias)"),
yaxis = list(title = "Circunferência (mm)")
)
fig