library(readxl)library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, uniondata_kesehatan <- read_excel("data_kesehatan.xlsx")
data_kesehatan <- as.data.frame(data_kesehatan)
data_kesehatan## id umur jenis_kelamin tinggi_badan berat_badan gula_darah tekanan_sistolik
## 1 1 33 Perempuan 159.5587 62.85027 80.08403 129.29775
## 2 2 59 Perempuan 152.9881 54.73592 79.20090 108.63735
## 3 3 39 Perempuan 156.1915 66.84162 99.64040 132.77287
## 4 4 64 Laki-laki 173.8024 54.83932 97.35650 108.78105
## 5 5 67 Perempuan 164.0242 62.21020 49.01314 129.45360
## 6 6 20 Perempuan 150.0967 61.15284 120.81147 136.44992
## 7 7 45 Perempuan 157.9015 59.39500 104.99451 105.17336
## 8 8 64 Laki-laki 165.8377 55.87974 148.32415 136.61993
## 9 9 47 Perempuan 156.7671 62.21052 113.70396 112.65701
## 10 10 42 Perempuan 161.3638 58.73365 91.06081 124.41530
## 11 11 68 Perempuan 162.9534 39.93666 155.94782 123.02756
## 12 12 42 Laki-laki 171.7058 57.82400 156.64452 113.59205
## 13 13 53 Laki-laki 178.6273 86.87589 75.62576 124.02154
## 14 14 48 Perempuan 159.2637 61.65035 109.38064 101.54354
## 15 15 23 Perempuan 157.5179 62.21498 95.77506 117.95795
## 16 16 65 Perempuan 144.1411 66.57205 103.74102 132.38686
## 17 17 31 Perempuan 159.4424 58.44678 104.55085 87.38813
## 18 18 20 Laki-laki 164.9385 63.24518 74.76199 97.68111
## 19 19 35 Perempuan 163.2124 52.62787 105.71179 102.57094
## 20 20 68 Laki-laki 161.0070 85.46609 134.98495 96.16365
## 21 21 64 Perempuan 170.6770 50.16811 96.71820 126.29375
## 22 22 54 Laki-laki 174.3259 73.18390 96.74147 105.10607
## 23 23 51 Laki-laki 177.7689 78.46436 127.97144 87.53179
## 24 24 70 Laki-laki 174.9531 71.78190 117.96792 110.43647
## 25 25 52 Perempuan 155.6892 57.85835 67.03010 114.14047
## 26 26 55 Perempuan 157.2980 55.26486 104.57114 132.85178
## 27 27 46 Laki-laki 165.0678 71.70588 133.07094 103.44372
## 28 28 49 Laki-laki 164.9795 59.36502 128.30553 137.41934
## 29 29 33 Perempuan 169.8014 50.64308 108.39903 125.97544
## 30 30 26 Laki-laki 162.8909 90.86717 114.42442 125.43528
## 31 31 68 Laki-laki 183.6871 63.21497 76.06130 107.21211
## 32 32 65 Perempuan 162.2705 55.22136 106.00263 149.30502
## 33 33 54 Perempuan 161.8002 66.31568 80.91102 117.53594
## 34 34 59 Laki-laki 164.8303 73.10230 90.83964 92.62654
## 35 35 19 Perempuan 160.1156 58.46580 118.71207 116.94215
## 36 36 43 Perempuan 153.5355 62.27103 77.26214 90.98334
## 37 37 57 Perempuan 164.2762 45.99146 105.33837 115.34235
## 38 38 29 Perempuan 166.5087 53.45064 108.56664 113.66659
## 39 39 35 Perempuan 146.6501 60.44972 101.09824 130.22745
## 40 40 30 Laki-laki 164.5292 65.07063 136.44378 135.14244
## 41 41 25 Laki-laki 164.4796 61.65812 79.55305 109.10843
## 42 42 40 Perempuan 162.7286 81.47887 112.12261 132.09163
## 43 43 40 Laki-laki 180.4724 71.57353 98.22139 141.36485
## 44 44 37 Perempuan 158.8007 60.51395 94.78336 108.23784
## 45 45 26 Laki-laki 168.7466 66.04202 109.28182 110.21393
## 46 46 25 Laki-laki 183.3165 78.99354 79.59199 129.76168
## 47 47 30 Laki-laki 169.2932 61.69188 73.73098 122.74572
## 48 48 42 Perempuan 165.2998 68.36245 90.11038 128.23162
## 49 49 32 Perempuan 147.6860 72.92436 135.03514 141.07026
## 50 50 63 Perempuan 150.1817 59.76245 101.11530 125.80625
## 51 51 20 Laki-laki 167.3708 50.61495 106.62869 135.77552
## 52 52 41 Perempuan 166.2798 59.22070 96.20307 129.34358
## 53 53 60 Perempuan 162.6117 68.13164 109.40985 126.50431
## 54 54 24 Laki-laki 170.6335 55.49176 80.96641 125.79127
## 55 55 47 Laki-laki 181.1896 74.80626 123.15821 139.36985
## 56 56 29 Laki-laki 169.3800 61.71826 111.69411 104.96610
## 57 57 25 Laki-laki 177.5656 80.20253 83.87094 103.42226
## 58 58 57 Laki-laki 174.4153 75.38482 101.09106 128.87919
## 59 59 65 Perempuan 161.3837 61.17367 114.32663 118.20466
## 60 60 37 Laki-laki 159.2697 71.20719 111.15462 121.11008
## 61 61 53 Perempuan 165.2318 67.28968 129.63868 131.11916
## 62 62 23 Perempuan 157.9092 61.13967 87.74024 131.29943
## 63 63 38 Perempuan 163.1110 48.88413 122.32273 116.05994
## 64 64 32 Laki-laki 179.1014 69.71605 120.73096 115.31184
## 65 65 60 Perempuan 153.4433 58.69372 96.75034 121.10398
## 66 66 41 Laki-laki 180.8331 70.31526 80.48147 135.94527
## 67 67 60 Perempuan 164.4454 45.11818 78.21710 126.39031
## 68 68 60 Laki-laki 157.7043 68.44655 109.15574 141.49511
## 69 69 59 Laki-laki 167.2785 75.68289 98.57747 119.88545
## 70 70 41 Laki-laki 170.6245 80.10678 135.58205 136.88501
## 71 71 57 Laki-laki 175.9151 64.82018 110.70276 133.24503
## 72 72 51 Laki-laki 176.7377 67.05905 92.56110 129.18125
## 73 73 55 Laki-laki 174.7902 73.97842 79.48916 126.22051
## 74 74 18 Perempuan 158.5639 67.22813 88.35197 115.80176
## 75 75 43 Laki-laki 175.9475 70.91267 106.85777 118.36444
## 76 76 29 Perempuan 160.9101 75.60577 90.98131 123.44093
## 77 77 38 Laki-laki 171.2236 58.80100 110.28460 120.73333
## 78 78 50 Laki-laki 170.5219 56.72245 93.31324 134.14837
## 79 79 36 Laki-laki 172.9972 61.46376 97.88880 118.36024
## 80 80 24 Laki-laki 170.1727 63.06695 85.38981 118.94435
## 81 81 31 Perempuan 160.1227 63.81630 138.10087 112.73521
## 82 82 53 Perempuan 161.8843 52.22405 106.65243 117.92496
## 83 83 40 Laki-laki 172.7022 62.72616 104.61267 118.96852
## 84 84 59 Laki-laki 168.1404 60.03161 66.16275 85.29396
## 85 85 23 Laki-laki 170.8270 59.58311 113.19584 99.52752
## 86 86 41 Perempuan 164.6732 63.65886 79.52753 118.91270
## 87 87 69 Perempuan 165.4886 51.69495 82.16957 116.02074
## 88 88 64 Perempuan 156.5536 55.16389 118.36682 101.98696
## 89 89 64 Laki-laki 168.4666 66.78675 90.94599 90.12693
## 90 90 27 Perempuan 157.7143 63.16237 65.03255 114.68446
## 91 91 25 Laki-laki 178.1787 69.08566 135.39808 129.80244
## 92 92 52 Laki-laki 177.3793 81.87187 52.45186 146.59858
## 93 93 36 Laki-laki 178.0168 81.91601 111.45623 119.42315
## 94 94 52 Laki-laki 165.9577 62.11037 120.34498 142.39777
## 95 95 35 Laki-laki 184.0174 54.52223 87.38064 121.24533
## 96 96 28 Perempuan 151.8515 54.39197 108.88574 121.73298
## 97 97 59 Perempuan 161.0911 61.92837 108.78261 124.87238
## 98 98 23 Perempuan 160.9890 57.18037 120.81246 106.94134
## 99 99 42 Laki-laki 170.1469 74.20574 109.68199 119.22423
## 100 100 45 Laki-laki 178.7494 53.85961 95.10232 133.62672
## 101 101 49 Perempuan 156.3886 51.88709 118.31984 108.75411
## 102 102 35 Perempuan 154.0378 53.66949 116.01245 115.17591
## 103 103 43 Laki-laki 163.4302 63.06905 81.26862 102.78344
## 104 104 68 Perempuan 164.5064 73.11242 71.98425 125.31528
## 105 105 43 Laki-laki 166.9399 56.35291 103.20555 126.37200
## 106 106 64 Laki-laki 172.3183 75.89983 94.52075 129.72521
## 107 107 66 Perempuan 154.6243 66.60738 80.28922 101.70285
## 108 108 50 Laki-laki 171.4839 60.95785 101.67861 121.60853
## 109 109 39 Laki-laki 178.6567 72.26325 73.60007 105.83913
## 110 110 26 Laki-laki 184.2630 77.48081 103.22453 119.99423
## 111 111 67 Perempuan 159.4158 80.60360 87.50143 140.13936
## 112 112 34 Laki-laki 175.2974 67.87152 119.14329 112.44712
## 113 113 21 Perempuan 165.2948 60.80736 148.48978 130.75025
## 114 114 67 Laki-laki 165.7895 69.13286 81.68042 108.75497
## 115 115 55 Perempuan 156.3014 64.71869 121.15328 112.82208
## 116 116 25 Perempuan 155.5912 68.77287 116.50299 126.58083
## 117 117 47 Perempuan 159.2092 71.56530 98.59612 109.81332
## 118 118 68 Perempuan 161.8601 44.59884 90.92707 94.45553
## 119 119 48 Laki-laki 181.7910 73.73241 131.50615 138.97753
## 120 120 39 Laki-laki 176.3797 74.03290 59.89084 125.40536
## 121 121 52 Laki-laki 171.6620 59.58327 87.13610 111.24541
## 122 122 35 Perempuan 159.3503 58.30280 71.26313 90.08882
## 123 123 34 Laki-laki 160.6286 76.41830 127.90627 148.53315
## 124 124 29 Laki-laki 174.6257 54.70689 96.18593 170.85556
## 125 125 37 Perempuan 166.6879 65.32128 89.50658 123.11221
## 126 126 69 Laki-laki 174.7862 72.50248 163.68089 132.74710
## 127 127 26 Laki-laki 169.5742 75.63867 98.99925 138.36840
## 128 128 23 Perempuan 160.8346 61.57022 91.12501 109.47293
## 129 129 25 Laki-laki 179.3486 62.67146 105.99731 114.73206
## 130 130 54 Perempuan 156.6493 63.44879 68.63151 94.09318
## 131 131 50 Perempuan 163.6322 61.51002 109.80605 108.95133
## 132 132 64 Perempuan 156.9620 49.26205 98.07674 129.33615
## 133 133 53 Laki-laki 164.9488 50.56349 109.37050 115.63926
## 134 134 56 Laki-laki 180.6345 83.99576 80.35259 116.78683
## 135 135 45 Laki-laki 172.6417 69.43944 79.54032 118.31161
## 136 136 52 Laki-laki 155.6344 75.24914 86.13171 92.04500
## 137 137 61 Perempuan 166.9915 54.50547 84.64021 132.56445
## 138 138 59 Laki-laki 168.5945 69.03314 125.98100 98.34761
## 139 139 69 Laki-laki 176.0605 69.24737 131.58291 116.87145
## 140 140 41 Laki-laki 169.2868 80.19157 96.86216 113.42155
## 141 141 34 Laki-laki 174.3693 77.11602 92.82127 116.72109
## 142 142 39 Perempuan 157.1878 57.12020 93.41922 141.89949
## 143 143 19 Perempuan 164.2250 46.51267 101.38473 111.26910
## 144 144 28 Laki-laki 170.3921 76.64416 101.93808 108.25354
## 145 145 62 Perempuan 165.1982 56.33792 105.80069 97.20519
## 146 146 30 Laki-laki 157.7273 47.89367 85.06642 107.91453
## 147 147 30 Laki-laki 170.6953 96.91714 83.06207 102.50723
## 148 148 22 Laki-laki 165.9970 65.17323 123.94155 126.11919
## 149 149 31 Perempuan 174.5814 57.82186 89.02745 107.05494
## 150 150 56 Laki-laki 168.7407 73.74644 106.06091 124.56063
## 151 151 62 Laki-laki 177.1046 85.38430 98.86059 117.80359
## 152 152 44 Laki-laki 156.0508 68.90290 80.84301 98.49657
## 153 153 38 Perempuan 166.6643 61.24925 111.82124 108.14088
## 154 154 31 Laki-laki 170.8165 72.13958 103.46210 133.27669
## 155 155 24 Laki-laki 163.7475 68.13879 127.99567 133.54614
## 156 156 38 Perempuan 151.2462 47.02513 102.34919 150.08360
## 157 157 48 Laki-laki 172.8800 80.12834 93.36908 119.94630
## 158 158 29 Laki-laki 169.7687 67.98542 105.56590 97.56260
## 159 159 41 Laki-laki 152.7387 49.62318 76.28817 108.47374
## 160 160 29 Perempuan 156.2225 67.64293 83.28212 126.12733
## 161 161 44 Perempuan 154.9969 66.27337 110.20547 148.50205
## 162 162 36 Laki-laki 174.5584 76.16456 93.33758 121.65014
## 163 163 52 Laki-laki 171.9164 76.16568 98.68078 137.10580
## 164 164 37 Laki-laki 177.1727 53.07898 97.69557 131.52122
## 165 165 36 Perempuan 152.8828 60.77269 86.98975 102.47863
## 166 166 46 Laki-laki 168.5314 79.67859 59.62623 117.43331
## 167 167 56 Perempuan 163.1979 45.21222 106.97670 139.57892
## 168 168 29 Laki-laki 163.3821 67.75039 115.23279 133.14144
## 169 169 39 Perempuan 158.1895 59.37969 74.22568 126.95694
## 170 170 32 Laki-laki 166.7727 84.87838 129.64805 127.15671
## 171 171 51 Laki-laki 186.9174 53.32072 107.70310 112.62892
## 172 172 28 Laki-laki 158.4427 65.63170 126.83281 100.20922
## 173 173 63 Perempuan 155.3096 48.01041 80.85659 139.43139
## 174 174 57 Perempuan 161.9224 51.18813 103.33563 98.69671
## 175 175 53 Laki-laki 173.5709 72.79628 97.99972 105.91656
## 176 176 50 Laki-laki 165.8736 88.77864 115.37015 129.43447
## 177 177 37 Perempuan 164.0395 53.60389 88.48281 101.06708
## 178 178 46 Laki-laki 171.0113 67.21546 99.79805 111.72194
## 179 179 63 Laki-laki 169.8998 74.74912 64.42682 102.25801
## 180 180 48 Perempuan 160.1566 61.17134 84.44757 129.30995
## 181 181 62 Laki-laki 170.2419 78.13400 102.50068 126.69470
## 182 182 34 Perempuan 159.3859 51.00317 85.87357 126.32827
## 183 183 55 Perempuan 152.9106 57.55624 99.12861 126.63697
## 184 184 32 Perempuan 162.9919 55.86592 90.64148 128.35869
## 185 185 49 Perempuan 153.7663 72.09916 112.13860 129.59035
## 186 186 43 Perempuan 158.6427 53.84412 123.36977 90.47008
## 187 187 32 Perempuan 162.2886 59.34330 83.54997 117.76775
## 188 188 47 Perempuan 155.2989 66.29707 93.85927 121.68696
## 189 189 65 Perempuan 163.4979 51.53128 128.79523 130.87014
## 190 190 65 Laki-laki 172.4227 63.46220 56.02153 102.18771
## 191 191 32 Perempuan 143.1414 65.40610 93.60324 112.50600
## 192 192 35 Laki-laki 154.8965 60.86434 141.29409 103.89536
## 193 193 69 Laki-laki 176.1898 78.86749 143.87180 135.85860
## 194 194 50 Laki-laki 164.1937 73.33370 103.13191 139.18609
## 195 195 67 Laki-laki 165.9851 68.29360 82.72782 131.81515
## 196 196 42 Laki-laki 180.5273 78.18828 103.30915 101.66395
## 197 197 39 Laki-laki 164.5810 73.88365 86.94451 126.77928
## 198 198 52 Laki-laki 175.9201 65.54065 129.05635 137.25674
## 199 199 26 Perempuan 167.0871 55.81907 83.87035 122.51911
## 200 200 48 Perempuan 171.1595 58.00647 107.45823 111.50836
## tekanan_diastolik kolesterol skor_kesehatan
## 1 69.13882 181.32930 100.00000
## 2 73.34697 209.69540 100.00000
## 3 87.14848 176.38007 88.52949
## 4 75.68339 172.18406 100.00000
## 5 82.27615 138.68861 100.00000
## 6 92.94946 183.71655 75.39378
## 7 85.78335 264.36237 80.21044
## 8 93.64673 219.69107 59.51184
## 9 62.98420 240.26716 76.40171
## 10 77.19324 217.44896 95.02224
## 11 80.65068 224.32788 48.51474
## 12 85.78589 217.08629 62.26762
## 13 68.30793 204.26177 96.82670
## 14 88.06185 172.52414 100.00000
## 15 83.07390 174.01196 100.00000
## 16 82.63806 141.97480 85.92333
## 17 85.08485 189.82547 100.00000
## 18 78.83642 216.98067 100.00000
## 19 89.25546 220.95768 90.72733
## 20 86.48230 192.85398 67.80169
## 21 78.49791 173.57117 94.09372
## 22 90.40377 288.71552 77.75112
## 23 82.92559 212.10057 85.65371
## 24 86.68751 232.61726 80.64646
## 25 74.05822 179.86958 100.00000
## 26 95.80432 188.86127 93.04345
## 27 79.96011 203.45821 76.98552
## 28 88.47843 240.29567 67.08839
## 29 78.99883 180.65576 87.27387
## 30 77.20370 215.60847 60.08132
## 31 87.84438 127.15556 100.00000
## 32 64.15383 174.78237 88.97758
## 33 84.78366 151.23973 100.00000
## 34 83.93566 223.40088 95.54148
## 35 53.04671 185.06641 91.28614
## 36 83.68377 178.28878 100.00000
## 37 58.31582 231.07300 78.69969
## 38 86.59804 223.48819 84.01331
## 39 75.46086 163.05936 90.56092
## 40 73.05063 202.83599 69.44558
## 41 79.93154 153.14666 100.00000
## 42 93.73052 175.73155 75.93673
## 43 73.64677 238.49733 81.59355
## 44 85.58103 233.50384 91.65975
## 45 83.41158 223.27056 87.91820
## 46 68.20481 172.87288 100.00000
## 47 62.58978 133.55706 100.00000
## 48 60.07414 154.72905 100.00000
## 49 85.51274 218.57670 45.44594
## 50 79.65258 181.28296 90.69250
## 51 98.50572 125.12176 99.78350
## 52 85.73675 184.59438 98.97290
## 53 88.49696 232.30718 75.01840
## 54 93.34384 209.30406 96.87835
## 55 74.99281 165.36224 86.55135
## 56 85.10098 143.62250 100.00000
## 57 88.68793 165.20358 100.00000
## 58 93.69352 191.03583 90.67423
## 59 87.62651 216.64221 83.79867
## 60 84.21147 131.80180 96.46025
## 61 71.31776 220.69605 68.50658
## 62 87.29560 190.16373 97.28383
## 63 85.00266 207.09337 78.62644
## 64 86.34250 140.40233 100.00000
## 65 84.23645 170.00037 100.00000
## 66 77.98162 176.55297 100.00000
## 67 79.23134 221.31674 90.30077
## 68 86.87364 220.84522 69.50376
## 69 81.71632 203.05271 87.39251
## 70 71.69891 238.12637 53.51686
## 71 77.09841 174.53766 91.99147
## 72 66.80874 220.37612 92.00174
## 73 70.32968 188.92180 100.00000
## 74 78.55389 169.97974 100.00000
## 75 62.01867 217.70140 88.37807
## 76 63.11458 231.43301 78.60337
## 77 91.02565 216.34751 84.13958
## 78 74.23381 174.71790 97.46217
## 79 61.48308 175.90637 100.00000
## 80 78.87137 231.33028 96.88081
## 81 93.21069 200.58479 74.94486
## 82 86.62254 214.88722 86.99939
## 83 84.41383 179.83894 98.63909
## 84 91.83746 227.83105 100.00000
## 85 72.28499 165.73735 100.00000
## 86 87.29689 208.76055 100.00000
## 87 74.12914 165.48475 100.00000
## 88 80.00764 116.12275 100.00000
## 89 102.14465 149.71127 100.00000
## 90 89.69434 194.08886 100.00000
## 91 87.68008 216.48768 71.93331
## 92 68.91672 137.46094 100.00000
## 93 72.13764 152.45727 96.15151
## 94 102.84116 242.93638 68.02514
## 95 69.06699 176.98302 97.35104
## 96 82.14479 205.17100 88.01014
## 97 88.92571 174.19194 94.20821
## 98 90.18758 181.04251 96.06106
## 99 90.89112 192.61733 87.49844
## 100 78.36871 190.32886 87.53790
## 101 71.79013 184.22319 94.46348
## 102 76.92743 175.90611 95.88734
## 103 70.97902 98.56417 100.00000
## 104 86.27069 246.05967 88.18862
## 105 91.20355 243.71273 79.28644
## 106 101.27214 156.96755 100.00000
## 107 83.66114 184.95677 100.00000
## 108 71.25219 231.25826 85.76841
## 109 90.24475 219.94870 100.00000
## 110 89.04759 228.29805 87.17492
## 111 77.61751 157.84759 88.14031
## 112 64.42145 267.31804 73.44250
## 113 87.61310 155.99620 80.16160
## 114 91.29144 212.61749 100.00000
## 115 77.04892 194.23828 81.77373
## 116 85.36243 177.88869 79.76589
## 117 77.24110 178.61753 94.47592
## 118 86.82315 160.25810 100.00000
## 119 78.82709 238.67979 65.12971
## 120 76.55324 192.68540 100.00000
## 121 81.11620 197.77654 100.00000
## 122 77.16595 196.28898 100.00000
## 123 74.08983 178.74488 64.11414
## 124 76.84063 155.97936 85.34060
## 125 79.91848 197.61179 99.28702
## 126 82.07495 127.19082 76.14837
## 127 95.32424 147.44299 96.40854
## 128 66.42002 157.70810 100.00000
## 129 78.00381 157.63963 100.00000
## 130 86.31523 193.21566 100.00000
## 131 97.62021 237.95463 84.84621
## 132 84.26014 144.54028 100.00000
## 133 79.86247 203.01028 86.68373
## 134 76.92443 216.98634 96.66257
## 135 84.14308 160.31403 100.00000
## 136 89.89058 188.41602 98.51579
## 137 78.16142 214.70833 92.40607
## 138 81.63761 182.33473 91.56964
## 139 82.16936 183.37947 86.22689
## 140 87.29278 199.23180 89.48931
## 141 91.11380 188.19960 98.40598
## 142 82.79161 173.33041 97.92177
## 143 79.23829 185.84155 93.74989
## 144 93.94663 246.48519 80.02805
## 145 81.64534 216.21006 95.43306
## 146 95.77852 162.56209 100.00000
## 147 79.38077 152.65247 100.00000
## 148 86.13923 179.20053 85.38529
## 149 64.53911 229.86324 93.77802
## 150 78.87608 198.78037 85.45402
## 151 79.78205 168.95484 96.11934
## 152 72.41655 216.46704 97.54007
## 153 69.64107 185.99889 98.94197
## 154 89.48159 156.37965 96.80100
## 155 89.14159 203.83577 71.20314
## 156 67.01268 235.72428 74.48061
## 157 84.24379 203.03405 90.45487
## 158 68.87455 195.76001 100.00000
## 159 69.48927 170.31271 100.00000
## 160 85.25412 207.05196 90.62093
## 161 73.13976 157.88288 82.25335
## 162 89.93480 140.40553 100.00000
## 163 80.38524 188.69942 87.74158
## 164 85.36149 188.96219 87.39012
## 165 74.76373 260.95167 86.60551
## 166 68.48779 153.50958 100.00000
## 167 89.14752 195.12719 78.65485
## 168 82.38071 214.15159 75.20394
## 169 77.60932 221.51779 99.23040
## 170 80.69235 189.67827 65.83611
## 171 93.25908 167.70232 90.70285
## 172 73.01833 188.02648 85.38622
## 173 72.50592 248.19268 84.35429
## 174 73.80385 204.48217 96.85953
## 175 64.15009 128.66569 100.00000
## 176 88.19628 232.70377 57.96087
## 177 81.92370 206.21508 100.00000
## 178 82.07172 188.99285 100.00000
## 179 79.56653 189.46409 100.00000
## 180 74.89840 185.50631 100.00000
## 181 71.76581 197.69678 84.67545
## 182 88.51856 174.88399 100.00000
## 183 65.73815 198.31034 90.91384
## 184 84.40299 162.05932 100.00000
## 185 72.07388 196.00441 72.24570
## 186 82.82310 223.20512 88.64576
## 187 72.59309 205.27618 100.00000
## 188 74.76658 221.01249 83.77710
## 189 97.69366 157.27394 84.71513
## 190 86.68283 191.64378 100.00000
## 191 58.55103 208.51751 81.22331
## 192 81.26412 157.95985 85.99595
## 193 75.48187 236.97443 54.22224
## 194 68.63374 158.95576 89.39700
## 195 82.09786 194.93556 97.88776
## 196 81.29966 194.55497 99.33587
## 197 76.71493 193.65011 92.80241
## 198 99.72704 183.68726 79.65326
## 199 57.51310 203.49810 99.83833
## 200 88.38219 159.06507 100.00000##Cek Missing Value
colSums(is.na(data_kesehatan))## id umur jenis_kelamin tinggi_badan
## 0 0 0 0
## berat_badan gula_darah tekanan_sistolik tekanan_diastolik
## 0 0 0 0
## kolesterol skor_kesehatan
## 0 0##Rata-rata tinggi laki-laki
rata_tinggi_laki <- mean(data_kesehatan$tinggi_badan[data_kesehatan$jenis_kelamin == "Laki-laki"], na.rm = TRUE)
print(paste("Rata-rata tinggi laki-laki adalah", rata_tinggi_laki, "cm"))## [1] "Rata-rata tinggi laki-laki adalah 171.021544039084 cm"##Jumlah responden yang memenuhi semua indikator sehat (gula <110, kolesterol <200, tekanan <130/85)?
data_sehat <- subset(data_kesehatan,
gula_darah < 110 &
kolesterol < 200 &
tekanan_sistolik < 130 &
tekanan_diastolik < 85)
jumlah_ressehat <- nrow(data_sehat)
print(paste("Jumlah responder yang memenuhi semua indikator sehat adalah", jumlah_ressehat, "orang"))## [1] "Jumlah responder yang memenuhi semua indikator sehat adalah 48 orang"##Rata-rata skor kesehatan per kelompok umur, <30, 30-50, dan >50 tahun secara berturut-turut
data <- data_kesehatan %>%
mutate(umur_kategori = case_when(
umur < 30 ~ "<30",
umur >= 30 & umur <= 50 ~ "30-50",
umur > 50 ~ ">50"
))
rata_rata <- data %>%
group_by(umur_kategori) %>%
summarize(rata_rata_skor = mean(skor_kesehatan, na.rm = TRUE))
print(rata_rata)## # A tibble: 3 × 2
## umur_kategori rata_rata_skor
## <chr> <dbl>
## 1 30-50 89.4
## 2 <30 90.4
## 3 >50 89.5