Untitled

library(readr)
encuesta <- read_csv("C:/Users/kitkat/OneDrive/Escritorio/python/encuesta.csv", 
    col_types = cols(StartDate = col_skip(), 
        EndDate = col_skip(), Status = col_skip(), 
        IPAddress = col_skip(), Progress = col_skip(), 
        `Duration (in seconds)` = col_skip(), 
        Finished = col_skip(), RecordedDate = col_skip(), 
        ResponseId = col_skip(), RecipientLastName = col_skip(), 
        RecipientFirstName = col_skip(), 
        RecipientEmail = col_skip(), ExternalReference = col_skip(), 
        LocationLatitude = col_skip(), LocationLongitude = col_skip(), 
        DistributionChannel = col_skip(), 
        UserLanguage = col_skip()))
View(encuesta)

library(pacman)
p_load("ggplot2","dplyr")

ggplot(slice(encuesta,2:210),
       mapping = aes(x=Q3, fill=Q3))+
    geom_bar(position="dodge", stat="count")+ labs(title = "Edades de los participantes", x="Años",y="")+
    coord_flip()

ggplot(slice(encuesta,2:210),
       mapping = aes(x=Q5, fill=Q5))+
    geom_bar(position="dodge", stat="count")+ labs(title = "Nivel dentro de su organización", x="Nivel",y="")+
coord_flip()