Introduccion
introduccion.Rmd
library(pulso)
#> Warning: replacing previous import 'flextable::rotate' by 'ggpubr::rotate' when
#> loading 'pulso'
#> Warning: replacing previous import 'flextable::font' by 'ggpubr::font' when
#> loading 'pulso'
#> Warning: replacing previous import 'flextable::border' by 'ggpubr::border' when
#> loading 'pulso'
#> Warning: replacing previous import 'cowplot::get_legend' by 'ggpubr::get_legend'
#> when loading 'pulso'
#> Warning: replacing previous import 'flextable::continuous_summary' by
#> 'gtsummary::continuous_summary' when loading 'pulso'
#> Warning: replacing previous import 'flextable::as_flextable' by
#> 'gtsummary::as_flextable' when loading 'pulso'
#> Warning: replacing previous import 'flextable::as_image' by
#> 'kableExtra::as_image' when loading 'pulso'
#> Warning: replacing previous import 'flextable::footnote' by
#> 'kableExtra::footnote' when loading 'pulso'
#> Warning: replacing previous import 'cowplot::stamp' by 'lubridate::stamp' when
#> loading 'pulso'
#> Warning: replacing previous import 'flextable::highlight' by 'plotly::highlight'
#> when loading 'pulso'
#> Warning: replacing previous import 'graphics::layout' by 'plotly::layout' when
#> loading 'pulso'
#> Warning: replacing previous import 'flextable::style' by 'plotly::style' when
#> loading 'pulso'
#> Warning: replacing previous import 'Hmisc::subplot' by 'plotly::subplot' when
#> loading 'pulso'
#> Warning: replacing previous import 'plotly::export' by 'rio::export' when
#> loading 'pulso'
#> Warning: replacing previous import 'haven::zap_labels' by
#> 'sjlabelled::zap_labels' when loading 'pulso'
#> Warning: replacing previous import 'haven::write_sas' by 'sjlabelled::write_sas'
#> when loading 'pulso'
#> Warning: replacing previous import 'haven::read_sas' by 'sjlabelled::read_sas'
#> when loading 'pulso'
#> Warning: replacing previous import 'haven::as_factor' by 'sjlabelled::as_factor'
#> when loading 'pulso'
#> Warning: replacing previous import 'haven::read_stata' by
#> 'sjlabelled::read_stata' when loading 'pulso'
#> Warning: replacing previous import 'haven::read_spss' by 'sjlabelled::read_spss'
#> when loading 'pulso'
#> Warning: replacing previous import 'gtsummary::matches' by 'testthat::matches'
#> when loading 'pulso'
#> Warning: replacing previous import 'Hmisc::describe' by 'testthat::describe'
#> when loading 'pulso'Barra multiple
# data_prueba %>%
# filter(q0002 %in% 1) %>%
# barra_multiple(starts_with("q0004_0"))Barra apilada
# data_prueba_ruta <- system.file("data_prueba.sav", package = "pulso")
# data_prueba <- haven::read_sav(data_prueba_ruta)
#
# data_prueba %>%
# filter(q0002 %in% 1) %>%
# barra_apilada_1(q0003_0002)Grafico donut
# data_prueba_ruta <- system.file("data_prueba.sav", package = "pulso")
# data_prueba <- haven::read_sav(data_prueba_ruta)
#
# data_prueba %>%
# grafico_donut(sexo)Grafico pie
# data_prueba_ruta <- system.file("data_prueba.sav", package = "pulso")
# data_prueba <- haven::read_sav(data_prueba_ruta)
#
# data_prueba %>%
# grafico_donut(sexo)Grafico radar
# data_prueba_ruta <- system.file("data_prueba.sav", package = "pulso")
# data_prueba <- haven::read_sav(data_prueba_ruta)
#
# radar<-
# data_prueba %>%
# select(starts_with("q0008_")) %>%
# sjlabelled::label_to_colnames() %>%
# pivot_longer(everything(), names_to = "pregunta", values_to = "numero") %>%
# mutate(nombres=sjlabelled::as_label(numero)) %>%
# group_by(pregunta, numero, nombres) %>%
# dplyr::summarize(Freq = n()) %>%
# group_by(pregunta) %>%
# dplyr::mutate(prop = round_half_up(Freq/sum(Freq), digits = 2),
# numero = as.character(numero),
# nombres = as.character(nombres)) %>%
# separate(pregunta, c("Servicio","group", NA), sep=" - ") %>%
# filter(nombres!="No") %>%
# select(-c(numero, nombres, Freq)) %>%
# group_by(group) %>%
# pivot_wider(names_from = Servicio, values_from = prop) %>%
# mutate(
# group=case_when(
# group %in% "Conoce este servicio de bienestar que brinda la universidad" ~ "Lo conoce",
# TRUE ~ group)
# ) %>%
# ungroup()
#
# radar.tag<-
# data_prueba %>%
# select(starts_with("q0008_")) %>%
# nrow()
#
# radar %>%
# select(group, `Servicio de Salud`, `Servicio de actividad fisica y deportes`, `Bienestar psicologico`, `Servicios Culturales`) %>%
# grafico_radar(polygonfill = FALSE,
# grid.label.size = 3,
# axis.label.size = 3,
# group.line.width = 1,
# fullscore = as.numeric(rep(1,ncol(.)-1))
# ) +
#
# labs(caption = "Elaborado por Pulso PUCP",
# tag = glue("N=",radar.tag)) +
#
# theme(legend.title = element_blank(),legend.position = "bottom",legend.text = element_text(size=10, face = "bold",family="sans"),legend.key.height = unit(.2, "cm"),
# plot.caption = element_text(face = "italic",family="sans"),plot.margin = unit(c(0,0,1,0),"cm"),plot.tag = element_text(size = 8, color="grey40"),plot.tag.position = "bottomleft",
#
# text = element_text(size = 9, color="#002060",family="sans"),
# ) +
# guides(color=guide_legend(nrow = 2, byrow = TRUE)) +
# coord_equal(clip="off")Tablas de cruces
# data_prueba_ruta <- system.file("data_prueba.sav", package = "pulso")
# data_prueba <- haven::read_sav(data_prueba_ruta)
#
# radar<-
# data_prueba %>%
# select(starts_with("q0008_")) %>%
# sjlabelled::label_to_colnames() %>%
# pivot_longer(everything(), names_to = "pregunta", values_to = "numero") %>%
# mutate(nombres=sjlabelled::as_label(numero)) %>%
# group_by(pregunta, numero, nombres) %>%
# dplyr::summarize(Freq = n()) %>%
# group_by(pregunta) %>%
# dplyr::mutate(prop = round_half_up(Freq/sum(Freq), digits = 2),
# numero = as.character(numero),
# nombres = as.character(nombres)) %>%
# separate(pregunta, c("Servicio","group", NA), sep=" - ") %>%
# filter(nombres!="No") %>%
# select(-c(numero, nombres, Freq)) %>%
# group_by(group) %>%
# pivot_wider(names_from = Servicio, values_from = prop) %>%
# mutate(
# group=case_when(
# group %in% "Conoce este servicio de bienestar que brinda la universidad" ~ "Lo conoce",
# TRUE ~ group)
# ) %>%
# ungroup()
#
# radar.tag<-
# data_prueba %>%
# select(starts_with("q0008_")) %>%
# nrow()
#
# radar %>%
# select(group, `Servicio de Salud`, `Servicio de actividad fisica y deportes`, `Bienestar psicologico`, `Servicios Culturales`) %>%
# grafico_radar(polygonfill = FALSE,
# grid.label.size = 3,
# axis.label.size = 3,
# group.line.width = 1,
# fullscore = as.numeric(rep(1,ncol(.)-1))
# ) +
#
# labs(caption = "Elaborado por Pulso PUCP",
# tag = glue("N=",radar.tag)) +
#
# theme(legend.title = element_blank(),legend.position = "bottom",legend.text = element_text(size=10, face = "bold",family="sans"),legend.key.height = unit(.2, "cm"),
# plot.caption = element_text(face = "italic",family="sans"),plot.margin = unit(c(0,0,1,0),"cm"),plot.tag = element_text(size = 8, color="grey40"),plot.tag.position = "bottomleft",
#
# text = element_text(size = 9, color="#002060",family="sans"),
# ) +
# guides(color=guide_legend(nrow = 2, byrow = TRUE)) +
# coord_equal(clip="off")Salto
# data_prueba_ruta <- system.file("data_prueba.sav", package = "pulso")
# data_prueba <- haven::read_sav(data_prueba_ruta)
#
# radar<-
# data_prueba %>%
# select(starts_with("q0008_")) %>%
# sjlabelled::label_to_colnames() %>%
# pivot_longer(everything(), names_to = "pregunta", values_to = "numero") %>%
# mutate(nombres=sjlabelled::as_label(numero)) %>%
# group_by(pregunta, numero, nombres) %>%
# dplyr::summarize(Freq = n()) %>%
# group_by(pregunta) %>%
# dplyr::mutate(prop = round_half_up(Freq/sum(Freq), digits = 2),
# numero = as.character(numero),
# nombres = as.character(nombres)) %>%
# separate(pregunta, c("Servicio","group", NA), sep=" - ") %>%
# filter(nombres!="No") %>%
# select(-c(numero, nombres, Freq)) %>%
# group_by(group) %>%
# pivot_wider(names_from = Servicio, values_from = prop) %>%
# mutate(
# group=case_when(
# group %in% "Conoce este servicio de bienestar que brinda la universidad" ~ "Lo conoce",
# TRUE ~ group)
# ) %>%
# ungroup()
#
# radar.tag<-
# data_prueba %>%
# select(starts_with("q0008_")) %>%
# nrow()
#
# radar %>%
# select(group, `Servicio de Salud`, `Servicio de actividad fisica y deportes`, `Bienestar psicologico`, `Servicios Culturales`) %>%
# grafico_radar(polygonfill = FALSE,
# grid.label.size = 3,
# axis.label.size = 3,
# group.line.width = 1,
# fullscore = as.numeric(rep(1,ncol(.)-1))
# ) +
#
# labs(caption = "Elaborado por Pulso PUCP",
# tag = glue("N=",radar.tag)) +
#
# theme(legend.title = element_blank(),legend.position = "bottom",legend.text = element_text(size=10, face = "bold",family="sans"),legend.key.height = unit(.2, "cm"),
# plot.caption = element_text(face = "italic",family="sans"),plot.margin = unit(c(0,0,1,0),"cm"),plot.tag = element_text(size = 8, color="grey40"),plot.tag.position = "bottomleft",
#
# text = element_text(size = 9, color="#002060",family="sans"),
# ) +
# guides(color=guide_legend(nrow = 2, byrow = TRUE)) +
# coord_equal(clip="off")