RVTU diagnoosid

Code 
library(rvtu)
Loading required package: ltm
Loading required package: MASS
Loading required package: msm
Loading required package: polycor
Code 
library(flextable)
library(ggplot2)
getwd()
[1] "C:/Users/kenn.konstabel/OneDrive - TAI/0Data/analyys_3/2025"
Code 
L <- Load("../../rvtu/new/RVTU- L123 - 2022-11-12.rda")
R <- Load("../../rvtu/new0/registriandmed 2022-11-12.rda")

Registriandmete lühiversioon

Siin kirjeldame andmestikku, kus diagnooside info on koondatud järgmiselt:

  1. Diagnoosigruppide kaupa on kokku liidetud diagnooside arv raviarvetelt ja retseptidelt

  2. Diagnooside arv on summeeritud 5 aasta kohta (2016-2020) ning eraldi tunnusena 2021.aasta kaks esimest kuud

  3. Diagnooside arv on esitatud nelja kategooriana: 0, 1, 2 ja 3 - kus “3” tähendab “3 või enam” (tabelites ‘3+’)

Tunnused andmestikus

Code 
k <- (key(R))
k <- data.frame(Nr = 1:nrow(k), k)
qflextable(k)

Nr

NAME

LAB

1

täisealine

Täisealine?

2

vanus1

Vanus 01.01.2021

3

vanus5

Vanus 01.01.2021 5-aastastes gruppides

4

vanus10

Vanus 01.01.2021 10-aastastes gruppides

5

sugu

Sugu

6

rahv3

Rahvus täiendatud 3 kategooriat

7

kodak4

Kodakondsus 4 kategooriat

8

asula_RR1

Asula tüüp RR1

9

maak15_RR1

Maakond RR1

10

perek_RR2

Ametlik perekonnaseis

11

opib

Isik õpib 01.03.2021_EHIS

12

harid_reg

Registripõhine kõrgeim lõpetatud haridus

13

harid_ank

Täiendav ankeedipõhine kõrgeim lõpetatud haridus

14

harid3

Kõrgeim lõpetatud haridus kolmene jaotus

15

neto2019

2019 aasta keskmine netosissetulek kuus

16

neto2020

2020 aasta keskmine netosissetulek kuus

17

Nneto2019

Percentile Group of neto2019

18

Nneto2020

Percentile Group of neto2020

19

change

Sissetuleku kvartiili muutus 2020

20

töötav2012

2012 SKA_staatus töötav

21

töötav2101

2101 SKA_staatus töötav

22

töötu_01jan2021

Töötu 01.01.2021

23

töötu_dec2020

Registreeritud töötu vähemalt ühel päeval 2021

24

pension2012

2012 pension va töövõimetuspension

25

pension2101

2101 pension va töövõimetuspension

26

töövõimetuspension2012

2012 töövõimetuspension

27

töövõimetuspension2101

2101 töövõimetuspension

28

kindl_1JAN2021

Ravikindlustatud 01.01.2021

29

kindl_DEC2020

Ravikindlustus detsembris 2020

30

SID

SID

31

RW1

Registriuuringu kaalud W1

32

RW2

Registriuuringu kaalud W2

33

RW3

Registriuuringu kaalud W3

34

F00F02_6

Dementsus 2016-2020

35

F10_6

Alkoholi tarvitamisest tingitud psüühika- ja käitumishäired 2016-2020

36

F11F19_6

Eri ainete tarvitamisest tingitud psüühika- ja käitumishäired 2016-2020

37

F20F29_6

Skisofreenia/psühhootiline käitumishäire 2016-2020

38

F30F31_6

Maniakaalne episood/bipolaarne häire 2016-2020

39

F32_6

Depressioon 2016-2020

40

F33F34_6

Korduv depressiivne häire/püsivad meeleoluhäired 2016-2020

41

F40_6

Foobsed ärevushäired e. foobiad 2016-2020

42

F41_6

Muud ärevushäired 2016-2020

43

F42_6

Obsessiiv-kompulsiivne häire e. sundseisund 2016-2020

