Estoy intentando replicar un índice en función de ciertas variables que aquí se pueden visualizar.
Es por esto que cree un data frame con las variables que utiliza para codificar, que se puede ver en mi repositorio. El archivo se llama "ranking": https://github.com/florenciagayraud/usaidpry
Ahora bien, me gustaría (para poder luego graficar este ranking) tener una variable que sea el valor final de la sumatoria de todas estas variables codificadas tal como indica. Para esto pensé primero en generar un código que codifique 1 o 0 en función de lo que el cuadro plantea, y salvo el caso de las variables "supnom" y "supap" pareciera funcionar:
ranking <- usaid_pry2 %>%
select(country, year, judind, supterm, supnom_1, supnom_2, supnom_3, supnom_4, supnom_5, supnom_6, supnom_7,
supap_1, supap_2, supap_3, supap_4, supap_5, supap_6, supap_7, jrem, jrempro_4, jrempro_5, jrempro_6,
jrempro_8, jrempro_9, jremap_1, jremap_2, jremap_3, jremap_4, jremap_5, jremap_6, jremap_7, jremap_96,
jremcon_1, jremcon_2, jremcon_3, jremcon_4, jremcon_5, jremcon_90, judsal) %>%
mutate(judind = case_when(judind == 1 ~ 1, is.na(judind) ~ NA_real_, TRUE ~ 0),
supterm = case_when(supterm %in% 88:89 ~ 1, is.na(supterm) ~ NA_real_, TRUE ~ 0),
sup_norm_ap = case_when((supnom_6 | supnom_7) == 1 ~ 1,
(supnom_1 | supnom_2 | supnom_3) == 1 & (supap_4 | supap_5 | supap_6 | supap_7) == 1 ~ 1,
(supnom_4 | supnom_5) == 1 & (supap_1 | supap_2 | supap_3 | supap_6 | supap_7) == 1 ~ 1,
is.na(supap_1) ~ NA_real_, TRUE ~ 0),
jrem = case_when(jrem == 2 ~ 1, is.na(jrem) ~ NA_real_, TRUE ~ 0),
jrempro = case_when((jrempro_8 | jrempro_9) == 1 ~ 1, is.na(jrempro_8) ~ NA_real_, TRUE ~ 0),
jremap = case_when((jrempro_4 | jrempro_5 | jrempro_6) != 1 & (jremap_1 | jremap_2 | jremap_3 | jremap_4 | jremap_5 | jremap_6 | jremap_7 | jremap_96) == 1 ~ 1,
is.na(jrempro_5) ~ NA_real_, TRUE ~ 0),
jremcon = case_when(jremcon_2 | jremcon_3 | jremcon_4 | jremcon_5 == 1 ~ 1,
is.na(jremcon_2) ~ NA_real_, TRUE ~ 0),
judsal = case_when(judsal == 1 ~ 1, is.na(judsal) ~ NA_real_, TRUE ~ 0))
Probablemente esté utilizando mal la lógica del case_when o quizás hay otra forma de hacerlo. Pensé en quizás utilizar todas las combinaciones de variables pero suena bastante engorroso. Asimismo, desagregué en tres partes (jrem, jrempro y jremap) lo que debería ser una sola variable.
Por otro lado, una vez logrado esto pensé en seleccionar las variables creadas junto con país y año, pero luego me gustaría poder sumar en otra variable adicional el valor que obtiene cada país en cada año y no sabría como hacerlo. Intuyo que con apply podría lograrlo. Es decir, el ranking o el índice sería una sumatoria de los valores de estas seis variables nuevas para cada caso y cada año, de modo que tomaría valores entre 0 y 6. Y sería esta variable la que desearía graficar. Espero haber sido clara y gracias!!!