formato_categorias: Función formato categorías para preguntas categóricas y...

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

Función formato categorías para preguntas categóricas y múltiples

Description

El vector obtenido con la función categorias_pregunta_formato() se escribe en un workbook de Excel

Usage

formato_categorias(
tabla,
pregunta,
diseño,
datos,
DB_Mult,
wb,
renglon,
columna = 4,
hojas,
estilo_cuerpo,
tipo_pregunta
)

Arguments

tabla	Tabla cruzada creada por la función total_general()
pregunta	Nombre de la pregunta sobre la cual se creo la tabla
diseño	Diseño muestral que se ocupará según el tipo de pregunta
datos	Conjunto de datos en formato .sav
DB_Mult	Data frame con las preguntas múltiples
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 el vector de categorías
columna	Columna en la cual se desea empezar a escribir las tablas. SIEMPRE EN LA CUARTA COLUMNA
hojas	Vector de número de hojas en el cual se desea insertar los vectores
estilo_cuerpo	Estilo que indica cómo se desea formatear el vector en las hojas de excel
tipo_pregunta	Tipo de pregunta_ 'categorica', 'multiple', 'continua'

Details

Una vez escrito el vector colapsa celdas (3 o 4)

Author(s)

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

See Also

mergeCells addStyle createStyle

Examples

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

# Estilos
bodyStyle <- createStyle(
  halign = "center", border = "TopBottomLeftRight",
  borderColour = "black", borderStyle = "thin",
  valign = "center", wrapText = TRUE
)

# 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()
Lista_Cont <- read_xlsx("aux/Lista de Preguntas.xlsx",
  sheet = "Continuas"
)$VARIABLE %>% as.vector()
Dominios <- read_xlsx("aux/Lista de Preguntas.xlsx", sheet = "Dominios")$Dominios %>% as.vector()

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

total <- total_general(
  diseño = disenio_mult, pregunta = "P1", dominio = "General", datos = dataset,
  DB_Mult = DB_Mult, tipo_pregunta = "multiple"
)

formato_categorias(
  tabla = total, pregunta = "P1", diseño = disenio_mult, datos = dataset,
  DB_Mult = DB_Mult, wb = wb, renglon = c(1, 1), columna = 4, hojas = c(1, 2), estilo_cuerpo = bodyStyle, tipo_pregunta = "multiple"
)

openxlsx::openXL(wb)

## End(Not run)

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