44

F43_6

Rasked stressreaktsioonid ja kohanemishäired 2016-2020

45

F44_6

Dissotsiatiivsed häired 2016-2020

46

F45_6

Somatoformsed häired 2016-2020

47

F50_6

Söömishäired 2016-2020

48

F51_6

Mitteorgaanilised unehäired 2016-2020

49

F52_6

Mitteorgaanilised seksuaaldüsfunktsioonid 2016-2020

50

F60F62_6

Isiksusehäired 2016-2020

51

F70F79_6

Kerge vaimne alaareng 2016-2020

52

F80F89_6

Arenguhäired 2016-2020

53

F90_6

Hüperkineetilised häired 2016-2020

54

F95_6

Tikid 2016-2020

55

F99_6

Täpsustamata psüühikahäire 2016-2020

56

C00C97_6

Pahaloomulised kasvajad; Kõik paikmed 2016-2020

57

E10E14_6

Suhkurtõbi 2016-2020

58

E65E68_6

Rasvumus ja muud liigtoitumise vormid 2016-2020

59

I00I99_6

Vereringeelundite haigused 2016-2020

60

J00J99_6

Hingamiselundite haigused 2016-2020

61

K70_6

Maksa alkoholtõbi 2016-2020

62

X60X84_6

Tahtlik enesekahjustamine 2016-2020

63

U07_1_6

COVID-19, laboratoorselt kinnitatud 2016-2020

64

U07_2_6

COVID-19, laboratoorselt kinnitamata 2016-2020

65

anyF_6

Mistahes F-diagnoos 2016-2020

66

F00F02_2021

Dementsus 2021 (I-II)

67

F10_2021

Alkoholi tarvitamisest tingitud psüühika- ja käitumishäired 2021 (I-II)

68

F11F19_2021

Eri ainete tarvitamisest tingitud psüühika- ja käitumishäired 2021 (I-II)

69

F20F29_2021

Skisofreenia/psühhootiline käitumishäire 2021 (I-II)

70

F30F31_2021

Maniakaalne episood/bipolaarne häire 2021 (I-II)

71

F32_2021

Depressioon 2021 (I-II)

72

F33F34_2021

Korduv depressiivne häire/püsivad meeleoluhäired 2021 (I-II)

73

F40_2021

Foobsed ärevushäired e. foobiad 2021 (I-II)

74

F41_2021

Muud ärevushäired 2021 (I-II)

75

F42_2021

Obsessiiv-kompulsiivne häire e. sundseisund 2021 (I-II)

76

F43_2021

Rasked stressreaktsioonid ja kohanemishäired 2021 (I-II)

77

F44_2021

Dissotsiatiivsed häired 2021 (I-II)

78

F45_2021

Somatoformsed häired 2021 (I-II)

79

F50_2021

Söömishäired 2021 (I-II)

80

F51_2021

Mitteorgaanilised unehäired 2021 (I-II)

81

F52_2021

Mitteorgaanilised seksuaaldüsfunktsioonid 2021 (I-II)

82

F60F62_2021

Isiksusehäired 2021 (I-II)

83

F70F79_2021

Kerge vaimne alaareng 2021 (I-II)

84

F80F89_2021

Arenguhäired 2021 (I-II)

85

F90_2021

Hüperkineetilised häired 2021 (I-II)

86

F95_2021

Tikid 2021 (I-II)

87

F99_2021

Täpsustamata psüühikahäire 2021 (I-II)

88

C00C97_2021

Pahaloomulised kasvajad; Kõik paikmed 2021 (I-II)

89

E10E14_2021

Suhkurtõbi 2021 (I-II)

90

E65E68_2021

Rasvumus ja muud liigtoitumise vormid 2021 (I-II)

91

I00I99_2021

Vereringeelundite haigused 2021 (I-II)

92

J00J99_2021

Hingamiselundite haigused 2021 (I-II)

93

K70_2021

Maksa alkoholtõbi 2021 (I-II)

94

X60X84_2021

Tahtlik enesekahjustamine 2021 (I-II)

