Skip to main content
se eliminaron 8 caracteres en el cuerpo
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72
  1. 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 resultado
  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

    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 )

    Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.
    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)
  1. No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultado

  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

    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)
  1. No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultado
  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

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)
se añadieron 1696 caracteres en el cuerpo
Origen Enlace
  1. 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 resultado

  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

    Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

    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 )

  1. No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultado
  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.
  1. No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultado

  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

    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 )

se añadieron 11 caracteres en el cuerpo
Origen Enlace
Marcos
  • 35.7k
  • 7
  • 36
  • 70

Estoy armando una función para analizar la base de datos de la Encuesta Nacional de Nutrición y Salud 2018-2019 (Ennys2) y tengo dos dudas puntuales, en relación con los avances del código:

  1. 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 resultado
  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

    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)

    Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.
    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)

Estoy armando una función para analizar la base de datos de la Encuesta Nacional de Nutrición y Salud 2018-2019 (Ennys2) y tengo dos dudas puntuales, en relación con los avances del código:

  1. No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultado

  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

    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)

Estoy armando una función para analizar la base de datos de la Encuesta Nacional de Nutrición y Salud 2018-2019 (Ennys2) y tengo dos dudas puntuales, en relación con los avances del código:

  1. No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultado
  2. Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.
    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)
Origen Enlace
Loading