No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultado
No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultadoNecesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.
ennys2_FCA <- ennys2_FCA %>%
Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.
rename(tipo_cuestionario = E_CUEST, ponderador = F_STG_calib, "leche, yogur y quesos 2-12 años" = T_C2_FCA_6_1_1, "frutas 2-12 años" = T_C2_FCA_6_1_2, "verduras 2-12 años" = T_C2_FCA_6_1_3, "carne roja 2-12 años" = T_C2_FCA_6_1_7, "pescado 2-12 años" = T_C2_FCA_6_1_8, "bebidas artificiales con azúcar 2-12 años" = T_C2_FCA_6_1_16, "facturas y pastelería 2-12 años" = T_C2_FCA_6_1_13, "golosinas 2-12 años" = T_C2_FCA_6_1_12, "productos de copetín 2-12 años" = T_C2_FCA_6_1_11, "leche, yogur y quesos 13-17 años"= T_C3_FCA_6_1_1, "frutas 13-17 años" = T_C3_FCA_6_1_2, "verduras 13-17 años" = T_C3_FCA_6_1_3, "carne roja 13-17 años" = T_C3_FCA_6_1_7, "pescado 13-17 años" = T_C3_FCA_6_1_8, "bebidas artificiales con azúcar 13-17 años" = T_C3_FCA_6_1_16, "facturas y pastelería 13-17 años" = T_C3_FCA_6_1_13, "golosinas 13-17 años" = T_C3_FCA_6_1_12, "productos de copetín 13-17 años" = T_C3_FCA_6_1_11, "leche, yogur y quesos 18 y más años" = T_C4_FCA_6_1_1, "frutas 18 y más años" = T_C4_FCA_6_1_2, "verduras 18 y más años" = T_C4_FCA_6_1_3, "carne roja 18 y más años" = T_C4_FCA_6_1_7, "pescado 18 y más años" = T_C4_FCA_6_1_8, "bebidas artificiales con azúcar 18 y más años" = T_C4_FCA_6_1_16, "facturas y pastelería 18 y más años" = T_C4_FCA_6_1_13, "golosinas 18 y más años" = T_C4_FCA_6_1_12, "productos de copetín 18 y más años" = T_C4_FCA_6_1_11 )
FCA_resumen <- function(variable_respuesta)
{
resultado <- ennys2_FCA %>%
filter({{variable_respuesta}} != " ") %>%
group_by({{variable_respuesta}}) %>%
summarise(FCA = sum(ponderador)) %>%
mutate(porc_FCA = round(FCA / sum(FCA) * 100, 1)) %>%
filter(
{{variable_respuesta}} == "1 vez al dÃa" |
{{variable_respuesta}} == "Entre 2 y 3 veces al dÃa" |
{{variable_respuesta}} == "Entre 4 y 5 veces al dÃa"|
{{variable_respuesta}} == "6 veces o más por dÃa") %>%
summarise(!!paste ("consumo al menos una vez al día de",{{variable_respuesta}} ) := sum(porc_FCA))
return(resultado)
}
resultado_cuestionario <- FCA_resumen(variable_respuesta = "frutas 2-12 años")
print(resultado_cuestionario)
ennys2_FCA <- ennys2_FCA %>%
rename(tipo_cuestionario = E_CUEST,
ponderador = F_STG_calib,
"leche, yogur y quesos 2-12 años" = T_C2_FCA_6_1_1,
"frutas 2-12 años" = T_C2_FCA_6_1_2,
"verduras 2-12 años" = T_C2_FCA_6_1_3,
"carne roja 2-12 años" = T_C2_FCA_6_1_7,
"pescado 2-12 años" = T_C2_FCA_6_1_8,
"bebidas artificiales con azúcar 2-12 años" = T_C2_FCA_6_1_16,
"facturas y pastelería 2-12 años" = T_C2_FCA_6_1_13,
"golosinas 2-12 años" = T_C2_FCA_6_1_12,
"productos de copetín 2-12 años" = T_C2_FCA_6_1_11,
"leche, yogur y quesos 13-17 años"= T_C3_FCA_6_1_1,
"frutas 13-17 años" = T_C3_FCA_6_1_2,
"verduras 13-17 años" = T_C3_FCA_6_1_3,
"carne roja 13-17 años" = T_C3_FCA_6_1_7,
"pescado 13-17 años" = T_C3_FCA_6_1_8,
"bebidas artificiales con azúcar 13-17 años" = T_C3_FCA_6_1_16,
"facturas y pastelería 13-17 años" = T_C3_FCA_6_1_13,
"golosinas 13-17 años" = T_C3_FCA_6_1_12,
"productos de copetín 13-17 años" = T_C3_FCA_6_1_11,
"leche, yogur y quesos 18 y más años" = T_C4_FCA_6_1_1,
"frutas 18 y más años" = T_C4_FCA_6_1_2,
"verduras 18 y más años" = T_C4_FCA_6_1_3,
"carne roja 18 y más años" = T_C4_FCA_6_1_7,
"pescado 18 y más años" = T_C4_FCA_6_1_8,
"bebidas artificiales con azúcar 18 y más años" = T_C4_FCA_6_1_16,
"facturas y pastelería 18 y más años" = T_C4_FCA_6_1_13,
"golosinas 18 y más años" = T_C4_FCA_6_1_12,
"productos de copetín 18 y más años" = T_C4_FCA_6_1_11
)
FCA_resumen <- function(variable_respuesta)
{
resultado <- ennys2_FCA %>%
filter({{variable_respuesta}} != " ") %>%
group_by({{variable_respuesta}}) %>%
summarise(FCA = sum(ponderador)) %>%
mutate(porc_FCA = round(FCA / sum(FCA) * 100, 1)) %>%
filter(
{{variable_respuesta}} == "1 vez al dÃa" |
{{variable_respuesta}} == "Entre 2 y 3 veces al dÃa" |
{{variable_respuesta}} == "Entre 4 y 5 veces al dÃa"|
{{variable_respuesta}} == "6 veces o más por dÃa") %>%
summarise(!!paste ("consumo al menos una vez al día de",{{variable_respuesta}} ) := sum(porc_FCA))
return(resultado)
}
resultado_cuestionario <- FCA_resumen(variable_respuesta = "frutas 2-12 años")
print(resultado_cuestionario)