Primer Muestreo 14 de Mayo

Importando los datos y llamando librerias

library(readxl)
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.0.5
library(clhs)
## Warning: package 'clhs' was built under R version 4.0.5
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.0.5
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
df <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx")
#View(mapasarionegro)
ggplot(df)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c("red", "blue",  "pink",
                                     "yellow", "darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 7 de Mayo")

ggplot(df)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c( "blue",  "pink", "yellow", "darkolivegreen2",  "orange",  "darkgrey")))+
  geom_tile(color = 'black')+
  ggtitle("Ninfas evaluadas el 7 de Mayo")

Segundo Muestreo 14 de Mayo

library(readxl)
df2 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "14mayo")
#View(mapasarionegro)
ggplot(df2)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "blue",  "pink",
                                      "darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 14 de Mayo")

ggplot(df2)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c(  "pink",  "darkolivegreen2",  "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 14 de Mayo")

Tercer Muestreo 21 de Mayo

library(readxl)
df3 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "21mayo")
#View(mapasarionegro)
ggplot(df3)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "red",  "pink",
                                      "darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 21 de Mayo")

ggplot(df3)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c(  "red", "blue",  "pink",
                                     "yellow", "darkolivegreen2",  "orange","darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 21 de Mayo")

Cuarto Muestreo 28 de Mayo

library(readxl)
df4 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "28mayo")
#View(mapasarionegro)
ggplot(df4)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "blue",  "pink",
                                      "darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 28 de Mayo")

ggplot(df4)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c("pink","darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 28 de Mayo")

Quinto Muestreo 4 de Junio

library(readxl)
df5 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "4junio")
#View(mapasarionegro)
ggplot(df5)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "blue",  "pink",
                                      "darkolivegreen2",  "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 4 de Junio")

ggplot(df5)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c(  "blue", "pink","darkolivegreen2",  "orange" ,"darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 4 de Junio")

Sexto Muestreo 17 de Junio

library(readxl)
df6 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "17junio")
#View(mapasarionegro)
ggplot(df6)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "blue",  "pink",
                                      "darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 17 de Junio")

ggplot(df6)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c(  "pink","darkolivegreen2",  "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 17 de Junio")

Septimo Muestreo 23 de Junio

library(readxl)
df7 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "23junio")
#View(mapasarionegro)
ggplot(df7)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "blue",  "pink", "yellow",
                                      "darkolivegreen2",  "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 23 de Junio")

ggplot(df7)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c(  "blue","pink","darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 23 de Junio")

Octavo Muestreo 30 de Junio

library(readxl)
df8 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "30junio")
#View(mapasarionegro)
ggplot(df8)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "blue",  "pink",
                                      "darkolivegreen2",  "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 30 de Junio")

ggplot(df8)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c(  "blue","pink","darkolivegreen2",  "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 30 de Junio")

Noveno Muestreo 7 de Julio

library(readxl)
df9 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "7julio")
#View(mapasarionegro)
ggplot(df9)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "red", "blue", "pink","yellow",
                                      "darkolivegreen2","orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 7 de Julio")

ggplot(df9)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c( "blue","pink","yellow", "darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 7 de Julio")

Decimo Muestreo 14 de Julio

library(readxl)
df10 <- read_excel("C:/Users/ginna/Desktop/articulo/Thrips/baseDatos/mapasarionegro.xlsx", 
    sheet = "7julio")
#View(mapasarionegro)
ggplot(df10)+
  aes(x, y, fill=badultos )+
  scale_fill_manual(values = alpha(c( "red", "blue", "pink","yellow",
                                      "darkolivegreen2","orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
 ggtitle("Adultos evaluados el 7 de Julio")

ggplot(df10)+
  aes(x, y, fill=bninfas)+
  scale_fill_manual(values = alpha(c( "blue","pink","yellow", "darkolivegreen2", "orange", "darkgrey")))+
  geom_tile(color = 'black')+
  labs( fill = ' leyenda ')+
  ggtitle("Ninfas evaluadas el 14 de Julio")