95

U07_1_2021

COVID-19, laboratoorselt kinnitatud 2021 (I-II)

96

U07_2_2021

COVID-19, laboratoorselt kinnitamata 2021 (I-II)

97

anyF_2021

Mistahtes F-diagnoos 2021 (I-II)

Code 
n6 <- names(R)[grep("_6", names(R))]
n21 <- names(R)[grep("_2021", names(R))]
fq1 <- t(sapply(R[,n6], \(x) table(factor(x, levels=0:3, labels=0:3))))
fq2 <- t(sapply(R[,n21], \(x) table(factor(x, levels=0:3, labels=0:3))))
fq1 <- data.frame(diagn = rownames(fq1), lab = subset(k, NAME%in% n6)$LAB,  fq1) |> setNames(c("var", "lab", " 0", " 1", " 2", " 3+ "))
fq2 <- data.frame(diagn = rownames(fq2), lab=subset(k, NAME%in% n21)$LAB, fq2) |> setNames(c("var", "lab", " 0", " 1", " 2", " 3+ "))

Diagnooside sagedused registriuuringu valimil

Registriuuringu valim = kõik uuringusse kutsutud (=20000) välja arvatud uuringust keeldujad.

Diagnooside sagedused 5 aasta kohta (2016-2020)

Code 
qflextable(fq1)

var

lab

0

1

2

3+

F00F02_6

Dementsus 2016-2020

19,135

19

7

114

F10_6

Alkoholi tarvitamisest tingitud psüühika- ja käitumishäired 2016-2020

18,940

92

44

199

F11F19_6

Eri ainete tarvitamisest tingitud psüühika- ja käitumishäired 2016-2020

19,190

19

23

43

F20F29_6

Skisofreenia/psühhootiline käitumishäire 2016-2020

19,091

12

6

166

F30F31_6

Maniakaalne episood/bipolaarne häire 2016-2020

19,225

2

4

44

F32_6

Depressioon 2016-2020

17,947

205

130

993

F33F34_6

Korduv depressiivne häire/püsivad meeleoluhäired 2016-2020

18,664

72

40

499

F40_6

Foobsed ärevushäired e. foobiad 2016-2020

19,167

27

8

73

F41_6

Muud ärevushäired 2016-2020

17,908

261

121

985

F42_6

Obsessiiv-kompulsiivne häire e. sundseisund 2016-2020

19,253

2

3

17

F43_6

Rasked stressreaktsioonid ja kohanemishäired 2016-2020

18,844

118

57

256

F44_6

Dissotsiatiivsed häired 2016-2020

19,261

7

2

5

F45_6

Somatoformsed häired 2016-2020

18,996

82

34

163

F50_6

Söömishäired 2016-2020

19,234

11

4

26

F51_6

Mitteorgaanilised unehäired 2016-2020

18,646

152

49

428

F52_6

Mitteorgaanilised seksuaaldüsfunktsioonid 2016-2020

19,047

43

31

154

F60F62_6

Isiksusehäired 2016-2020

19,215

9

8

43

F70F79_6

Kerge vaimne alaareng 2016-2020

19,098

28

25

124

F80F89_6

Arenguhäired 2016-2020

19,180

24

10

61

F90_6

Hüperkineetilised häired 2016-2020

19,184

12

7

72

F95_6

Tikid 2016-2020

19,264

6

1

4

F99_6

Täpsustamata psüühikahäire 2016-2020

19,266

2

6

1

C00C97_6

Pahaloomulised kasvajad; Kõik paikmed 2016-2020

18,293

90

75

817

E10E14_6

Suhkurtõbi 2016-2020

17,960

46

31

1,238

E65E68_6

Rasvumus ja muud liigtoitumise vormid 2016-2020

18,350

252

172

501

I00I99_6

Vereringeelundite haigused 2016-2020

11,697

535

347

6,696

J00J99_6

Hingamiselundite haigused 2016-2020

9,842

1,849

1,317

6,267

K70_6

Maksa alkoholtõbi 2016-2020

