21 plotly

---

21.1 Conjunto de dados

library(plotly)
library(dplyr)
tratamentos=rep(c(paste("T",1:5)),e=4)
resposta=c(100,120,110,90,150,145,149,165,150,144,134,139,220,206,210,210,266,249,248,260)
dados=data.frame(tratamentos,resposta)

21.2 Gráfico de caixas

dados %>% plot_ly(y=resposta,
                  x=~tratamentos,
                  type = "box",
                  color = ~tratamentos)%>%
  layout(yaxis = list(title="Resposta"),
         xaxis = list(title=""))

21.3 Gráfico de colunas

## Média e Desvio-padrão (Por Tratamento)
media=tapply(resposta,tratamentos, mean)
desvio=tapply(resposta,tratamentos,sd)
dados=data.frame(trat=names(media),
                     media,
                 desvio=desvio)
dados %>% plot_ly(y=media,
                  x=~trat,
                  type = "bar",
                  color = ~trat,
                  error_y=list(value=~desvio,color="blue"))%>%
  layout(yaxis = list(title="Resposta"),
         xaxis = list(title=""))

21.4 Gráfico de barras

## Média e Desvio-padrão (Por Tratamento)
dados %>% plot_ly(x=media,
                  y=~trat,
                  type = "bar",
                  color = ~trat,
                  horizontation="h",
                error_x=list(value=~desvio,color="blue"))%>%
  layout(yaxis = list(title="Resposta"),
         xaxis = list(title=""))

21.5 Gráfico de dispersão

dados %>% plot_ly(y=media,
                  x=~trat,
                  type = "scatter",
                  color = ~trat,
                  error_y=list(value=~desvio))%>%
  layout(yaxis = list(title="Resposta"),
         xaxis = list(title=""))