Disease risk

This page is a knowledge crystal of subtype variable. The page identifier is Op_en5917
Moderator:Nobody (see all) Click here to sign up.
This page is a stub. You may improve it into a full page.
Upload data {{#opasnet_base_link:Op_en5917}}

Question

What are incidence or prevalence rates of different diseases in Finland?

Answer

+ Show code- Hide code library(OpasnetUtils) # A package with Opasnet functionalities library(xtable) # A package with table formats library(ggplot2) # A package with fancy graph formats # objects.latest("Op_en5917", "calculations") # Get the latest ovariables from code calculations on page Op_en5917. objects.get("3i7fJFPcIoH6CKiN") diseaseRisk <- EvalOutput(diseaseRisk) print(xtable(diseaseRisk@output), type = 'html') # Show a result table ggplot(diseaseRisk@output, # Show a bar chart aes(x = Disease, y = diseaseRiskResult, fill = Response.metric)) + geom_bar(position="dodge") + theme_grey(base_size = 24) + theme(axis.text.x = element_text(angle = 90, hjust = 1)) + scale_y_log10() # limits = c(1, 1000000))

Default run

Rationale

Calculations

+ Show code- Hide code library(OpasnetUtils) library(xtable) diseaseRisk <- Ovariable("diseaseRisk", ddata = "Op_en5917", getddata = TRUE, save = FALSE) colnames(diseaseRisk@data) diseaseRisk@data <- diseaseRisk@data[ , colnames(diseaseRisk@data) != "Obs"] objects.put(diseaseRisk) cat("Ovariable diseaseRisk saved. Save the key for surther use.\n") # page_indent = Op_en5917, code_name = calculations\n") print(xtable(EvalOutput(diseaseRisk, N = 1)@output), type = 'html')

Default run

Data

Data from op_fi:Seturi/tautiriski

Disease risk: Difference between revisions(nro)

Obs	Disease	Population	Age	Sex	Response.metric	Unit	Result	Description
1	Lung cancer	Whole population			Morbidity	cases /a	2020	Toinen arvio 2244
2	Cardiopulmonary	Whole population			Mortality	cases /a	23840
3	All causes	Whole population			Mortality	cases /a	48106	Toinen arvio 44460
4	Bladder cancer	Whole population			Morbidity	cases /a	1675	Toinen arvio 821
5	Bladder cancer	Whole population		M	Morbidity	cases /a	1102
6	Bladder cancer	Whole population		F	Morbidity	cases /a	573
7	Myocardial infarction	Whole population			Morbidity	cases /a	24898
8	Ischaemic heart disease	Whole population			Mortality	cases /a	11887
9	Asthma	Whole population			Morbidity	cases /a	14561
10	Asthma	Whole population	>21		Morbidity	cases /a	9466
11	Asthma	Whole population	<14		Morbidity	cases /a	4366
12	Pulmonary infections	Whole population	<2		Morbidity	DALY	35
13	Otitis media	Whole population	<3		Morbidity	DALY	48
14	COPD	Whole population			Morbidity	cases /a	483000
15	Upper respiratory symptoms	Whole population			Morbidity	cases /a	928846
16	Ischaemic heart disease/myocardial infarction	Workers		M	Morbidity	cases /a	4655	35-64v miesten 1. infarktin insidenssi 354/100000 1991-4. Aromaa ym Suomalaisten terveys s155
17	Nasal cancer	Workers			Morbidity	cases /a	35
18	COPD	Whole population	15-64		Mortality	cases /a	1127
19	Asthma	Työikäinen väestö	15-64	M	Morbidity	cases /a	3120
20	Asthma	Työikäinen väestö	15-64	F	Morbidity	cases /a	4244
21	Cancer	Whole population			Morbidity	cases /a	10880
22	All skin cancers and basalioma	Whole population			Morbidity	cases /a	8777
23	Skin cancer	Whole population			Morbidity	cases /a	2005
24	Melanoma	Whole population			Morbidity	cases /a	906
25	Carcinoma spinocellulare	Whole population			Morbidity	cases /a	1099
26	Basalioma	Whole population			Morbidity	cases /a	6772

Related files

<mfanonymousfilelist></mfanonymousfilelist>