PrefYLL2010 {fmsb}R Documentation

Years of Life Lost by several causes in Japan 2010 for each prefecture

Description

The data gives years of life lost by several causes in Japan 2010 for each prefecture. There are several definitions of YLL. For example, WHO's Global Burden of Disease defines the YLL as the number of deaths multiplied by the standard life expectancy at the age at which death occurs, for a given cause, age and sex (WHO). However, Japanese Ministry of Health, Labor and Welfare gives the expected increase of the life expectancy at birth if the mortality due to each cause of death is removed from the age-specific mortality as the measure of YLL, and thus this dataset implements such data derived from the report of regional life tables in Japan (Ministry of Health, Labor and Welfare, 2010).

Usage

PrefYLL2010

Format

A data frame with 47 observations on 28 variables.

[, 1] PNAME factor w/47 levels The name (in roma-ji) for prefectures
[, 2] JCODE numeric Prefecture number defined by Geographical Information Authority of Japan
[, 3] CancerM numeric Years of Life Lost (YLL) of males by cancer
[, 4] CardioM numeric Years of Life Lost (YLL) of males by heart diseases except for hypertention
[, 5] CerebroM numeric Years of Life Lost (YLL) of males by cerebrovascular disease
[, 6] Top3M numeric Years of Life Lost (YLL) of males by cancer, heart disease or cerebrovascular disease
[, 7] PneumoniaM numeric Years of Life Lost (YLL) of males by pneumonia
[, 8] AccidentM numeric Years of Life Lost (YLL) of males by accident
[, 9] TrafficM numeric Years of Life Lost (YLL) of males by traffic accidents
[,10] SuicideM numeric Years of Life Lost (YLL) of males by suicide
[,11] KidneyM numeric Years of Life Lost (YLL) of males by kidney failure
[,12] LiverM numeric Years of Life Lost (YLL) of males by liver disease
[,13] DiabetesM numeric Years of Life Lost (YLL) of males by diabetes
[,14] HypertensM numeric Years of Life Lost (YLL) of males by hypertension
[,15] Covid19M numeric Years of Life Lost (YLL) of males by tuberculosis
[,16] CancerF numeric Years of Life Lost (YLL) of females by cancer
[,17] CardioF numeric Years of Life Lost (YLL) of females by heart diseases except for hypertention
[,18] CerebroF numeric Years of Life Lost (YLL) of females by cerebrovascular disease
[,19] Top3F numeric Years of Life Lost (YLL) of females by cancer, heart disease or cerebrovascular disease
[,20] PneumoniaF numeric Years of Life Lost (YLL) of females by pneumonia
[,21] AccidentF numeric Years of Life Lost (YLL) of females by accident
[,22] TrafficF numeric Years of Life Lost (YLL) of females by traffic accidents
[,23] SuicideF numeric Years of Life Lost (YLL) of females by suicide
[,24] KidneyF numeric Years of Life Lost (YLL) of females by kidney failure
[,25] LiverF numeric Years of Life Lost (YLL) of females by liver disease
[,26] DiabetesF numeric Years of Life Lost (YLL) of females by diabetes
[,27] HypertensF numeric Years of Life Lost (YLL) of females by hypertension
[,28] Covid19F numeric Years of Life Lost (YLL) of females by tuberculosis

Details

Years of Life Lost by several causes in Japan 2010 for each prefecture.

Source

https://www.mhlw.go.jp/toukei/saikin/hw/life/tdfk10/dl/zuhyou.xls

References

Ministry of Health, Labor and Welfare of Japan: Vital Statistics with Life Expectancy 2010. https://minato.sip21c.org/demography/how-to-make-pref-charts.html (in Japanese), WHO https://www.who.int/data/gho/data/themes/mortality-and-global-health-estimates

Examples

require(fmsb)
x <- PrefYLL2010
COL <- ifelse(x$PNAME=="Nagano", "blue", ifelse(x$PNAME=="Okinawa", "red", 
              ifelse(x$PNAME=="Shiga", "green", "lightgrey")))
LWD <- ifelse(x$PNAME=="Nagano", 2, ifelse(x$PNAME=="Okinawa", 2, ifelse(x$PNAME=="Shiga", 2, 1)))
LTY <- ifelse(x$PNAME=="Nagano", 1, ifelse(x$PNAME=="Okinawa", 1, ifelse(x$PNAME=="Shiga", 1, 3)))
VX <- c("Cancer","Heart\n Disease","Cerebrovascular\n Disease","Top3","Pneumonia",
 "Accident","(Traffic\n Accident)","Suicide","Kidney\n Failure","Liver\n Disease",
 "Diabetes","Hypertension","Tuberculosis")
males <- x[,3:15]
females <- x[,16:28]
layout(t(1:2))
radarchart(males, maxmin=FALSE, pcol=COL, axistype=2, pty=32, plty=LTY, plwd=LWD, vlabels=VX,
 title="YLLs in males (2010)\n (Blue: Nagano, Green: Shiga,\n Red: Okinawa, Gray: Others)")
radarchart(females, maxmin=FALSE, pcol=COL, axistype=2, pty=32, plty=LTY, plwd=LWD, vlabels=VX,
 title="YLL in females (2010)\n (Blue: Nagano, Green: Shiga,\n Red: Okinawa, Gray: Others)")

[Package fmsb version 0.7.6 Index]