harrys

library("ggplot2")

## Warning: package 'ggplot2' was built under R version 4.2.3

library("readxl")

## Warning: package 'readxl' was built under R version 4.2.3

file_path4<- "C:/Users/PLOZANO/Desktop/Maestria en Ciencias de Datos/Machin Learning/EXCEL PARA MAPA.xlsx"
dataelianaa<- read_excel(file_path4)
composieliana <-dataelianaa
View(composieliana)
#esquisse
#library(esquisse)
#esquisser(composieliana)

ggplot(composieliana) +
  aes(x = Sitios, y = `%`, fill = Sitios) +
  geom_col() +
  scale_fill_hue(direction = 1) +
  labs(
    x = "Tipos de Residuos ",
    y = "% de Tipos de residuos Generados",
    title = "La generación de tipos de residuos por Locales "
  ) +
  theme_minimal() +
  facet_wrap(vars(`Tipos de residuos sólidos1`))

ggplot(composieliana) +
  aes(x = `%`, y = Sitios) +
  geom_bar(stat = "summary", fun = "sum") +
  scale_fill_hue(direction = 1) +
  labs(
    x = "Tipos de Residuos ",
    y = "% de Tipos de residuos Generados",
    title = "La generación de tipos de residuos por Locales "
  ) +
  theme_minimal() +
  facet_wrap(vars(`Tipos de residuos sólidos`))

ggplot(composieliana) +
  aes(x = `%`, y = Sitios, fill = Sitios) +
  geom_bar(stat = "summary", fun = "sum") +
  scale_fill_hue(direction = 1) +
  labs(
    x = "Tipos de Residuos ",
    y = "% de Tipos de residuos Generados",
    title = "La generación de tipos de residuos por Locales "
  ) +
  theme_minimal() +
  facet_wrap(vars(`Tipos de residuos sólidos`))

ggplot(composieliana) +
  aes(x = `%`, y = `Tipos de residuos sólidos`) +
  geom_boxplot(fill = "#112446") +
  theme_minimal()

ggplot(composieliana) +
  aes(
    x = `%`,
    y = `Tipos de residuos sólidos`,
    fill = `Tipos de residuos sólidos`
  ) +
  geom_bar(stat = "summary", fun = "sum") +
  scale_fill_hue(direction = 1) +
  theme_minimal() +
  facet_wrap(vars(Sitios))