19,223

19

8

25

X60X84_6

Tahtlik enesekahjustamine 2016-2020

19,247

17

6

5

U07_1_6

COVID-19, laboratoorselt kinnitatud 2016-2020

19,236

25

9

5

U07_2_6

COVID-19, laboratoorselt kinnitamata 2016-2020

19,253

22

0

0

anyF_6

Mistahes F-diagnoos 2016-2020

15,075

4,200

0

0

Diagnooside sagedused 2 kuu kohta (2021 jaanuar-veebruar)

Code 
qflextable(fq2)

var

lab

0

1

2

3+

F00F02_2021

Dementsus 2021 (I-II)

17,249

18

12

22

F10_2021

Alkoholi tarvitamisest tingitud psüühika- ja käitumishäired 2021 (I-II)

17,273

9

8

11

F11F19_2021

Eri ainete tarvitamisest tingitud psüühika- ja käitumishäired 2021 (I-II)

17,287

5

5

4

F20F29_2021

Skisofreenia/psühhootiline käitumishäire 2021 (I-II)

17,210

24

18

49

F30F31_2021

Maniakaalne episood/bipolaarne häire 2021 (I-II)

17,283

2

4

12

F32_2021

Depressioon 2021 (I-II)

17,094

87

39

81

F33F34_2021

Korduv depressiivne häire/püsivad meeleoluhäired 2021 (I-II)

17,161

37

31

72

F40_2021

Foobsed ärevushäired e. foobiad 2021 (I-II)

17,287

6

1

7

F41_2021

Muud ärevushäired 2021 (I-II)

17,036

110

57

98

F42_2021

Obsessiiv-kompulsiivne häire e. sundseisund 2021 (I-II)

17,297

1

2

1

F43_2021

Rasked stressreaktsioonid ja kohanemishäired 2021 (I-II)

17,247

26

9

19

F44_2021

Dissotsiatiivsed häired 2021 (I-II)

17,301

0

0

0

F45_2021

Somatoformsed häired 2021 (I-II)

17,272

11

7

11

F50_2021

Söömishäired 2021 (I-II)

17,295

2

2

2

F51_2021

Mitteorgaanilised unehäired 2021 (I-II)

17,194

73

15

19

F52_2021

Mitteorgaanilised seksuaaldüsfunktsioonid 2021 (I-II)

17,281

10

5

5

F60F62_2021

Isiksusehäired 2021 (I-II)

17,293

3

0

5

F70F79_2021

Kerge vaimne alaareng 2021 (I-II)

17,274

9

7

11

F80F89_2021

Arenguhäired 2021 (I-II)

17,294

4

1

2

F90_2021

Hüperkineetilised häired 2021 (I-II)

17,286

8

3

4

F95_2021

Tikid 2021 (I-II)

17,301

0

0

0

F99_2021

Täpsustamata psüühikahäire 2021 (I-II)

17,300

1

0

0

C00C97_2021

Pahaloomulised kasvajad; Kõik paikmed 2021 (I-II)

17,093

67

30

111

E10E14_2021

Suhkurtõbi 2021 (I-II)

16,791

85

115

310

E65E68_2021

Rasvumus ja muud liigtoitumise vormid 2021 (I-II)

17,272

22

3

4

I00I99_2021

Vereringeelundite haigused 2021 (I-II)

14,590

465

512

1,734

J00J99_2021

Hingamiselundite haigused 2021 (I-II)

16,593

281

167

260

K70_2021

Maksa alkoholtõbi 2021 (I-II)

17,298

2

1

0

X60X84_2021

Tahtlik enesekahjustamine 2021 (I-II)

17,299

2

0

0

U07_1_2021

COVID-19, laboratoorselt kinnitatud 2021 (I-II)

17,252

36

12

1

U07_2_2021

COVID-19, laboratoorselt kinnitamata 2021 (I-II)

17,290

11

0

0

anyF_2021

Mistahtes F-diagnoos 2021 (I-II)

18,287

988

0

0

Diagnooside sagedused küsitlusuuringu vastajatel

