Estadísticas descriptivas

Asignación

\[Mapear\ (con\ coordenadas)\ el\ resto\ de\ variables,\ no\ necesariamente\ con\ 4\ grupos\]

XPABLO <- read_excel("C:/Users/admin/Downloads/XPABLO (2).xlsx")
XPABLO <- XPABLO[-c(16,17,18,19)]
View(XPABLO)
CategoriaCa <- cut(x = XPABLO$Ca, breaks = 4) 
unique(CategoriaCa)
## [1] (5.49,10.2]  (0.722,5.49] (10.2,15]    (15,19.7]   
## Levels: (0.722,5.49] (5.49,10.2] (10.2,15] (15,19.7]
gr1<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaCa)) + 
  geom_point()

gr1+
  ggtitle("Coordenadas de calcio cuatro grupos")

CategoriaCa1 <- cut(x = XPABLO$Ca, breaks = 2) 
unique(CategoriaCa1)
## [1] (0.722,10.2] (10.2,19.7] 
## Levels: (0.722,10.2] (10.2,19.7]
gr1<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaCa1)) + 
  geom_point()

gr1+
  ggtitle("Coordenadas de calcio dos grupos")

CategoriaMg<- cut(x = XPABLO$Mg, breaks = 4) 
unique(CategoriaMg)
## [1] (1.51,3]      (0.0205,1.51] (4.48,5.97]   (3,4.48]     
## Levels: (0.0205,1.51] (1.51,3] (3,4.48] (4.48,5.97]
gr2<-ggplot(XPABLO, aes(x = Long, y = Lat, color =CategoriaMg)) + 
  geom_point()

gr2+
  ggtitle("Coordenadas de Magnesio cuatro grupos")

CategoriaMg<- cut(x = XPABLO$Mg, breaks = 2) 
unique(CategoriaMg)
## [1] (0.0205,3] (3,5.97]  
## Levels: (0.0205,3] (3,5.97]
gr2<-ggplot(XPABLO, aes(x = Long, y = Lat, color =CategoriaMg)) + 
  geom_point()

gr2+
  ggtitle("Coordenadas de Magnesio dos grupos")

CategoriaK <- cut(x = XPABLO$K, breaks = 4) 
unique(CategoriaK)
## [1] (0.00442,0.209] (0.413,0.616]   (0.209,0.413]   (0.616,0.821]  
## Levels: (0.00442,0.209] (0.209,0.413] (0.413,0.616] (0.616,0.821]
gr3<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaK)) + 
  geom_point()

gr3+
  ggtitle("Coordenadas de Potasio cuatro grupos")

CategoriaK <- cut(x = XPABLO$K, breaks = 2) 
unique(CategoriaK)
## [1] (0.00442,0.413] (0.413,0.821]  
## Levels: (0.00442,0.413] (0.413,0.821]
gr3<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaK)) + 
  geom_point()

gr3+
  ggtitle("Coordenadas de Potasio dos grupos")

CategoriaNa<- cut(x = XPABLO$Na, breaks = 4)
unique(CategoriaNa)
## [1] (0.236,0.424]  (0.0474,0.236] (0.424,0.612]  (0.612,0.801] 
## Levels: (0.0474,0.236] (0.236,0.424] (0.424,0.612] (0.612,0.801]
gr4<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaNa)) + 
  geom_point()

gr4+
  ggtitle("Coordenadas de Sodio cuatro grupos")

CategoriaNa<- cut(x = XPABLO$Na, breaks = 2)
unique(CategoriaNa)
## [1] (0.0474,0.424] (0.424,0.801] 
## Levels: (0.0474,0.424] (0.424,0.801]
gr4<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaNa)) + 
  geom_point()

gr4+
  ggtitle("Coordenadas de Sodio dos grupos")

CategoriaFe <- cut(x = XPABLO$Fe, breaks = 4) 
unique(CategoriaFe)
## [1] (11.3,300]     (300,588]      (588,877]      (877,1.17e+03]
## Levels: (11.3,300] (300,588] (588,877] (877,1.17e+03]
gr5<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaFe)) + 
  geom_point()

