
percepcion de la ciudadania

percepcion de la ciudadania

horapico
library(readr)
e1 <- read_csv("e1.csv")
View(e1)
pg <- (ggplot(e1, aes(fill=Tipo, x=Porcentaje, y=Tipo)) +
geom_bar(position="stack", stat="identity") + ggtitle("Problema ambiental mas importante para México"))
ggplotly(pg)
Se menciono un listado de problemas ambientales,que problema consideran el mas importante para Mexico? Se llego a la conclusion que el problema ambiental que mas importancia tiene para la poblacion es la contaminacion del aire, ya que fue la mas votada, con un porcentaje de 26.2%.
library(readr)
e1 <- read_csv("e2.csv")
pg <- (ggplot(e1, aes(fill=Tipo, x=Porcentaje, y=Tipo)) +
geom_bar(position="stack", stat="identity") + ggtitle("Cual problema es el que mas le afecta a su familia?"))
ggplotly(pg)
Se encuesto a la poblacion que problema ambiental es el que mas le afectaba a su familia y se obtuvo como mayor indice de respuesta la contaminacion del agua
library(readr)
e1 <- read_csv("e3.csv")
pg <- (ggplot(e1, aes(fill=Nivel, x=porcentaje, y=Nivel)) +
geom_bar(position="stack", stat="identity") + ggtitle("La contaminacion del aire causada por coches es..."))
ggplotly(pg)
En general, usted piensa que la contaminacion del aire causada por los coches es?… A esta pregunta se contesto mayormente que era muy peligrosa la contaminacion que se generaba a partir de los coches
library(readr)
e1 <- read_csv("e4.csv")
pg <- (ggplot(e1, aes(fill=Nivel, x=porcentaje, y=Nivel)) +
geom_bar(position="stack", stat="identity") + ggtitle("Usted piensa que la contaminacion de Rios y lagos es..."))
ggplotly(pg)
En general, usted piensa que la contaminacion de rios, lagos y arroyos es…? Se obtuvo como respuesta que la perspectiva de la gente hacia esta pregunta era que era muy peligrosa la contaminacion de rios, lagos y a arroyos, ya que esto perjudica mayormente a sus familias y su calidad de vida.
library(readr)
e1 <- read_csv("e5.csv")
pg <- (ggplot(e1, aes(fill=Nivel, x=porcentaje, y=Nivel)) +
geom_bar(position="stack", stat="identity") + ggtitle("Con que frecuencia separa vidrio, plastico, papel, etc?"))
ggplotly(pg)
Se encuesto con que frecuencia hacian un esfuerzo especial para separar todo aquello que sea vidrio, metal, platico o papel para reciclaje La mayoria de las respuestas fueron que algunas veces, ya que no se le toma la importancia debida a la separacion de basura, menos al reciclaje.
library(readr)
e1 <- read_csv("e6.csv")
pg <- (ggplot(e1, aes(fill=Nivel, x=porcentaje, y=Nivel)) +
geom_bar(position="stack", stat="identity") + ggtitle("Con que frecuencia deja de utilizar su coche por razones ambientales"))
ggplotly(pg)
Con que frecuencia ha dejado usted de utilizar su coche por razones medioambientales? Se obtuvo como respuesta que el 31.8% de las personas encuestadas han dejado de utilizar su coche para ayudar al medioambiente
library(readr)
e1 <- read_csv("e7.csv")
pg <- (ggplot(e1, aes(fill=Nivel, x=porcentaje, y=Nivel)) +
geom_bar(position="stack", stat="identity") + ggtitle("Esta a favor de aumentar precios para proteger el medio ambiente"))
ggplotly(pg)
Que tan a favor estaria usted de pagar precios mas elevados con el fin de proteger el medio ambiente? Se obtuvo como respuesta que la mayoria de las personas siendo el 32.5% estan muy en contra de esta opcion.