Taller Datos Crecimiento de Algodon

Los datos corresponden a un experimento en el cual se evalua el efecto de la aplicación de diferentes concentraciones de herbicida e insecticida sobre el crecimiento de plantas de algodon, como se muestra en la tabla:

library(readxl)
datos = read_excel("~/Desktop/herbicida.xlsx")
head(datos)
## # A tibble: 6 x 4
##   planta insecticida herbicida delta
##    <dbl>       <dbl>     <dbl> <dbl>
## 1      1           0       0   122  
## 2      2          20       0    82.8
## 3      3          40       0    65.8
## 4      4          60       0    68  
## 5      5          80       0    57.5
## 6      6           0       0.5  72.5

A. Explotorio

A continuación vamos a realizar una exploración de la relación entre herbicida e insecticida con el delta de crecimiento:

require(ggplot2)
## Loading required package: ggplot2
require(plotly)
## Loading required package: plotly
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
p=ggplot(data = datos,aes(x=as.factor(herbicida),y=delta))
g1=p+geom_boxplot()+theme_bw()
ggplotly(g1)
p=ggplot(data = datos,aes(x=as.factor(insecticida),y=delta))
g2=p+geom_boxplot()+theme_bw()
ggplotly(g2)