gr5+
  ggtitle("Coordenadas de Hierro cuatro grupos")

CategoriaFe <- cut(x = XPABLO$Fe, breaks = 2) 
unique(CategoriaFe)
## [1] (11.3,588]     (588,1.17e+03]
## Levels: (11.3,588] (588,1.17e+03]
gr5<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaFe)) + 
  geom_point()

gr5+
  ggtitle("Coordenadas de Hierro dos grupos")

CategoriaCu <- cut(x = XPABLO$Cu, breaks = 4) 
unique(CategoriaCu)
## [1] (3.03,5.56] (0.49,3.03] (5.56,8.1]  (8.1,10.6] 
## Levels: (0.49,3.03] (3.03,5.56] (5.56,8.1] (8.1,10.6]
gr6<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaCu) ) + 
  geom_point()

gr6+
  ggtitle("Coordenadas de Cobre cuatro grupos")

CategoriaCu <- cut(x = XPABLO$Cu, breaks = 2) 
unique(CategoriaCu)
## [1] (0.49,5.56] (5.56,10.6]
## Levels: (0.49,5.56] (5.56,10.6]
gr6<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaCu) ) + 
  geom_point()

gr6+
  ggtitle("Coordenadas de Cobre dos grupos")

CategoriaZn <- cut(x = XPABLO$Zn, breaks = 4) 
unique(CategoriaZn)
## [1] (0.488,3.38] (3.38,6.25]  (6.25,9.13]  (9.13,12]   
## Levels: (0.488,3.38] (3.38,6.25] (6.25,9.13] (9.13,12]
gr7<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaZn) ) + 
  geom_point()

gr7+
  ggtitle("Coordenadas de Zinc cuatro grupos")

CategoriaZn <- cut(x = XPABLO$Zn, breaks = 2) 
unique(CategoriaZn)
## [1] (0.488,6.25] (6.25,12]   
## Levels: (0.488,6.25] (6.25,12]
gr7<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaZn) ) + 
  geom_point()

gr7+
  ggtitle("Coordenadas de Zinc dos grupos")

CategoriaMO <- cut(x = XPABLO$MO, breaks = 4) 
unique(CategoriaMO)
## [1] (1.52,2.54]  (2.54,3.57]  (0.486,1.52] (3.57,4.6]  
## Levels: (0.486,1.52] (1.52,2.54] (2.54,3.57] (3.57,4.6]
gr8<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaMO) ) +
  geom_point()

gr8+
  ggtitle("Coordenadas de Materia orgánica cuatro grupos")

CategoriaMO <- cut(x = XPABLO$MO, breaks = 2) 
unique(CategoriaMO)
## [1] (0.486,2.54] (2.54,4.6]  
## Levels: (0.486,2.54] (2.54,4.6]
gr8<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaMO) ) +
  geom_point()

gr8+
  ggtitle("Coordenadas de Materia orgánica dos grupos")

CategoriaCE <- cut(x = XPABLO$CE, breaks = 4) 
unique(CategoriaCE)
## [1] (0.0446,0.257] (0.257,0.468]  (0.679,0.891]  (0.468,0.679] 
## Levels: (0.0446,0.257] (0.257,0.468] (0.468,0.679] (0.679,0.891]
gr8<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaCE) ) +
  geom_point()

gr8+
  ggtitle("Coordenadas de conductividad eléctrica cuatro grupos")

CategoriaCE <- cut(x = XPABLO$CE, breaks = 2) 
unique(CategoriaCE)
## [1] (0.0446,0.468] (0.468,0.891] 
## Levels: (0.0446,0.468] (0.468,0.891]
gr8<-ggplot(XPABLO, aes(x = Long, y = Lat, color = CategoriaCE) ) +
  geom_point()

gr8+
  ggtitle("Coordenadas de conductividad eléctrica dos grupos")