Graficas

library(ggplot2)
df<-read.csv("methio.csv")

library(ggplot2)
Data<-cut(df$Cyproconazole,breaks=c(0,8.65,20,30,40,50,Inf),labels=c('<LOD','8.66-20','20-30','30-40','40-50','1000-1200'),include.lowest =TRUE)
Data=data.frame(value=Data)
Data$value=factor(Data$value)
ggplot(data = Data, mapping = aes(x=value)) + 
  geom_bar(fill="bisque",color="gray",alpha=1.0) + 
  stat_count(geom="text", aes(label=sprintf("%d",..count..)), vjust=-0.5) +
  labs(x='[Ciproconazol] ug/Kg',y='Número de Muestras') +
  theme_minimal() +ylim(0, 60)+geom_text(x=1.5, y=52,size=3, label="LOD=8.65")

library(ggplot2)
Data<-cut(df$Cyprodinil,breaks=c(0,1.21,5,10,15,20),labels=c('<LOD','1.21-5','5-10','10-15','15-20'),include.lowest =TRUE)
Data=data.frame(value=Data)
Data$value=factor(Data$value)
ggplot(data = Data, mapping = aes(x=value)) + 
  geom_bar(fill="bisque",color="gray",alpha=1.0) + 
  stat_count(geom="text", aes(label=sprintf("%d",..count..)), vjust=-0.5) +
  labs(x='[Cyprodinil] ug/Kg',y='Número de Muestras') +
  theme_minimal() +ylim(0, 35)+geom_text(x=1.0, y=32,size=3, label="LOD=1.21")

library(ggplot2)
Data<-cut(df$Picoxystrobin,breaks=c(0,1.35,2,4,6,Inf),labels=c('<LOD','1.36-2','2-4','4-6','6-8'),include.lowest =TRUE)
Data=data.frame(value=Data)
Data$value=factor(Data$value)
ggplot(data = Data, mapping = aes(x=value)) + 
  geom_bar(fill="bisque",color="gray",alpha=1.0) + 
  stat_count(geom="text", aes(label=sprintf("%d",..count..)), vjust=-0.5) +
  labs(x='[Picoxystrobin] ug/Kg',y='Número de Muestras') +
  theme_minimal() +ylim(0, 50)+geom_text(x=1.0, y=47,size=3, label="LOD=1.35")

library(ggplot2)
Data<-cut(df$Fenpropimorfe,breaks=c(0,28.4,60,70,80,Inf),labels=c('<LOD','28.5-60','60-70','70-80','80-90'),include.lowest =TRUE)
Data=data.frame(value=Data)
Data$value=factor(Data$value)
ggplot(data =Data, mapping = aes(x=value)) + 
  geom_bar(fill="bisque",color="gray",alpha=1.0) + 
  stat_count(geom="text", aes(label=sprintf("%d",..count..)), vjust=-0.5) +
  labs(x='[Fenpropimorfe] ug/Kg',y='Número de Muestras') +
  theme_minimal() +ylim(0, 40)+geom_text(x=1.5, y=37,size=3, label="LOD=28.4")