1. Input data (Saya memasukkan datanya secara manual karena jika sayang langsung import nanti rmarkdown nya error saat di knit)
Data_Bencana<-data.frame(Kode_Kab.Kot=c(1301, 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310,1311, 1312, 1371, 1372, 1375, 1305, 1306, 1307, 1308, 1371,1373, 1375, 1377, 1306, 1371, 1306, 1307, 1308, 1310, 1371,1372, 1373, 1303, 1303, 1371, 1305), Nama_kab.kot=c("KEPULAUAN MENTAWAI", "PESISIR SELATAN", "SOLOK", "SIJUNJUNG", 
            "TANAH DATAR", "PADANG PARIAMAN", "AGAM", "LIMA PULUH KOTA", 
            "PASAMAN", "SOLOK SELATAN", "DHARMASRAYA", "PASAMAN BARAT", 
            "KOTA PADANG", "KOTA SOLOK", "KOTA BUKITTINGGI", "TANAH DATAR", 
            "PADANG PARIAMAN", "AGAM", "LIMA PULUH KOTA", "KOTA PADANG", 
            "KOTA SAWAHLUNTO", "KOTA BUKITTINGGI", "KOTA PARIAMAN", 
            "PADANG PARIAMAN", "KOTA PADANG", "PADANG PARIAMAN", "AGAM", 
            "LIMA PULUH KOTA", "SOLOK SELATAN", "KOTA PADANG", "KOTA SOLOK", 
            "KOTA SAWAHLUNTO", "SOLOK", "SOLOK", "KOTA PADANG", "TANAH DATAR"),Kode_bencana=c(101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 102, 102, 102, 104, 104, 105, 105, 105, 105, 105, 105, 105, 107, 108, 108, 111), Kejadian=c("BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "BANJIR", "TANAH LONGSOR", "TANAH LONGSOR", "TANAH LONGSOR", "TANAH LONGSOR", "TANAH LONGSOR", "TANAH LONGSOR", "TANAH LONGSOR", "TANAH LONGSOR", "GELOMBANG PASANG / ABRASI", "GELOMBANG PASANG / ABRASI", "PUTING BELIUNG", "PUTING BELIUNG", "PUTING BELIUNG", "PUTING BELIUNG", "PUTING BELIUNG", "PUTING BELIUNG", "PUTING BELIUNG", "KEBAKARAN HUTAN DAN LAHAN", "GEMPA BUMI", "GEMPA BUMI", "LETUSAN GUNUNG API"),Lon=c(98.950602, 100.816773, 100.837884, 101.149204, 100.582793, 100.209847, 100.153757, 100.552812, 100.047454, 101.273582, 101.519325, 99.607742, 100.427954, 100.837884, 100.369072, 100.582793, 100.209847, 100.153757, 100.552812, 100.427954, 100.75663, 100.369072, 100.136282, 100.209847, 100.427954, 100.209847, 100.153757, 100.552812, 101.273582, 100.427954, 100.837884, 100.75663, 100.837884, 100.837884, 100.427954, 100.582793), Lat=c(-1.359494, -1.717765, -0.927534, -0.648475, -0.469818, -0.566716, -0.253182, 0.028057, 0.399888, -1.365012, -1.250643, 0.187961, -0.936425, -0.927534, -0.299229, -0.469818, -0.566716, -0.253182, 0.028057, -0.936425, -0.661471, -0.299229, -0.612028, -0.566716, -0.936425, -0.566716, -0.253182, 0.028057, -1.365012, -0.936425, -0.927534, -0.661471, -0.927534, -0.927534, -0.936425, -0.469818), Jumlah_bencana=c(4, 2, 3, 5, 1, 6, 5, 5, 5, 1, 1, 5, 2, 2, 3, 1, 5, 2, 2, 1, 1, 1, 1, 1, 1, 14, 1, 4, 2, 2, 1, 1, 1, 1, 1, 2), Meninggal=c(0, 0, 1, 1, 6, 0, 0, 1, 1, 0, 0, 1, 2, 0, 0, 0, 3, 0, 1, 1, 0, 0, 3, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0), Menderita=c(0, 0, 3237, 6, 0, 50, 1469, 130, 7570, 75, 0, 0, 6062, 1070, 256, 0, 19, 0, 0, 0, 0, 0, 0, 0, 140, 55, 0, 15, 0, 0, 0, 0, 0, 0, 0, 0), Mengungsi=c(0, 0, 279, 0, 24, 73, 0, 515, 0, 0, 0, 1050, 12, 0, 0, 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, 35, 0, 0, 0, 0, 0, 0, 0, 54, 0, 0), Rumah.Rusak.Berat=c(0, 0, 2, 26, 11, 3, 1, 2, 69, 0, 0, 2, 4, 0, 0, 0, 9, 0, 0, 0, 4, 0, 1, 0, 0, 5, 0, 3, 0, 2, 0, 0, 0, 19, 6, 0), Rumah.Rusak.Sedang=c(0, 0, 4, 1, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 8, 0, 0, 0, 0, 0, 0, 0, 28, 10, 1, 0, 1, 5, 0, 0, 0, 5, 0, 0), Rumah.Rusak.Ringan=c(0, 0, 14, 30, 0, 17, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 7, 1, 0, 12, 0, 0, 0, 0, 13, 0, 2, 2, 9, 1, 1, 0, 63, 19, 0), Faskes.Rusak=c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Rumah.Ibadah.Rusak=c(0, 0, 9, 3, 0, 4, 1, 2, 2, 0, 1, 1, 0, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Sekolah.Rusak=c(0, 5, 5, 0, 1, 0, 1, 2, 2, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0))
Data_Bencana
##    Kode_Kab.Kot       Nama_kab.kot Kode_bencana                  Kejadian
## 1          1301 KEPULAUAN MENTAWAI          101                    BANJIR
## 2          1302    PESISIR SELATAN          101                    BANJIR
## 3          1303              SOLOK          101                    BANJIR
## 4          1304          SIJUNJUNG          101                    BANJIR
## 5          1305        TANAH DATAR          101                    BANJIR
## 6          1306    PADANG PARIAMAN          101                    BANJIR
## 7          1307               AGAM          101                    BANJIR
## 8          1308    LIMA PULUH KOTA          101                    BANJIR
## 9          1309            PASAMAN          101                    BANJIR
## 10         1310      SOLOK SELATAN          101                    BANJIR
## 11         1311        DHARMASRAYA          101                    BANJIR
## 12         1312      PASAMAN BARAT          101                    BANJIR
## 13         1371        KOTA PADANG          101                    BANJIR
## 14         1372         KOTA SOLOK          101                    BANJIR
## 15         1375   KOTA BUKITTINGGI          101                    BANJIR
## 16         1305        TANAH DATAR          102             TANAH LONGSOR
## 17         1306    PADANG PARIAMAN          102             TANAH LONGSOR
## 18         1307               AGAM          102             TANAH LONGSOR
## 19         1308    LIMA PULUH KOTA          102             TANAH LONGSOR
## 20         1371        KOTA PADANG          102             TANAH LONGSOR
## 21         1373    KOTA SAWAHLUNTO          102             TANAH LONGSOR
## 22         1375   KOTA BUKITTINGGI          102             TANAH LONGSOR
## 23         1377      KOTA PARIAMAN          102             TANAH LONGSOR
## 24         1306    PADANG PARIAMAN          104 GELOMBANG PASANG / ABRASI
## 25         1371        KOTA PADANG          104 GELOMBANG PASANG / ABRASI
## 26         1306    PADANG PARIAMAN          105            PUTING BELIUNG
## 27         1307               AGAM          105            PUTING BELIUNG
## 28         1308    LIMA PULUH KOTA          105            PUTING BELIUNG
## 29         1310      SOLOK SELATAN          105            PUTING BELIUNG
## 30         1371        KOTA PADANG          105            PUTING BELIUNG
## 31         1372         KOTA SOLOK          105            PUTING BELIUNG
## 32         1373    KOTA SAWAHLUNTO          105            PUTING BELIUNG
## 33         1303              SOLOK          107 KEBAKARAN HUTAN DAN LAHAN
## 34         1303              SOLOK          108                GEMPA BUMI
## 35         1371        KOTA PADANG          108                GEMPA BUMI
## 36         1305        TANAH DATAR          111        LETUSAN GUNUNG API
##          Lon       Lat Jumlah_bencana Meninggal Menderita Mengungsi
## 1   98.95060 -1.359494              4         0         0         0
## 2  100.81677 -1.717765              2         0         0         0
## 3  100.83788 -0.927534              3         1      3237       279
## 4  101.14920 -0.648475              5         1         6         0
## 5  100.58279 -0.469818              1         6         0        24
## 6  100.20985 -0.566716              6         0        50        73
## 7  100.15376 -0.253182              5         0      1469         0
## 8  100.55281  0.028057              5         1       130       515
## 9  100.04745  0.399888              5         1      7570         0
## 10 101.27358 -1.365012              1         0        75         0
## 11 101.51932 -1.250643              1         0         0         0
## 12  99.60774  0.187961              5         1         0      1050
## 13 100.42795 -0.936425              2         2      6062        12
## 14 100.83788 -0.927534              2         0      1070         0
## 15 100.36907 -0.299229              3         0       256         0
## 16 100.58279 -0.469818              1         0         0         0
## 17 100.20985 -0.566716              5         3        19         0
## 18 100.15376 -0.253182              2         0         0         0
## 19 100.55281  0.028057              2         1         0         0
## 20 100.42795 -0.936425              1         1         0         0
## 21 100.75663 -0.661471              1         0         0        22
## 22 100.36907 -0.299229              1         0         0         0
## 23 100.13628 -0.612028              1         3         0         0
## 24 100.20985 -0.566716              1         0         0         0
## 25 100.42795 -0.936425              1         0       140         0
## 26 100.20985 -0.566716             14         0        55        35
## 27 100.15376 -0.253182              1         1         0         0
## 28 100.55281  0.028057              4         0        15         0
## 29 101.27358 -1.365012              2         0         0         0
## 30 100.42795 -0.936425              2         0         0         0
## 31 100.83788 -0.927534              1         0         0         0
## 32 100.75663 -0.661471              1         0         0         0
## 33 100.83788 -0.927534              1         0         0         0
## 34 100.83788 -0.927534              1         1         0        54
## 35 100.42795 -0.936425              1         0         0         0
## 36 100.58279 -0.469818              2         0         0         0
##    Rumah.Rusak.Berat Rumah.Rusak.Sedang Rumah.Rusak.Ringan Faskes.Rusak
## 1                  0                  0                  0            0
## 2                  0                  0                  0            0
## 3                  2                  4                 14            0
## 4                 26                  1                 30            0
## 5                 11                  0                  0            0
## 6                  3                  0                 17            0
## 7                  1                  2                  2            0
## 8                  2                  0                  0            0
## 9                 69                  0                  0            0
## 10                 0                  0                  0            0
## 11                 0                  0                  0            0
## 12                 2                  0                  0            0
## 13                 4                  0                  0            0
## 14                 0                  0                  0            0
## 15                 0                  0                  0            0
## 16                 0                  1                  0            0
## 17                 9                  8                  2            0
## 18                 0                  0                  7            0
## 19                 0                  0                  1            0
## 20                 0                  0                  0            0
## 21                 4                  0                 12            0
## 22                 0                  0                  0            0
## 23                 1                  0                  0            0
## 24                 0                  0                  0            0
## 25                 0                 28                  0            0
## 26                 5                 10                 13            0
## 27                 0                  1                  0            0
## 28                 3                  0                  2            0
## 29                 0                  1                  2            0
## 30                 2                  5                  9            0
## 31                 0                  0                  1            0
## 32                 0                  0                  1            0
## 33                 0                  0                  0            0
## 34                19                  5                 63            0
## 35                 6                  0                 19            0
## 36                 0                  0                  0            0
##    Rumah.Ibadah.Rusak Sekolah.Rusak
## 1                   0             0
## 2                   0             5
## 3                   9             5
## 4                   3             0
## 5                   0             1
## 6                   4             0
## 7                   1             1
## 8                   2             2
## 9                   2             2
## 10                  0             0
## 11                  1             0
## 12                  1             0
## 13                  0             1
## 14                  2             1
## 15                  1             1
## 16                  0             0
## 17                  0             0
## 18                  0             1
## 19                  0             0
## 20                  0             0
## 21                  0             0
## 22                  0             0
## 23                  0             0
## 24                  0             2
## 25                  0             0
## 26                  0             0
## 27                  0             0
## 28                  0             0
## 29                  0             0
## 30                  0             0
## 31                  0             0
## 32                  0             0
## 33                  0             0
## 34                  0             0
## 35                  0             0
## 36                  0             0
  1. Menambah variabel baru
Data_Bencana$Rumah.Rusak<- Data_Bencana$Rumah.Rusak.Berat+Data_Bencana$Rumah.Rusak.Sedang+Data_Bencana$Rumah.Rusak.Ringan
Data_Bencana
##    Kode_Kab.Kot       Nama_kab.kot Kode_bencana                  Kejadian
## 1          1301 KEPULAUAN MENTAWAI          101                    BANJIR
## 2          1302    PESISIR SELATAN          101                    BANJIR
## 3          1303              SOLOK          101                    BANJIR
## 4          1304          SIJUNJUNG          101                    BANJIR
## 5          1305        TANAH DATAR          101                    BANJIR
## 6          1306    PADANG PARIAMAN          101                    BANJIR
## 7          1307               AGAM          101                    BANJIR
## 8          1308    LIMA PULUH KOTA          101                    BANJIR
## 9          1309            PASAMAN          101                    BANJIR
## 10         1310      SOLOK SELATAN          101                    BANJIR
## 11         1311        DHARMASRAYA          101                    BANJIR
## 12         1312      PASAMAN BARAT          101                    BANJIR
## 13         1371        KOTA PADANG          101                    BANJIR
## 14         1372         KOTA SOLOK          101                    BANJIR
## 15         1375   KOTA BUKITTINGGI          101                    BANJIR
## 16         1305        TANAH DATAR          102             TANAH LONGSOR
## 17         1306    PADANG PARIAMAN          102             TANAH LONGSOR
## 18         1307               AGAM          102             TANAH LONGSOR
## 19         1308    LIMA PULUH KOTA          102             TANAH LONGSOR
## 20         1371        KOTA PADANG          102             TANAH LONGSOR
## 21         1373    KOTA SAWAHLUNTO          102             TANAH LONGSOR
## 22         1375   KOTA BUKITTINGGI          102             TANAH LONGSOR
## 23         1377      KOTA PARIAMAN          102             TANAH LONGSOR
## 24         1306    PADANG PARIAMAN          104 GELOMBANG PASANG / ABRASI
## 25         1371        KOTA PADANG          104 GELOMBANG PASANG / ABRASI
## 26         1306    PADANG PARIAMAN          105            PUTING BELIUNG
## 27         1307               AGAM          105            PUTING BELIUNG
## 28         1308    LIMA PULUH KOTA          105            PUTING BELIUNG
## 29         1310      SOLOK SELATAN          105            PUTING BELIUNG
## 30         1371        KOTA PADANG          105            PUTING BELIUNG
## 31         1372         KOTA SOLOK          105            PUTING BELIUNG
## 32         1373    KOTA SAWAHLUNTO          105            PUTING BELIUNG
## 33         1303              SOLOK          107 KEBAKARAN HUTAN DAN LAHAN
## 34         1303              SOLOK          108                GEMPA BUMI
## 35         1371        KOTA PADANG          108                GEMPA BUMI
## 36         1305        TANAH DATAR          111        LETUSAN GUNUNG API
##          Lon       Lat Jumlah_bencana Meninggal Menderita Mengungsi
## 1   98.95060 -1.359494              4         0         0         0
## 2  100.81677 -1.717765              2         0         0         0
## 3  100.83788 -0.927534              3         1      3237       279
## 4  101.14920 -0.648475              5         1         6         0
## 5  100.58279 -0.469818              1         6         0        24
## 6  100.20985 -0.566716              6         0        50        73
## 7  100.15376 -0.253182              5         0      1469         0
## 8  100.55281  0.028057              5         1       130       515
## 9  100.04745  0.399888              5         1      7570         0
## 10 101.27358 -1.365012              1         0        75         0
## 11 101.51932 -1.250643              1         0         0         0
## 12  99.60774  0.187961              5         1         0      1050
## 13 100.42795 -0.936425              2         2      6062        12
## 14 100.83788 -0.927534              2         0      1070         0
## 15 100.36907 -0.299229              3         0       256         0
## 16 100.58279 -0.469818              1         0         0         0
## 17 100.20985 -0.566716              5         3        19         0
## 18 100.15376 -0.253182              2         0         0         0
## 19 100.55281  0.028057              2         1         0         0
## 20 100.42795 -0.936425              1         1         0         0
## 21 100.75663 -0.661471              1         0         0        22
## 22 100.36907 -0.299229              1         0         0         0
## 23 100.13628 -0.612028              1         3         0         0
## 24 100.20985 -0.566716              1         0         0         0
## 25 100.42795 -0.936425              1         0       140         0
## 26 100.20985 -0.566716             14         0        55        35
## 27 100.15376 -0.253182              1         1         0         0
## 28 100.55281  0.028057              4         0        15         0
## 29 101.27358 -1.365012              2         0         0         0
## 30 100.42795 -0.936425              2         0         0         0
## 31 100.83788 -0.927534              1         0         0         0
## 32 100.75663 -0.661471              1         0         0         0
## 33 100.83788 -0.927534              1         0         0         0
## 34 100.83788 -0.927534              1         1         0        54
## 35 100.42795 -0.936425              1         0         0         0
## 36 100.58279 -0.469818              2         0         0         0
##    Rumah.Rusak.Berat Rumah.Rusak.Sedang Rumah.Rusak.Ringan Faskes.Rusak
## 1                  0                  0                  0            0
## 2                  0                  0                  0            0
## 3                  2                  4                 14            0
## 4                 26                  1                 30            0
## 5                 11                  0                  0            0
## 6                  3                  0                 17            0
## 7                  1                  2                  2            0
## 8                  2                  0                  0            0
## 9                 69                  0                  0            0
## 10                 0                  0                  0            0
## 11                 0                  0                  0            0
## 12                 2                  0                  0            0
## 13                 4                  0                  0            0
## 14                 0                  0                  0            0
## 15                 0                  0                  0            0
## 16                 0                  1                  0            0
## 17                 9                  8                  2            0
## 18                 0                  0                  7            0
## 19                 0                  0                  1            0
## 20                 0                  0                  0            0
## 21                 4                  0                 12            0
## 22                 0                  0                  0            0
## 23                 1                  0                  0            0
## 24                 0                  0                  0            0
## 25                 0                 28                  0            0
## 26                 5                 10                 13            0
## 27                 0                  1                  0            0
## 28                 3                  0                  2            0
## 29                 0                  1                  2            0
## 30                 2                  5                  9            0
## 31                 0                  0                  1            0
## 32                 0                  0                  1            0
## 33                 0                  0                  0            0
## 34                19                  5                 63            0
## 35                 6                  0                 19            0
## 36                 0                  0                  0            0
##    Rumah.Ibadah.Rusak Sekolah.Rusak Rumah.Rusak
## 1                   0             0           0
## 2                   0             5           0
## 3                   9             5          20
## 4                   3             0          57
## 5                   0             1          11
## 6                   4             0          20
## 7                   1             1           5
## 8                   2             2           2
## 9                   2             2          69
## 10                  0             0           0
## 11                  1             0           0
## 12                  1             0           2
## 13                  0             1           4
## 14                  2             1           0
## 15                  1             1           0
## 16                  0             0           1
## 17                  0             0          19
## 18                  0             1           7
## 19                  0             0           1
## 20                  0             0           0
## 21                  0             0          16
## 22                  0             0           0
## 23                  0             0           1
## 24                  0             2           0
## 25                  0             0          28
## 26                  0             0          28
## 27                  0             0           1
## 28                  0             0           5
## 29                  0             0           3
## 30                  0             0          16
## 31                  0             0           1
## 32                  0             0           1
## 33                  0             0           0
## 34                  0             0          87
## 35                  0             0          25
## 36                  0             0           0
  1. Menghapus variabel
Data_Bencana$Kode_Kab.Kot<-NULL
Data_Bencana$Kode_bencana<-NULL
Data_Bencana$Lon<-NULL
Data_Bencana$Lat<-NULL
Data_Bencana$Menderita<-NULL
Data_Bencana$Mengungsi<-NULL
Data_Bencana$Rumah.Rusak.Berat<-NULL
Data_Bencana$Rumah.Rusak.Sedang<-NULL
Data_Bencana$Rumah.Rusak.Ringan<-NULL
Data_Bencana$Faskes.Rusak<-NULL
Data_Bencana$Rumah.Ibadah.Rusak<-NULL
Data_Bencana$Sekolah.Rusak<-NULL
Data_Bencana
##          Nama_kab.kot                  Kejadian Jumlah_bencana Meninggal
## 1  KEPULAUAN MENTAWAI                    BANJIR              4         0
## 2     PESISIR SELATAN                    BANJIR              2         0
## 3               SOLOK                    BANJIR              3         1
## 4           SIJUNJUNG                    BANJIR              5         1
## 5         TANAH DATAR                    BANJIR              1         6
## 6     PADANG PARIAMAN                    BANJIR              6         0
## 7                AGAM                    BANJIR              5         0
## 8     LIMA PULUH KOTA                    BANJIR              5         1
## 9             PASAMAN                    BANJIR              5         1
## 10      SOLOK SELATAN                    BANJIR              1         0
## 11        DHARMASRAYA                    BANJIR              1         0
## 12      PASAMAN BARAT                    BANJIR              5         1
## 13        KOTA PADANG                    BANJIR              2         2
## 14         KOTA SOLOK                    BANJIR              2         0
## 15   KOTA BUKITTINGGI                    BANJIR              3         0
## 16        TANAH DATAR             TANAH LONGSOR              1         0
## 17    PADANG PARIAMAN             TANAH LONGSOR              5         3
## 18               AGAM             TANAH LONGSOR              2         0
## 19    LIMA PULUH KOTA             TANAH LONGSOR              2         1
## 20        KOTA PADANG             TANAH LONGSOR              1         1
## 21    KOTA SAWAHLUNTO             TANAH LONGSOR              1         0
## 22   KOTA BUKITTINGGI             TANAH LONGSOR              1         0
## 23      KOTA PARIAMAN             TANAH LONGSOR              1         3
## 24    PADANG PARIAMAN GELOMBANG PASANG / ABRASI              1         0
## 25        KOTA PADANG GELOMBANG PASANG / ABRASI              1         0
## 26    PADANG PARIAMAN            PUTING BELIUNG             14         0
## 27               AGAM            PUTING BELIUNG              1         1
## 28    LIMA PULUH KOTA            PUTING BELIUNG              4         0
## 29      SOLOK SELATAN            PUTING BELIUNG              2         0
## 30        KOTA PADANG            PUTING BELIUNG              2         0
## 31         KOTA SOLOK            PUTING BELIUNG              1         0
## 32    KOTA SAWAHLUNTO            PUTING BELIUNG              1         0
## 33              SOLOK KEBAKARAN HUTAN DAN LAHAN              1         0
## 34              SOLOK                GEMPA BUMI              1         1
## 35        KOTA PADANG                GEMPA BUMI              1         0
## 36        TANAH DATAR        LETUSAN GUNUNG API              2         0
##    Rumah.Rusak
## 1            0
## 2            0
## 3           20
## 4           57
## 5           11
## 6           20
## 7            5
## 8            2
## 9           69
## 10           0
## 11           0
## 12           2
## 13           4
## 14           0
## 15           0
## 16           1
## 17          19
## 18           7
## 19           1
## 20           0
## 21          16
## 22           0
## 23           1
## 24           0
## 25          28
## 26          28
## 27           1
## 28           5
## 29           3
## 30          16
## 31           1
## 32           1
## 33           0
## 34          87
## 35          25
## 36           0
  1. Input data frame
Data_Diri<-data.frame(Nama=c("Josephine", "Peter", "Adam", "Lusiana", "Anthoni",
                             "Gabriela", "Mario", "Suzan", "Laura","Evelyn"),Usia=c(17,20,19,22,30,21,20,21,18,19),
                      Tinggi_meter=c(1.67, 1.54, 1.83, 1.59, 1.73, 1.60, 1.69, 1.61, 1.41, 1.53 ),
                      Berat_kg=c(57, 62, 67, 46, 57, 78, 55, 44, 50, 43))
Data_Diri
##         Nama Usia Tinggi_meter Berat_kg
## 1  Josephine   17         1.67       57
## 2      Peter   20         1.54       62
## 3       Adam   19         1.83       67
## 4    Lusiana   22         1.59       46
## 5    Anthoni   30         1.73       57
## 6   Gabriela   21         1.60       78
## 7      Mario   20         1.69       55
## 8      Suzan   21         1.61       44
## 9      Laura   18         1.41       50
## 10    Evelyn   19         1.53       43
  1. BMI
Data_Diri$BMI<-Data_Diri$Berat_kg/Data_Diri$Tinggi_meter^2
Data_Diri
##         Nama Usia Tinggi_meter Berat_kg      BMI
## 1  Josephine   17         1.67       57 20.43817
## 2      Peter   20         1.54       62 26.14269
## 3       Adam   19         1.83       67 20.00657
## 4    Lusiana   22         1.59       46 18.19548
## 5    Anthoni   30         1.73       57 19.04507
## 6   Gabriela   21         1.60       78 30.46875
## 7      Mario   20         1.69       55 19.25703
## 8      Suzan   21         1.61       44 16.97465
## 9      Laura   18         1.41       50 25.14964
## 10    Evelyn   19         1.53       43 18.36900
  1. Kategori berat badan ideal
Data_Diri$Kriteria_Berat_Badan_Ideal[Data_Diri$BMI<18.5]<-"Kurus"
Data_Diri$Kriteria_Berat_Badan_Ideal[Data_Diri$BMI>=18.5 & Data_Diri$BMI<=24.9]<-"Normal"
Data_Diri$Kriteria_Berat_Badan_Ideal[Data_Diri$BMI>=25.0 & Data_Diri$BMI<=29.9]<- "Kegemukan"
Data_Diri$Kriteria_Berat_Badan_Ideal[Data_Diri$BMI>=30]<-"Obesitas"
Data_Diri
##         Nama Usia Tinggi_meter Berat_kg      BMI Kriteria_Berat_Badan_Ideal
## 1  Josephine   17         1.67       57 20.43817                     Normal
## 2      Peter   20         1.54       62 26.14269                  Kegemukan
## 3       Adam   19         1.83       67 20.00657                     Normal
## 4    Lusiana   22         1.59       46 18.19548                      Kurus
## 5    Anthoni   30         1.73       57 19.04507                     Normal
## 6   Gabriela   21         1.60       78 30.46875                   Obesitas
## 7      Mario   20         1.69       55 19.25703                     Normal
## 8      Suzan   21         1.61       44 16.97465                      Kurus
## 9      Laura   18         1.41       50 25.14964                  Kegemukan
## 10    Evelyn   19         1.53       43 18.36900                      Kurus