Eelnevates tabelites on kajastatud kõik RVTU uuringusse kutsutud (st kogu valim), kelle kohta on olemas registriandmed ja kes uuringust ei keeldunud - st summa on igal real 19275.

Kuid nad kõik ei osalenud küsitlusuuringus - st kui kavas on kombineerida küsitlusuuringu ja registriandmeid, siis kasutatav andmestik on oluliselt väiksem.

Code 
comp <- with(L, L1complete | L2complete | L3complete)
R0 <- R
R <- subset(R, comp)

n6 <- names(R)[grep("_6", names(R))]
n21 <- names(R)[grep("_2021", names(R))]
fq1 <- t(sapply(R[,n6], \(x) table(factor(x, levels=0:3, labels=0:3))))
fq2 <- t(sapply(R[,n21], \(x) table(factor(x, levels=0:3, labels=0:3))))
fq1 <- data.frame(diagn = rownames(fq1), lab = subset(k, NAME%in% n6)$LAB,  fq1) |> setNames(c("var", "lab", " 0", " 1", " 2", " 3+ "))
fq2 <- data.frame(diagn = rownames(fq2), lab=subset(k, NAME%in% n21)$LAB, fq2) |> setNames(c("var", "lab", " 0", " 1", " 2", " 3+ "))

Diagnooside sagedused 5 aasta kohta (2016-2020)

Code 
qflextable(fq1)

var

lab

0

1

2

3+

F00F02_6

Dementsus 2016-2020

7,488

7

1

21

F10_6

Alkoholi tarvitamisest tingitud psüühika- ja käitumishäired 2016-2020

7,398

23

14

82

F11F19_6

Eri ainete tarvitamisest tingitud psüühika- ja käitumishäired 2016-2020

7,490

6

9

12

F20F29_6

Skisofreenia/psühhootiline käitumishäire 2016-2020

7,438

4

1

74

F30F31_6

Maniakaalne episood/bipolaarne häire 2016-2020

7,492

0

4

21

F32_6

Depressioon 2016-2020

6,894

91

52

480

F33F34_6

Korduv depressiivne häire/püsivad meeleoluhäired 2016-2020

7,206

33

23

255

F40_6

Foobsed ärevushäired e. foobiad 2016-2020

7,469

12

5

31

F41_6

Muud ärevushäired 2016-2020

6,904

125

52

436

F42_6

Obsessiiv-kompulsiivne häire e. sundseisund 2016-2020

7,508

2

1

6

F43_6

Rasked stressreaktsioonid ja kohanemishäired 2016-2020

7,325

55

21

116

F44_6

Dissotsiatiivsed häired 2016-2020

7,509

4

1

3

F45_6

Somatoformsed häired 2016-2020

7,394

34

14

75

F50_6

Söömishäired 2016-2020

7,497

5

2

13

F51_6

Mitteorgaanilised unehäired 2016-2020

7,208

70

25

214

F52_6

Mitteorgaanilised seksuaaldüsfunktsioonid 2016-2020

7,427

10

17

63

F60F62_6

Isiksusehäired 2016-2020

7,495

4

3

15

F70F79_6

Kerge vaimne alaareng 2016-2020

7,463

6

9

39

F80F89_6

Arenguhäired 2016-2020

7,492

6

3

16

F90_6

Hüperkineetilised häired 2016-2020

7,507

0

3

7

F95_6

Tikid 2016-2020

7,512

2

1

2

F99_6

Täpsustamata psüühikahäire 2016-2020

7,514

1

2

0

C00C97_6

Pahaloomulised kasvajad; Kõik paikmed 2016-2020

7,025

45

36

411

E10E14_6

Suhkurtõbi 2016-2020

6,902

25

12

578

E65E68_6

Rasvumus ja muud liigtoitumise vormid 2016-2020

7,094

116

85

222

I00I99_6

Vereringeelundite haigused 2016-2020

3,996

211

162

3,148

J00J99_6

Hingamiselundite haigused 2016-2020

3,706

706

547

2,558

