Boxplot

setwd("C:/Users/PEDRO GONZALEZ/Documents")
library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.5     v dplyr   1.0.7
## v tidyr   1.1.4     v stringr 1.4.0
## v readr   2.0.2     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

df<-read.csv("Methio.csv")
df$Lugar<-factor(df$Lugar)

modelo<-aov(Cyprodinil~Lugar,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value   Pr(>F)    
## Lugar        1  166.1  166.06   27.39 5.62e-06 ***
## Residuals   40  242.5    6.06                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

boxplot(Cyprodinil~Lugar,data=df)

modelo<-aov(Picoxystrobin~Lugar,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value   Pr(>F)    
## Lugar        1  10.07  10.071   31.68 1.57e-06 ***
## Residuals   40  12.71   0.318                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

boxplot(Picoxystrobin~Lugar,data=df)

modelo<-aov(Fenpropimorfe~Lugar,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value Pr(>F)
## Lugar        1    2.2   2.212   0.132  0.718
## Residuals   40  670.7  16.768

boxplot(Fenpropimorfe~Lugar,data=df)

modelo<-aov(Cyproconazole~Lugar,data=df)
summary(modelo)

##             Df  Sum Sq Mean Sq F value Pr(>F)
## Lugar        1   30312   30312   0.976  0.329
## Residuals   40 1242060   31051

boxplot(Cyproconazole~Lugar,data=df)