disease_data <- decomp_disease(india_china_males_1990,
breakdown = "proportion", age_col = "Age", diseases = c("CD", "NCD", "Injuries"),
group_1 = "India", group_1_m = "India_nmx", group_2 = "China",
group_2_m = "China_nmx", nDx = "nDx"
)
plot_disease(disease_data, c("delta_CD", "delta_NCD", "delta_Injuries"), "nDx", line = FALSE)
plot_disease(disease_data, c("delta_CD", "delta_NCD", "delta_Injuries"), "nDx", line = TRUE)
Run the code above in your browser using DataLab