K70_6

Maksa alkoholtõbi 2016-2020

7,503

4

3

7

X60X84_6

Tahtlik enesekahjustamine 2016-2020

7,506

7

3

1

U07_1_6

COVID-19, laboratoorselt kinnitatud 2016-2020

7,502

9

4

2

U07_2_6

COVID-19, laboratoorselt kinnitamata 2016-2020

7,508

9

0

0

anyF_6

Mistahes F-diagnoos 2016-2020

5,704

1,813

0

0

Diagnooside sagedused 2 kuu kohta (2021 jaanuar-veebruar)

Code 
qflextable(fq2)

var

lab

0

1

2

3+

F00F02_2021

Dementsus 2021 (I-II)

7,070

2

1

6

F10_2021

Alkoholi tarvitamisest tingitud psüühika- ja käitumishäired 2021 (I-II)

7,070

1

3

5

F11F19_2021

Eri ainete tarvitamisest tingitud psüühika- ja käitumishäired 2021 (I-II)

7,076

0

2

1

F20F29_2021

Skisofreenia/psühhootiline käitumishäire 2021 (I-II)

7,036

10

7

26

F30F31_2021

Maniakaalne episood/bipolaarne häire 2021 (I-II)

7,070

2

2

5

F32_2021

Depressioon 2021 (I-II)

6,980

41

22

36

F33F34_2021

Korduv depressiivne häire/püsivad meeleoluhäired 2021 (I-II)

6,996

23

16

44

F40_2021

Foobsed ärevushäired e. foobiad 2021 (I-II)

7,068

6

1

4

F41_2021

Muud ärevushäired 2021 (I-II)

6,958

51

27

43

F42_2021

Obsessiiv-kompulsiivne häire e. sundseisund 2021 (I-II)

7,078

0

1

0

F43_2021

Rasked stressreaktsioonid ja kohanemishäired 2021 (I-II)

7,052

14

2

11

F44_2021

Dissotsiatiivsed häired 2021 (I-II)

7,079

0

0

0

F45_2021

Somatoformsed häired 2021 (I-II)

7,065

6

3

5

F50_2021

Söömishäired 2021 (I-II)

7,077

1

1

0

F51_2021

Mitteorgaanilised unehäired 2021 (I-II)

7,023

37

9

10

F52_2021

Mitteorgaanilised seksuaaldüsfunktsioonid 2021 (I-II)

7,068

6

3

2

F60F62_2021

Isiksusehäired 2021 (I-II)

7,077

1

0

1

F70F79_2021

Kerge vaimne alaareng 2021 (I-II)

7,072

3

1

3

F80F89_2021

Arenguhäired 2021 (I-II)

7,077

1

0

1

F90_2021

Hüperkineetilised häired 2021 (I-II)

7,076

1

0

2

F95_2021

Tikid 2021 (I-II)

7,079

0

0

0

F99_2021

Täpsustamata psüühikahäire 2021 (I-II)

7,078

1

0

0

C00C97_2021

Pahaloomulised kasvajad; Kõik paikmed 2021 (I-II)

6,988

27

13

51

E10E14_2021

Suhkurtõbi 2021 (I-II)

6,849

38

50

142

E65E68_2021

Rasvumus ja muud liigtoitumise vormid 2021 (I-II)

7,070

8

0

1

I00I99_2021

Vereringeelundite haigused 2021 (I-II)

5,805

208

239

827

J00J99_2021

Hingamiselundite haigused 2021 (I-II)

6,777

111

76

115

K70_2021

Maksa alkoholtõbi 2021 (I-II)

7,079

0

0

0

X60X84_2021

Tahtlik enesekahjustamine 2021 (I-II)

7,079

0

0

0

U07_1_2021

COVID-19, laboratoorselt kinnitatud 2021 (I-II)

7,064

12

3

0

U07_2_2021

COVID-19, laboratoorselt kinnitamata 2021 (I-II)

7,075

4

0

0

anyF_2021

Mistahtes F-diagnoos 2021 (I-II)

7,060

457

0

0