tablas_cruzadas_excel: Función tablas cruzadas en Excel

In Acturio/rsrvyest: Realiza estimaciones estadísticas de encuestas probabilísticas

Función tablas cruzadas en Excel

Description

Escribe los títulos 'Tablas cruzadas' y 'Tablas cruzadas (dispersión)', logo indicado, título de la pregunta, tabla crzada total y pie de tabla en las hojas y renglones mencionados por el usuario

Usage

tablas_cruzadas_excel(
pregunta,
num_pregunta,
dominios,
datos,
DB_Mult,
lista_preguntas,
diseño,
wb,
renglon,
columna,
hojas ,
tipo_pregunta,
fuente,
pie_tabla,
organismo_participacion,
logo_path,
estilo_encabezado = headerStyle,
estilo_columnas = verticalStyle,
estilo_categorias = bodyStyle,
estilo_horizontal = horizontalStyle,
estilo_total = totalStyle
)

Arguments

pregunta	Nombre de la pregunta sobre la cual se desea obtener la tabla cruzada e incluirla en un workbook de Excel
num_pregunta	Número de pregunta
dominios	Vector el cual contiene los nombres de los dominios sobre los cuales se desean obtener sus respectivas tablas cruzadas
DB_Mult	Data frame con las preguntas múltiples
lista_preguntas	Data frame que contiene los títulos de las pregunta
diseño	Diseño muestral que se ocupará según el tipo de pregunta
wb	Workbook de Excel que contiene al menos dos hojas
renglon	Vector tamaño 2 especificando el número de renglon en el cual se desea empezar a escribir la tabla 1 y tabla 2 respectivamente
columna	Columna en la cual se desea empezar a escribir las tablas
hojas	Vector de número de hojas en el cual se desea insertar las tablas
tipo_pregunta	Tipo de pregunta_ 'categorica', 'multiple', 'continua'
fuente	Nombre del proyecto
pie_tabla	Pie de tabla
organismo_participacion	Organismos que participaron en el proyecto, por ejemplo, 'Ciudadanía Mexicana'
logo_path	Path del logo de la UNAM
estilo_encabezado	estilo el cual se desea usar para los nombres de las columnas
estilo_horizontal	estilo último renglón horizontal
estilo_total	estilo el cual se desea usar para la columna total

Details

Esta función envuelve todas las funciones creadas para obtener las tablas cruzadas, por lo que esta función es la única que se deberá llamar para crear las tablas cruzadas de las preguntas deseadas e insertarlas en ciertas hojas de Excel

Es necesario crear al menos dos hojas de excel con la función addWorksheet de la paquetería openxlsx

El estilo_total se recomienda crear un estilo con la función createStyle de openxlsx con el formato que se desea, por ejemplo "###,###,###.0"

El estilo_horizontal hace referencia al tipo de lineado horizontal se desea en el úntimo renglón de la tabla

El estilo_encabezado hace referencia al tipo de bordes, alineación, color, etc. que se desea obtener en el nombre de las columnas de la tabla cruzada final

Author(s)

Bringas Arturo, Rosales Cinthia, Salgado Iván, Torres Ana

See Also

writeData createStyle setRowHeights insertImage mergeCells

Examples

## Not run: 
# Creación del workbook
wb <- createWorkbook()
addWorksheet(wb, "Tablas cruzadas")
addWorksheet(wb, "Tablas cruzadas (dispersión)")

# Estilos
headerStyle <- createStyle(
  fontSize = 11, fontColour = "black", halign = "center",
  border = "TopBottom", borderColour = "black",
  borderStyle = c("thin", "double"), textDecoration = "bold"
)
totalStyle <- createStyle(numFmt = "###,###,###.0")
horizontalStyle <- createStyle(
  border = "bottom",
  borderColour = "black", borderStyle = "thin", valign = "center"
)

# Carga de datos
dataset <- read.spss("data/BASE_CONACYT_260118.sav", to.data.frame = TRUE)
Lista_Preg <- read_xlsx("aux/Lista de Preguntas.xlsx",
  sheet = "Lista Preguntas"
)$Nombre %>% as.vector()
DB_Mult <- read_xlsx("aux/Lista de Preguntas.xlsx",
  sheet = "Múltiple"
) %>% as.data.frame()

# Diseño
disenio_mult <- disenio(id = c(CV_ESC, ID_DIAO), estrato = ESTRATO, pesos = Pondi1, reps = FALSE, datos = dataset)

tablas_cruzadas_excel(
  pregunta = "P1",
  num_pregunta = 1,
  dominios = Dominios,
  datos = dataset,
  DB_Mult = DB_Mult,
  lista_preguntas = Lista_Preg,
  diseño = disenio_mult,
  wb = wb,
  renglon = c(1, 1),
  columna = 1,
  hojas = c(1, 2),
  tipo_pregunta = "multiple",
  fuente = "Conacyt 2018",
  pie_tabla = "Conacyt 2018",
  organismo_participacion = "Ciudadanía mexicana",
  logo_path = "img/logo_unam.png",
  estilo_encabezado = headerStyle,
  estilo_horizontal = horizontalStyle,
  estilo_total = totalStyle
)
openxlsx::openXL(wb)

## End(Not run)

Acturio/rsrvyest documentation built on June 14, 2022, 7:30 p.m.