datakesehatan <- read.csv("data_kesehatan (1).csv")
datakesehatan
## X..id...umur...jenis_kelamin...tinggi_badan...berat_badan...gula_darah...tekanan_sistolik...tekanan_diastolik...kolesterol...skor_kesehatan.
## 1 1,1,33,"Perempuan",159.558663885181,62.8502667588964,80.0840255029733,129.29775111853,69.1388175938865,181.329301886123,100
## 2 2,2,59,"Perempuan",152.988091453454,54.7359183364042,79.2008991246761,108.637347589562,73.3469720443984,209.695402317381,100
## 3 3,3,39,"Perempuan",156.191510410547,66.8416176405135,99.6403951884668,132.772870222593,87.1484835594934,176.38006898084,88.5294910667202
## 4 4,4,64,"Laki-laki",173.802358414625,54.839323768489,97.3564973428653,108.781050436255,75.6833889961807,172.184063126647,100
## 5 5,5,67,"Perempuan",164.024175812404,62.2101964523467,49.0131445049914,129.45359744481,82.2761493994009,138.688610008161,100
## 6 6,6,20,"Perempuan",150.096720739449,61.1528372996975,120.811469114388,136.449924496553,92.949457956703,183.716547151818,75.3937758587267
## 7 7,7,45,"Perempuan",157.901474564732,59.3949993537613,104.994514719704,105.173356164252,85.7833494046945,264.362374040713,80.2104416042548
## 8 8,8,64,"Laki-laki",165.837679127783,55.8797420734169,148.324147462967,136.619925614694,93.6467278147354,219.691066243881,59.5118408279721
## 9 9,9,47,"Perempuan",156.767145040134,62.2105242570863,113.703964761022,112.657006931814,62.9842019733959,240.267164674805,76.401708353509
## 10 10,10,42,"Perempuan",161.363751530038,58.7336477704004,91.0608138207602,124.415300826555,77.1932372028621,217.448959549421,95.0222437587003
## 11 11,11,68,"Perempuan",162.953371420387,39.936657582422,155.947822939162,123.027562084332,80.6506801949219,224.327881238856,48.5147354006071
## 12 12,12,42,"Laki-laki",171.705812007194,57.824000122364,156.64452047831,113.592054204927,85.7858929160851,217.086292434973,62.2676167849064
## 13 13,13,53,"Laki-laki",178.627331149397,86.875894829457,75.6257636741964,124.021543049967,68.3079337847103,204.261772952953,96.8266990958641
## 14 14,14,48,"Perempuan",159.263748034136,61.6503523587448,109.380639119108,101.543536118642,88.0618485544729,172.52413678009,100
## 15 15,15,23,"Perempuan",157.517940918447,62.2149796708929,95.775061627357,117.957946917226,83.0739007616233,174.011957880296,100
## 16 16,16,65,"Perempuan",144.141106287826,66.5720542435889,103.74102293108,132.386862474978,82.6380601360472,141.974800108741,85.9233300900836
## 17 17,17,31,"Perempuan",159.442353889123,58.4467807254363,104.550854571376,87.3881302615603,85.0848479160505,189.8254685836,100
## 18 18,18,20,"Laki-laki",164.938538210421,63.2451770840793,74.761990742619,97.6811071896262,78.8364156012301,216.980670275701,100
## 19 19,19,35,"Perempuan",163.212393045209,52.6278716570434,105.711791604851,102.570936636045,89.2554609849911,220.957676695782,90.7273303281255
## 20 20,20,68,"Laki-laki",161.006989943775,85.4660915422409,134.984947262836,96.1636545878186,86.4822977373149,192.853981133663,67.801690992136
## 21 21,21,64,"Perempuan",170.677017458651,50.1681105795695,96.7181999173039,126.293745589445,78.497906258323,173.571171483343,94.0937216691398
## 22 22,22,54,"Laki-laki",174.325900720166,73.1839026040802,96.7414657860309,105.10607475366,90.403770193407,288.715523299556,77.7511192766089
## 23 23,23,51,"Laki-laki",177.768936972508,78.4643628557969,127.971440126749,87.5317937200654,82.9255868494618,212.100565937513,85.653705427294
## 24 24,24,70,"Laki-laki",174.953118476849,71.7819018841802,117.967924813659,110.436468523793,86.6875139943946,232.617259146374,80.6464630981572
## 25 25,25,52,"Perempuan",155.689202672084,57.8583486275433,67.0301036323743,114.140471227878,74.0582235837578,179.86958077998,100
## 26 26,26,55,"Perempuan",157.297968256452,55.2648631822975,104.571139465244,132.851782106672,95.8043183698592,188.861271188362,93.0434451252024
## 27 27,27,46,"Laki-laki",165.067824754239,71.7058808184084,133.070944693555,103.443717960018,79.9601105565002,203.458212931202,76.9855182520862
## 28 28,28,49,"Laki-laki",164.979472868982,59.3650209361796,128.305526998383,137.41933883608,88.4784276889348,240.295669358449,67.0883931940461
## 29 29,29,33,"Perempuan",169.80141052845,50.6430779166871,108.399032076285,125.975440734429,78.9988347410731,180.655763636316,87.2738681295238
## 30 30,30,26,"Laki-laki",162.890851949775,90.8671743449315,114.424416142258,125.435282364533,77.203700930194,215.608470003492,60.0813172832707
## 31 31,31,68,"Laki-laki",183.687057758447,63.2149685458156,76.0612957562263,107.212114945282,87.8443824528001,127.155560970393,100
## 32 32,32,65,"Perempuan",162.270543421821,55.2213592690976,106.002631337627,149.305018198471,64.1538335540883,174.782366977551,88.9775809589144
## 33 33,33,54,"Perempuan",161.800231271235,66.3156788223214,80.9110212962435,117.535937518543,84.7836614779403,151.239727697101,100
## 34 34,34,59,"Laki-laki",164.830306066823,73.102302560609,90.8396386380611,92.626536237325,83.9356637299481,223.400881520713,95.5414831626449
## 35 35,35,19,"Perempuan",160.115555647752,58.4658015271205,118.712073675592,116.942152929113,53.0467063087548,185.066407351592,91.2861419173518
## 36 36,36,43,"Perempuan",153.535476081328,62.2710312508188,77.2621377661771,90.9833389390192,83.6837732853326,178.288777539798,100
## 37 37,37,57,"Perempuan",164.276219951466,45.9914598448314,105.338365017461,115.3423482632,58.3158225265299,231.072995385957,78.699686802427
## 38 38,38,29,"Perempuan",166.508650539164,53.4506417798416,108.566640789431,113.666594952156,86.5980437689272,223.488185747201,84.0133081648735
## 39 39,39,35,"Perempuan",146.650073821076,60.4497187950627,101.098239396793,130.227445356051,75.4608626661881,163.059363895975,90.5609208823305
## 40 40,40,30,"Laki-laki",164.529244590617,65.0706257583802,136.443776436708,135.142442786062,73.0506317476511,202.835994628289,69.4455829439349
## 41 41,41,25,"Laki-laki",164.479646204022,61.6581176841562,79.553053428495,109.108425526483,79.9315369682733,153.146662944633,100
## 42 42,42,40,"Perempuan",162.728615613896,81.4788719938144,112.122605228712,132.091633025625,93.7305204498399,175.731549273665,75.9367320101118
## 43 43,43,40,"Laki-laki",180.472424688924,71.5735334721616,98.2213886509867,141.364846645031,73.6467692278211,238.497329114409,81.5935468857719
## 44 44,44,37,"Perempuan",158.800661031391,60.5139484530403,94.7833551233215,108.23783992736,85.5810329394878,233.503838539913,91.6597538794722
## 45 45,45,26,"Laki-laki",168.746638839339,66.042020497111,109.281824677048,110.21393450251,83.4115786842188,223.270562664005,87.9181992406017
## 46 46,46,25,"Laki-laki",183.316532751753,78.993540532031,79.5919881863214,129.761675447305,68.2048137085844,172.87288341009,100
## 47 47,47,30,"Laki-laki",169.293175802698,61.6918847266375,73.7309816696319,122.745719549159,62.5897798266603,133.557055891733,100
## 48 48,48,42,"Perempuan",165.299816919692,68.3624453117064,90.1103824903315,128.231624406664,60.0741422876086,154.729054479275,100
## 49 49,49,32,"Perempuan",147.685978096588,72.9243625856576,135.035142995109,141.070264418213,85.5127421146789,218.576695738826,45.4459436965827
## 50 50,50,63,"Perempuan",150.181724391646,59.7624482316013,101.11529549225,125.806246793646,79.652579384687,181.282963415047,90.6925006698511
## 51 51,51,20,"Laki-laki",167.370779898312,50.6149529854662,106.628687964558,135.775519052631,98.5057170361062,125.121755632961,99.7834992506593
## 52 52,52,41,"Perempuan",166.279773082669,59.220700011979,96.2030672464492,129.343581935058,85.7367510826304,184.594375368506,98.9729012992258
## 53 53,53,60,"Perempuan",162.611733693446,68.1316417416173,109.409854639077,126.504305847133,88.4969589108261,232.307176633737,75.0184030350032
## 54 54,54,24,"Laki-laki",170.633476529975,55.4917568650937,80.9664091396571,125.791266572766,93.3438358533495,209.304059215586,96.8783484403675
## 55 55,55,47,"Laki-laki",181.189561398021,74.8062559987522,123.158209331373,139.369849566871,74.9928090203503,165.362243694117,86.5513528558233
## 56 56,56,29,"Laki-laki",169.380044215028,61.718257296032,111.694105204827,104.96610189434,85.1009792822849,143.622500438049,100
## 57 57,57,25,"Laki-laki",177.565596473061,80.2025301216443,83.8709435461659,103.422259062638,88.6879327024415,165.203583230896,100
## 58 58,58,57,"Laki-laki",174.415278809554,75.3848203210264,101.09106491624,128.879190050958,93.6935168800303,191.035830139646,90.6742338158892
## 59 59,59,65,"Perempuan",161.383700983787,61.17366787316,114.326632389982,118.204655038003,87.6265114632637,216.642211027362,83.7986722896128
## 60 60,60,37,"Laki-laki",159.269685979766,71.2071932928703,111.154619641092,121.110078175274,84.2114717303733,131.801795356292,96.460249391364
## 61 61,61,53,"Perempuan",165.231789724472,67.2896774141706,129.638680317538,131.119160657571,71.3177595272878,220.696052658224,68.506581318172
## 62 62,62,23,"Perempuan",157.909165306266,61.1396674563663,87.740244902103,131.299425717736,87.2956036095769,190.163731797641,97.2838322051127
## 63 63,63,38,"Perempuan",163.111022595329,48.8841318080947,122.322732309808,116.059942449573,85.0026587241829,207.093369088175,78.6264387687206
## 64 64,64,32,"Laki-laki",179.101390743668,69.7160494525094,120.730960198824,115.311841965043,86.3425025370691,140.402333102954,100
## 65 65,65,60,"Perempuan",153.443276745391,58.6937205421657,96.7503373619429,121.103979135118,84.2364504557226,170.000368596335,100
## 66 66,66,41,"Laki-laki",180.833067412886,70.3152600459399,80.4814661435623,135.945266839421,77.9816195529,176.552974322034,100
## 67 67,67,60,"Perempuan",164.445400067646,45.1181794062527,78.2170961823097,126.390307300185,79.2313410156599,221.316740449271,90.300773358849
## 68 68,68,60,"Laki-laki",157.704308231097,68.446546528556,109.155739158899,141.495112662348,86.8736411328152,220.845221421862,69.5037602734651
## 69 69,69,59,"Laki-laki",167.278540951498,75.6828862077707,98.5774653255821,119.8854469437,81.7163150692454,203.05271377745,87.3925072660325
## 70 70,70,41,"Laki-laki",170.624450561513,80.1067796451427,135.582053337029,136.885014078311,71.6989142567301,238.126365448717,53.5168614014206
## 71 71,71,57,"Laki-laki",175.915091028472,64.8201756983218,110.702759209924,133.245034665259,77.0984088019433,174.537664007639,91.9914735284961
## 72 72,72,51,"Laki-laki",176.73769577939,67.0590467284389,92.5611024967301,129.181251913501,66.8087427582349,220.376115813218,92.0017352492109
## 73 73,73,55,"Laki-laki",174.790166005915,73.9784220880034,79.4891550300577,126.220510601677,70.3296809733109,188.921799106278,100
## 74 74,74,18,"Perempuan",158.563890597171,67.2281314108934,88.351966507895,115.801764042862,78.5538892986448,169.979737114708,100
## 75 75,75,43,"Laki-laki",175.947501319433,70.9126738348824,106.857767857947,118.364437362462,62.0186744362507,217.701401149925,88.37806750537
## 76 76,76,29,"Perempuan",160.910083027056,75.6057680512092,90.981307058867,123.440932435627,63.1145752540842,231.433009925485,78.6033688083359
## 77 77,77,38,"Laki-laki",171.223618901129,58.8010027860238,110.284602404614,120.733333360189,91.0256519943608,216.347512485545,84.1395832086398
## 78 78,78,50,"Laki-laki",170.521858240216,56.7224452439587,93.3132389566044,134.148367025793,74.2338107578856,174.717896337332,97.4621746232083
## 79 79,79,36,"Laki-laki",172.997167354794,61.4637630327276,97.8888018241105,118.360243152204,61.4830827044851,175.906370975347,100
## 80 80,80,24,"Laki-laki",170.172724879783,63.0669547206933,85.3898065438434,118.944346176183,78.8713676057102,231.33027540418,96.8808097850288
## 81 81,81,31,"Perempuan",160.12270425115,63.8162979062776,138.100871698174,112.735213686515,93.2106926722151,200.584792192532,74.9448609534576
## 82 82,82,53,"Perempuan",161.884345981038,52.2240463081925,106.652434629408,117.92495507185,86.6225429693464,214.887219379634,86.9993927248114
## 83 83,83,40,"Laki-laki",172.702185978448,62.7261647091246,104.612672809989,118.968515365442,84.4138319835364,179.838940490071,98.6390924201762
## 84 84,84,59,"Laki-laki",168.140438623052,60.03161017622,66.1627517023187,85.2939633915088,91.8374591227984,227.83104809394,100
## 85 85,85,23,"Laki-laki",170.827011577327,59.5831114101049,113.195837990987,99.5275245417852,72.2849855889911,165.737345651134,100
## 86 86,86,41,"Perempuan",164.673160178701,63.6588586530026,79.5275282224058,118.912696350721,87.2968919135204,208.760545625999,100
## 87 87,87,69,"Perempuan",165.488639625134,51.6949516825024,82.1695685129141,116.020743377033,74.1291438422114,165.484751032957,100
## 88 88,88,64,"Perempuan",156.553632686894,55.1638941573271,118.366823420433,101.986960076888,80.0076418636251,116.122749502427,100
## 89 89,89,64,"Laki-laki",168.466647347466,66.7867515783161,90.9459870698354,90.1269273593547,102.144653193401,149.71127467961,100
## 90 90,90,27,"Perempuan",157.714259564236,63.162366960108,65.0325543999364,114.684461701299,89.6943439570926,194.088855976305,100
## 91 91,91,25,"Laki-laki",178.178687111484,69.0856572444986,135.398082197787,129.802436485414,87.6800771371721,216.487682488775,71.9333124773629
## 92 92,92,52,"Laki-laki",177.379267163638,81.8718681065156,52.4518614921496,146.598579478913,68.9167208818184,137.460937507156,100
## 93 93,93,36,"Laki-laki",178.016841772663,81.9160126851033,111.456230597192,119.42314809436,72.1376408000529,152.457265932414,96.1515100335911
## 94 94,94,52,"Laki-laki",165.957723992583,62.1103678188877,120.344984981692,142.397772609416,102.841164802616,242.936379897265,68.0251398106754
## 95 95,95,35,"Laki-laki",184.01737911205,54.5222345636243,87.3806426667893,121.24533236454,69.0669923602669,176.983019505302,97.3510439730352
## 96 96,96,28,"Perempuan",151.851525643776,54.3919711019738,108.885741028231,121.732981563893,82.1447937528507,205.171003957918,88.0101358292232
## 97 97,97,59,"Perempuan",161.091083155719,61.9283674600098,108.782607767771,124.872379700231,88.9257105963707,174.19194035868,94.208212155701
## 98 98,98,23,"Perempuan",160.989045207511,57.1803744061763,120.81246305829,106.941341321086,90.1875797234226,181.042513445455,96.0610646783236
## 99 99,99,42,"Laki-laki",170.14688510448,74.2057418869815,109.68198775905,119.224226806577,90.8911201091924,192.617326198157,87.4984380147118
## 100 100,100,45,"Laki-laki",178.749401996785,53.8596054338088,95.1023244181495,133.626715481884,78.3687101011479,190.32885528397,87.5378952971444
## 101 101,101,49,"Perempuan",156.38864292409,51.8870866187082,118.319841158804,108.754113197217,71.7901330288,184.223193668738,94.4634793518261
## 102 102,102,35,"Perempuan",154.037808453408,53.6694889694442,116.012447130195,115.175908951681,76.9274276701136,175.906105445688,95.8873432168849
## 103 103,103,43,"Laki-laki",163.430229074752,63.069053859894,81.2686193172841,102.783438743111,70.9790199146054,98.5641733060383,100
## 104 104,104,68,"Perempuan",164.506367815638,73.1124152700125,71.9842513200854,125.31528294674,86.2706874311498,246.059665010011,88.1886177926506
## 105 105,105,43,"Laki-laki",166.939883267737,56.3529054201309,103.205550799864,126.371996735835,91.2035502842611,243.712726247291,79.2864362341808
## 106 106,106,64,"Laki-laki",172.318254210713,75.8998267936731,94.5207525044963,129.725210268361,101.272135524935,156.967547748423,100
## 107 107,107,66,"Perempuan",154.624313063461,66.60738321318,80.2892177487541,101.702849527246,83.6611438293172,184.956774336701,100
## 108 108,108,50,"Laki-laki",171.483863033606,60.9578497437936,101.678613590301,121.608525521321,71.2521862280632,231.258259141375,85.7684086777316
## 109 109,109,39,"Laki-laki",178.656725324916,72.2632494238106,73.6000694702619,105.839134625252,90.2447486299323,219.948700691566,100
## 110 110,110,26,"Laki-laki",184.263018127683,77.4808116249384,103.224527026524,119.99423026926,89.0475889369531,228.298048562373,87.1749205406167
## 111 111,111,67,"Perempuan",159.415784394922,80.6035981097871,87.5014322491616,140.139358800091,77.6175130409717,157.847592455206,88.1403120376457
## 112 112,112,34,"Laki-laki",175.297423346572,67.8715172135347,119.14328548385,112.447120695986,64.4214509612769,267.318042885939,73.4424972481471
## 113 113,113,21,"Perempuan",165.29479098638,60.8073588721029,148.489782823231,130.750249814082,87.6130989539391,155.99620120689,80.1615956159357
## 114 114,114,67,"Laki-laki",165.789453043953,69.1328586501808,81.6804151262642,108.754971238745,91.2914439564163,212.617490256499,100
## 115 115,115,55,"Perempuan",156.301384942759,64.7186873836701,121.15328341886,112.822076843245,77.0489216929407,194.238279413371,81.7737346779966
## 116 116,116,25,"Perempuan",155.591204488472,68.7728677737712,116.502994555366,126.580826258799,85.3624281835802,177.888690461139,79.765885454271
## 117 117,117,47,"Perempuan",159.209183241753,71.5652979288092,98.5961155138928,109.813315943132,77.2410952524949,178.617526054569,94.4759224341712
## 118 118,118,68,"Perempuan",161.860101919474,44.598837985303,90.9270725188597,94.4555274728185,86.8231524513751,160.25809562407,100
## 119 119,119,48,"Laki-laki",181.791049956659,73.7324143416641,131.50615413675,138.9775265282,78.8270928528515,238.679793872704,65.1297053181609
## 120 120,120,39,"Laki-laki",176.379739042572,74.032903312207,59.8908436352751,125.405358568198,76.5532413607994,192.685396832883,100
## 121 121,121,52,"Laki-laki",171.662011907437,59.5832670571068,87.1361041681267,111.245408391599,81.1162049819721,197.776538476431,100
## 122 122,122,35,"Perempuan",159.350319452593,58.3027957433444,71.2631311268445,90.088818190041,77.165946850177,196.288984991831,100
## 123 123,123,34,"Laki-laki",160.628579989355,76.4183002765162,127.906268778922,148.53314657099,74.0898283554572,178.744877408174,64.1141423275428
## 124 124,124,29,"Laki-laki",174.625742084529,54.7068946881958,96.1859313471029,170.855562319073,76.840630687576,155.979362657349,85.3405953094374
## 125 125,125,37,"Perempuan",166.687891272172,65.3212790059678,89.5065760106066,123.112206110332,79.9184784767447,197.611789290519,99.2870181179873
## 126 126,126,69,"Laki-laki",174.786218652955,72.5024782134833,163.680889481327,132.747099712668,82.0749514071847,127.190816501232,76.1483656477969
## 127 127,127,26,"Laki-laki",169.574246317379,75.6386739030588,98.9992546422474,138.368404681112,95.3242362162584,147.442991714932,96.4085422369083
## 128 128,128,23,"Perempuan",160.834587142971,61.5702243637798,91.1250137626695,109.472933496921,66.4200216904652,157.708099151849,100
## 129 129,129,25,"Laki-laki",179.348623305416,62.6714619370288,105.997305002723,114.732056556652,78.0038094944706,157.639634119829,100
## 130 130,130,54,"Perempuan",156.649258525911,63.4487914249199,68.6315075849006,94.0931844503221,86.3152312778083,193.215664497012,100
## 131 131,131,50,"Perempuan",163.632224013582,61.5100248746387,109.806052853441,108.951326515922,97.6202090344287,237.954626449742,84.8462106463683
## 132 132,132,64,"Perempuan",156.961998746865,49.2620549977324,98.0767359784007,129.336146743292,84.260143626155,144.540275678051,100
## 133 133,133,53,"Laki-laki",164.948768916948,50.5634909867602,109.370502450603,115.639260161387,79.862465835246,203.010280617898,86.6837326167443
## 134 134,134,56,"Laki-laki",180.634523979717,83.9957618540294,80.3525872812429,116.786826987254,76.9244309040364,216.986342599631,96.6625697162199
## 135 135,135,45,"Laki-laki",172.641715811168,69.4394405381373,79.5403231570411,118.311606727462,84.1430816410829,160.314033931334,100
## 136 136,136,52,"Laki-laki",155.634440256964,75.2491427931929,86.1317067344763,92.0449952625659,89.8905792019639,188.416017954326,98.515789923133
## 137 137,137,61,"Perempuan",166.991520339678,54.5054747804584,84.6402085381443,132.564449013475,78.1614168945395,214.708327078662,92.4060697809034
## 138 138,138,59,"Laki-laki",168.594532890876,69.033139267933,125.980999333672,98.3476066659687,81.6376140684656,182.334726923578,91.5696436744251
## 139 139,139,69,"Laki-laki",176.060455830341,69.2473680235127,131.582911236162,116.871447563765,82.1693634414438,183.379469582464,86.226892134781
## 140 140,140,41,"Laki-laki",169.286817209993,80.191570693309,96.8621609392187,113.421548069118,87.2927763420966,199.231803736319,89.4893106513226
## 141 141,141,34,"Laki-laki",174.369312304145,77.1160192248624,92.8212687883064,116.721092747157,91.1138040702469,188.199602400002,98.405981863651
## 142 142,142,39,"Perempuan",157.187801321307,57.1201990564555,93.4192233915666,141.899489171037,82.7916081693963,173.330413301823,97.9217663567058
## 143 143,143,19,"Perempuan",164.225003703578,46.5126683636901,101.38472955706,111.269101231269,79.2382932845282,185.841549416173,93.7498899712632
## 144 144,144,28,"Laki-laki",170.392117132925,76.6441586369409,101.938084674021,108.253536064322,93.9466313220858,246.485193771594,80.0280484133424
## 145 145,145,62,"Perempuan",165.198196792677,56.3379157340759,105.800687755311,97.2051900758423,81.6453411760559,216.210060388181,95.4330611918432
## 146 146,146,30,"Laki-laki",157.727338486004,47.8936688942438,85.0664211790749,107.914528775831,95.7785197879348,162.562087815171,100
## 147 147,147,30,"Laki-laki",170.695293158615,96.9171400324612,83.0620722235936,102.507229389484,79.3807734238045,152.65247133006,100
## 148 148,148,22,"Laki-laki",165.997049594731,65.1732317820369,123.941553274922,126.119192943724,86.1392296419369,179.200532779522,85.3852885230228
## 149 149,149,31,"Perempuan",174.581359914067,57.8218597246532,89.0274527779335,107.054936309882,64.5391140575476,229.86324102844,93.7780164167311
## 150 150,150,56,"Laki-laki",168.740656382667,73.7464356800499,106.060913904509,124.560630525422,78.8760803866259,198.780373552509,85.4540244990262
## 151 151,151,62,"Laki-laki",177.104602209206,85.3843019889679,98.8605893239334,117.803587682281,79.7820546003911,168.95484289478,96.1193440253251
## 152 152,152,44,"Laki-laki",156.05076057918,68.9028967882376,80.8430121569866,98.4965673013379,72.4165458258345,216.467037034541,97.5400663811404
## 153 153,153,38,"Perempuan",166.664268509217,61.2492456582026,111.82123818823,108.14088321416,69.641071155777,185.998888338313,98.94197175933
## 154 154,154,31,"Laki-laki",170.816460985079,72.1395797964226,103.462097469859,133.276686825865,89.4815930255181,156.379645021257,96.8009976379015
## 155 155,155,24,"Laki-laki",163.747547009615,68.138793006265,127.99566712425,133.546141289319,89.1415873392772,203.835773626354,71.2031423136109
## 156 156,156,38,"Perempuan",151.246175628779,47.0251339270063,102.34919169254,150.083599114509,67.0126800515354,235.724284305364,74.4806088218932
## 157 157,157,48,"Laki-laki",172.88000944431,80.1283433584425,93.3690848359829,119.946295374003,84.2437879493434,203.034048943985,90.4548722381887
## 158 158,158,29,"Laki-laki",169.768746885068,67.985418530285,105.565898266107,97.5625977902679,68.8745468004491,195.760011134168,100
## 159 159,159,41,"Laki-laki",152.73871264368,49.623175055592,76.2881670192932,108.473744594773,69.4892677381844,170.312706147488,100
## 160 160,160,29,"Perempuan",156.222527543884,67.6429251178433,83.2821189321281,126.127327572602,85.2541244826636,207.051955926086,90.6209337622283
## 161 161,161,44,"Perempuan",154.99693851679,66.2733670327547,110.205465022789,148.502045023421,73.1397599990695,157.882883953288,82.2533486070829
## 162 162,162,36,"Laki-laki",174.558352971114,76.1645571635144,93.337581975521,121.650136851596,89.9347998212221,140.405529265573,100
## 163 163,163,52,"Laki-laki",171.916365437256,76.1656781747743,98.6807810729507,137.105802376927,80.3852359907535,188.699416945187,87.7415805866775
## 164 164,164,37,"Laki-laki",177.172712643728,53.0789847913092,97.695565811561,131.521219570384,85.3614897578572,188.962194826029,87.390119559416
## 165 165,165,36,"Perempuan",152.882760488117,60.7726866726595,86.9897476245094,102.47862566824,74.7637330211384,260.951665960084,86.6055057614382
## 166 166,166,46,"Laki-laki",168.5314478014,79.6785920994706,59.6262268183517,117.433310216027,68.4877866505641,153.509580763243,100
## 167 167,167,56,"Perempuan",163.197935720959,45.2122177972987,106.976699403532,139.578923045215,89.1475224100276,195.127189700471,78.6548511620115
## 168 168,168,29,"Laki-laki",163.382138182133,67.7503872895588,115.232790152937,133.141441643939,82.3807149156271,214.151592808666,75.2039388893184
## 169 169,169,39,"Perempuan",158.189520016802,59.3796882656704,74.2256752929975,126.956942123517,77.6093224054529,221.517785323477,99.2304008915389
## 170 170,170,32,"Laki-laki",166.77273162781,84.8783783187804,129.648054369172,127.156713680653,80.6923532654574,189.67826546022,65.8361112999793
## 171 171,171,51,"Laki-laki",186.917413476517,53.3207195422068,107.703096473745,112.628920496859,93.2590834259925,167.702315757122,90.7028469621336
## 172 172,172,28,"Laki-laki",158.442657730183,65.6317002308687,126.832805899877,100.209220299837,73.0183336537993,188.0264784439,85.3862191027344
## 173 173,173,63,"Perempuan",155.309561730808,48.0104139637859,80.8565905751542,139.43138686247,72.5059155553682,248.192679758115,84.3542865946396
## 174 174,174,57,"Perempuan",161.9224138859,51.1881324884901,103.335625767085,98.6967076249961,73.8038494729265,204.482170245275,96.8595324827424
## 175 175,175,53,"Laki-laki",173.570927828151,72.7962786243176,97.9997208212238,105.916561204413,64.1500873179013,128.665687823258,100
## 176 176,176,50,"Laki-laki",165.873632730395,88.7786402105219,115.370148637636,129.434474887798,88.1962813750374,232.703773859507,57.9608723486896
## 177 177,177,37,"Perempuan",164.039523180129,53.6038883713878,88.4828086417461,101.067081759156,81.9236964674425,206.215079827452,100
## 178 178,178,46,"Laki-laki",171.011329932975,67.2154597503641,99.7980465609508,111.721943800908,82.0717197421793,188.992846844874,100
## 179 179,179,63,"Laki-laki",169.899848107832,74.7491171403405,64.4268170251211,102.258007398263,79.5665264565231,189.464091366697,100
## 180 180,180,48,"Perempuan",160.156601351957,61.1713374293437,84.44757114259,129.309953365934,74.8983955857589,185.506308406198,100
## 181 181,181,62,"Laki-laki",170.241857469937,78.1340037407906,102.500677673302,126.694695249571,71.7658138622378,197.696784428657,84.6754527785633
## 182 182,182,34,"Perempuan",159.385920918876,51.0031706299341,85.8735701522355,126.328270399105,88.5185640329267,174.883992008889,100
## 183 183,183,55,"Perempuan",152.910644637666,57.5562428807216,99.1286102837704,126.636971582185,65.7381532707985,198.3103375498,90.9138415954934
## 184 184,184,32,"Perempuan",162.99194826298,55.8659244020501,90.6414805214956,128.358686195684,84.4029894196541,162.059319255378,100
## 185 185,185,49,"Perempuan",153.766261358158,72.0991634146596,112.13860272323,129.590347379558,72.0738834924232,196.004406258243,72.2456966114986
## 186 186,186,43,"Perempuan",158.642668111346,53.8441206168778,123.369766174991,90.4700766498867,82.8231021454547,223.205122619993,88.6457633819665
## 187 187,187,32,"Perempuan",162.288554976708,59.3433047697943,83.5499717438495,117.767754579602,72.5930947780985,205.276183409614,100
## 188 188,188,47,"Perempuan",155.298905265922,66.2970689145817,93.8592688281054,121.686957188279,74.7665831731597,221.012490293533,83.7771014096644
## 189 189,189,65,"Perempuan",163.49794843408,51.5312757124128,128.795225167395,130.870143039716,97.6936591702701,157.273937145921,84.7151285903572
## 190 190,190,65,"Laki-laki",172.422725336875,63.462201752399,56.0215349163259,102.187708859921,86.6828261893351,191.643783534178,100
## 191 191,191,32,"Perempuan",143.141351926237,65.406099323794,93.6032441651853,112.505997152761,58.5510297572434,208.517509081662,81.223306350567
## 192 192,192,35,"Laki-laki",154.896475654893,60.8643395183501,141.294085682867,103.895355138733,81.2641241610032,157.959853968001,85.9959549206078
## 193 193,193,69,"Laki-laki",176.189755740197,78.8674903709606,143.871801381285,135.858603190645,75.4818706374277,236.974430111754,54.2222414940362
## 194 194,194,50,"Laki-laki",164.193656718628,73.3336997015518,103.131906467003,139.18608874814,68.6337381222233,158.955759670442,89.3969954340302
## 195 195,195,67,"Laki-laki",165.985078104622,68.2936038176139,82.7278209877272,131.815150880389,82.0978589043119,194.935561255175,97.8877643060974
## 196 196,196,42,"Laki-laki",180.527304263032,78.1882813653178,103.309148389809,101.663949261345,81.2996551601936,194.554969910652,99.335869154139
## 197 197,197,39,"Laki-laki",164.580985492762,73.8836516281937,86.9445120810596,126.77928175105,76.7149342743192,193.650109059006,92.8024068622182
## 198 198,198,52,"Laki-laki",175.920120781325,65.5406497278784,129.05634564583,137.256737795714,99.7270356733745,183.687262490696,79.6532554904769
## 199 199,199,26,"Perempuan",167.087085348631,55.8190664224327,83.8703468859391,122.519114711047,57.5130993318344,203.498103614386,99.8383300427063
## 200 200,200,48,"Perempuan",171.159465169259,58.0064745779568,107.458231904175,111.50836000656,88.3821938727849,159.065065243076,100
databaru <- data.frame(Titanic)
databaru
## Class Sex Age Survived Freq
## 1 1st Male Child No 0
## 2 2nd Male Child No 0
## 3 3rd Male Child No 35
## 4 Crew Male Child No 0
## 5 1st Female Child No 0
## 6 2nd Female Child No 0
## 7 3rd Female Child No 17
## 8 Crew Female Child No 0
## 9 1st Male Adult No 118
## 10 2nd Male Adult No 154
## 11 3rd Male Adult No 387
## 12 Crew Male Adult No 670
## 13 1st Female Adult No 4
## 14 2nd Female Adult No 13
## 15 3rd Female Adult No 89
## 16 Crew Female Adult No 3
## 17 1st Male Child Yes 5
## 18 2nd Male Child Yes 11
## 19 3rd Male Child Yes 13
## 20 Crew Male Child Yes 0
## 21 1st Female Child Yes 1
## 22 2nd Female Child Yes 13
## 23 3rd Female Child Yes 14
## 24 Crew Female Child Yes 0
## 25 1st Male Adult Yes 57
## 26 2nd Male Adult Yes 14
## 27 3rd Male Adult Yes 75
## 28 Crew Male Adult Yes 192
## 29 1st Female Adult Yes 140
## 30 2nd Female Adult Yes 80
## 31 3rd Female Adult Yes 76
## 32 Crew Female Adult Yes 20
library(readxl)
dataexcel <- read_xlsx("df_mahasiswa.xlsx")
dataexcel
## # A tibble: 55 × 6
## id_mahasiswa jenis_kelamin jam_belajar_per_hari frekuensi_login_lms
## <chr> <chr> <dbl> <dbl>
## 1 MHS001 L 4 1
## 2 MHS002 P 4 2
## 3 MHS003 P 2 6
## 4 MHS004 P 5 3
## 5 MHS005 L 3 2
## 6 MHS006 L 3 7
## 7 MHS007 P 1 7
## 8 MHS008 L 3 4
## 9 MHS009 P 2 6
## 10 MHS010 L 1 5
## # ℹ 45 more rows
## # ℹ 2 more variables: motivasi_belajar <dbl>, ipk <dbl>
databaru2 <- data.frame(datasets::Titanic)
databaru2
## Class Sex Age Survived Freq
## 1 1st Male Child No 0
## 2 2nd Male Child No 0
## 3 3rd Male Child No 35
## 4 Crew Male Child No 0
## 5 1st Female Child No 0
## 6 2nd Female Child No 0
## 7 3rd Female Child No 17
## 8 Crew Female Child No 0
## 9 1st Male Adult No 118
## 10 2nd Male Adult No 154
## 11 3rd Male Adult No 387
## 12 Crew Male Adult No 670
## 13 1st Female Adult No 4
## 14 2nd Female Adult No 13
## 15 3rd Female Adult No 89
## 16 Crew Female Adult No 3
## 17 1st Male Child Yes 5
## 18 2nd Male Child Yes 11
## 19 3rd Male Child Yes 13
## 20 Crew Male Child Yes 0
## 21 1st Female Child Yes 1
## 22 2nd Female Child Yes 13
## 23 3rd Female Child Yes 14
## 24 Crew Female Child Yes 0
## 25 1st Male Adult Yes 57
## 26 2nd Male Adult Yes 14
## 27 3rd Male Adult Yes 75
## 28 Crew Male Adult Yes 192
## 29 1st Female Adult Yes 140
## 30 2nd Female Adult Yes 80
## 31 3rd Female Adult Yes 76
## 32 Crew Female Adult Yes 20
str(databaru2)
## 'data.frame': 32 obs. of 5 variables:
## $ Class : Factor w/ 4 levels "1st","2nd","3rd",..: 1 2 3 4 1 2 3 4 1 2 ...
## $ Sex : Factor w/ 2 levels "Male","Female": 1 1 1 1 2 2 2 2 1 1 ...
## $ Age : Factor w/ 2 levels "Child","Adult": 1 1 1 1 1 1 1 1 2 2 ...
## $ Survived: Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...
## $ Freq : num 0 0 35 0 0 0 17 0 118 154 ...
summary(databaru2)
## Class Sex Age Survived Freq
## 1st :8 Male :16 Child:16 No :16 Min. : 0.00
## 2nd :8 Female:16 Adult:16 Yes:16 1st Qu.: 0.75
## 3rd :8 Median : 13.50
## Crew:8 Mean : 68.78
## 3rd Qu.: 77.00
## Max. :670.00
colSums(is.na(datakesehatan))
## X..id...umur...jenis_kelamin...tinggi_badan...berat_badan...gula_darah...tekanan_sistolik...tekanan_diastolik...kolesterol...skor_kesehatan.
## 0
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, union
titanic_selected <- select(databaru2, Sex, Class, Survived)
head(titanic_selected)
## Sex Class Survived
## 1 Male 1st No
## 2 Male 2nd No
## 3 Male 3rd No
## 4 Male Crew No
## 5 Female 1st No
## 6 Female 2nd No
library(dplyr)
titanic_child <- filter(databaru2, Age == "Child")
titanic_soerted_asc <- arrange(databaru2, Freq)
head(titanic_soerted_asc)
## Class Sex Age Survived Freq
## 1 1st Male Child No 0
## 2 2nd Male Child No 0
## 3 Crew Male Child No 0
## 4 1st Female Child No 0
## 5 2nd Female Child No 0
## 6 Crew Female Child No 0
titanic_soerted_desc <- arrange(databaru2, desc(Freq))
head(titanic_soerted_desc)
## Class Sex Age Survived Freq
## 1 Crew Male Adult No 670
## 2 3rd Male Adult No 387
## 3 Crew Male Adult Yes 192
## 4 2nd Male Adult No 154
## 5 1st Female Adult Yes 140
## 6 1st Male Adult No 118
titanic_rename <- rename(databaru2, umur = Age)
titanic_rename
## Class Sex umur Survived Freq
## 1 1st Male Child No 0
## 2 2nd Male Child No 0
## 3 3rd Male Child No 35
## 4 Crew Male Child No 0
## 5 1st Female Child No 0
## 6 2nd Female Child No 0
## 7 3rd Female Child No 17
## 8 Crew Female Child No 0
## 9 1st Male Adult No 118
## 10 2nd Male Adult No 154
## 11 3rd Male Adult No 387
## 12 Crew Male Adult No 670
## 13 1st Female Adult No 4
## 14 2nd Female Adult No 13
## 15 3rd Female Adult No 89
## 16 Crew Female Adult No 3
## 17 1st Male Child Yes 5
## 18 2nd Male Child Yes 11
## 19 3rd Male Child Yes 13
## 20 Crew Male Child Yes 0
## 21 1st Female Child Yes 1
## 22 2nd Female Child Yes 13
## 23 3rd Female Child Yes 14
## 24 Crew Female Child Yes 0
## 25 1st Male Adult Yes 57
## 26 2nd Male Adult Yes 14
## 27 3rd Male Adult Yes 75
## 28 Crew Male Adult Yes 192
## 29 1st Female Adult Yes 140
## 30 2nd Female Adult Yes 80
## 31 3rd Female Adult Yes 76
## 32 Crew Female Adult Yes 20
titanic_mutate <- mutate(databaru2, Proporsi = Freq / sum(Freq))
head(titanic_mutate)
## Class Sex Age Survived Freq Proporsi
## 1 1st Male Child No 0 0.00000000
## 2 2nd Male Child No 0 0.00000000
## 3 3rd Male Child No 35 0.01590186
## 4 Crew Male Child No 0 0.00000000
## 5 1st Female Child No 0 0.00000000
## 6 2nd Female Child No 0 0.00000000
extra <- data.frame(
Class = c("1st","2nd","3rd","Crew"),
Kapal = c("pesiar","titanic","Fery","Perahu")
)
titanic_joined <- left_join(databaru2, extra, by = "Class")
head(titanic_joined)
## Class Sex Age Survived Freq Kapal
## 1 1st Male Child No 0 pesiar
## 2 2nd Male Child No 0 titanic
## 3 3rd Male Child No 35 Fery
## 4 Crew Male Child No 0 Perahu
## 5 1st Female Child No 0 pesiar
## 6 2nd Female Child No 0 titanic
titanic_summary <- databaru2 %>%
group_by(Class, Survived, Age) %>%
summarise(total = sum(Freq))
## `summarise()` has regrouped the output.
## ℹ Summaries were computed grouped by Class, Survived, and Age.
## ℹ Output is grouped by Class and Survived.
## ℹ Use `summarise(.groups = "drop_last")` to silence this message.
## ℹ Use `summarise(.by = c(Class, Survived, Age))` for per-operation grouping
## (`?dplyr::dplyr_by`) instead.
titanic_summary
## # A tibble: 16 × 4
## # Groups: Class, Survived [8]
## Class Survived Age total
## <fct> <fct> <fct> <dbl>
## 1 1st No Child 0
## 2 1st No Adult 122
## 3 1st Yes Child 6
## 4 1st Yes Adult 197
## 5 2nd No Child 0
## 6 2nd No Adult 167
## 7 2nd Yes Child 24
## 8 2nd Yes Adult 94
## 9 3rd No Child 52
## 10 3rd No Adult 476
## 11 3rd Yes Child 27
## 12 3rd Yes Adult 151
## 13 Crew No Child 0
## 14 Crew No Adult 673
## 15 Crew Yes Child 0
## 16 Crew Yes Adult 212
index <- sample(1:nrow(databaru2), 0.7*nrow(databaru2))
train_data <- databaru2[index, ]
test_data <- databaru2[-index, ]
nrow(train_data)
## [1] 22
nrow(test_data)
## [1] 10