database <- read.csv("D:\\IPB\\Statistika Sem 4\\Visualisasi Data\\Tugas akhir visdat\\2023 Maret JABAR - SUSENAS KOR INDIVIDU PART1.csv",sep = ";")
head(database)## X URUT PSU SSU WI1 WI2 R101 R102 R105 R401 R403 R404 R405 R407
## 1 0 500001 12448 123442 12435 123427 32 7 2 1 1 4 2 68
## 2 1 500001 12448 123442 12435 123427 32 7 2 2 3 2 2 46
## 3 2 500001 12448 123442 12435 123427 32 7 2 3 6 1 2 16
## 4 3 500001 12448 123442 12435 123427 32 7 2 4 6 1 1 6
## 5 4 500002 31373 311039 31360 311024 32 72 1 1 1 3 2 62
## 6 5 500002 31373 311039 31360 311024 32 72 1 2 3 1 1 38
## R408 R409 R406A R406B R406C R410 R501 R502 R503 R504 R506 R507 R508 R509 R601
## 1 0 20 5 4 1954 2 1 1 0 1 2 1 5 1 32
## 2 5 22 2 10 1976 2 1 2 1 1 2 1 2 1 32
## 3 0 0 23 1 2007 2 0 3 2 1 2 1 2 1 32
## 4 0 0 17 8 2016 2 0 4 2 1 1 1 2 1 32
## 5 0 16 6 12 1960 1 2 1 0 1 2 1 2 1 32
## 6 0 0 28 7 1984 1 0 1 1 1 1 1 1 1 32
## R602 R603 R604 R605 R606 R607 R608 R609 R610 R611 R612 R613 R614 R615 R616
## 1 7 32 7 0 0 1 1 5 3 0 3 8 3 0 0
## 2 7 32 7 0 0 1 1 5 3 0 19 8 19 0 0
## 3 7 32 7 0 0 1 1 5 3 0 15 1 8 5 5
## 4 7 32 7 3 1 1 1 5 2 1 3 1 25 5 5
## 5 72 32 72 0 0 1 5 5 3 0 3 8 3 0 0
## 6 72 32 72 0 0 1 5 5 3 0 3 8 3 0 0
## R617 R618 R619 R620 R621 R701 R702 R703_A R703_B R703_C R703_D R703_X R704
## 1 0 0 0 0 0 1 1 C D 3
## 2 0 0 0 0 0 1 5 C D 3
## 3 0 0 3 0 0 5 5 C D 3
## 4 0 0 1 0 0 5 5 0
## 5 0 0 0 0 0 5 5 C D 3
## 6 0 0 0 0 0 1 5 A D 1
## R705 R706 R707 R708 R709 R801 R802 R807_A R807_B R807_C R807_X R808 R809_A
## 1 5 0 0 0 0 5 5 X 5
## 2 5 0 0 0 0 1 1 X 1
## 3 5 0 0 0 0 1 1 B 1
## 4 0 0 0 0 0 5 5 X 5
## 5 5 0 0 0 0 1 1 X 5
## 6 0 11 5 48 48 1 1 X 5
## R809_B R809_C R809_D R809_E R810_A R810_B R810_C R810_D R810_E R810_F R811_A
## 1 NA
## 2 D A E FALSE A
## 3 B D A D FALSE
## 4 NA
## 5 NA
## 6 NA
## R811_B R811_C R811_D R811_E R811_F R811_G R811_H R811_I R811_J R811_K R811_L
## 1 NA
## 2 B D NA J
## 3 D NA H J
## 4 NA
## 5 NA
## 6 NA
## R812 R901 R902 R903 R904 R905 R906 R907 R908 R909 R910 R911 R912 R913 R914
## 1 5 5 0 0 0 5 0 0 0 0 0 0 0 0 0
## 2 5 5 0 0 0 5 0 0 0 0 0 0 0 0 0
## 3 1 5 0 0 0 5 0 0 0 0 0 0 0 0 0
## 4 5 5 0 0 0 5 0 0 0 0 0 0 0 0 0
## 5 5 5 0 0 0 5 0 0 0 0 0 0 0 0 0
## 6 5 5 0 0 0 5 0 0 0 0 0 0 0 0 0
## R915 R916 R1001 R1002 R1003 R1004 R1005 R1006 R1007 R1008 R1009 R1010 R1101_A
## 1 0 0 1 4 8 4 8 4 8 4 8 5
## 2 0 0 1 4 8 4 8 4 8 4 8 5
## 3 0 0 1 4 8 4 8 4 8 4 8 5
## 4 0 0 1 4 8 4 8 4 8 4 8 5
## 5 0 0 1 4 8 4 8 4 8 4 8 5 A
## 6 0 0 1 4 8 4 8 4 8 4 8 5 A
## R1101_B R1101_C R1101_D R1101_E R1101_X R1102 R1103 R1104 R1105 R1106 R1107_A
## 1 E 5 0 0 0 0
## 2 X 5 0 0 0 0
## 3 X 1 5 1 5 5
## 4 X 1 5 1 5 5
## 5 5 0 0 0 0
## 6 5 0 0 0 0
## R1107_B R1107_C R1107_D R1107_E R1107_F R1107_G R1107_H R1108 R1109_A R1109_B
## 1 NA 0
## 2 NA 0
## 3 NA 0
## 4 NA 0
## 5 NA 0
## 6 NA 0
## R1109_C R1109_D R1109_E R1109_X R1110_A R1110_B R1110_C R1110_D R1110_E
## 1
## 2
## 3
## 4
## 5
## 6
## R1110_F R1110_G R1110_H R1110_I R1201 R1202_A R1202_B R1202_C R1202_D R1202_E
## 1 NA 5
## 2 NA 5
## 3 NA 5
## 4 NA 5
## 5 NA 5
## 6 NA 5
## R1202_F R1202_G R1203 R1204_A R1204_B R1204_C R1204_D R1204_E R1204_X R1205_A
## 1 NA 0
## 2 NA 0
## 3 NA 0
## 4 NA 0
## 5 NA 0
## 6 NA 0
## R1205_B R1205_C R1205_D R1205_E R1205_F R1205_G R1205_H R1205_I R1206 R1207
## 1 NA 5 5
## 2 NA 5 5
## 3 NA 5 5
## 4 NA 5 5
## 5 NA 5 5
## 6 NA 5 1
## R1208 R1209 FWT
## 1 0 5 45.488.910.141.175
## 2 0 5 45.488.910.141.175
## 3 0 5 45.488.910.141.175
## 4 0 5 45.488.910.141.175
## 5 0 5 1.723.768.210.467.770
## 6 35 1 1.723.768.210.467.770#ambil variabel R405, R407, R610, R616, R619 kemudian simpan dalam variabel database
database <- database[,c("R405","R407","R610","R616","R619")]
head(database)## R405 R407 R610 R616 R619
## 1 2 68 3 0 0
## 2 2 46 3 0 0
## 3 2 16 3 5 3
## 4 1 6 2 5 1
## 5 2 62 3 0 0
## 6 1 38 3 0 0# ubah nama variabel R405, R407, R610, R616, R619 menjadi "gender", "umur", "sekarang", "pip", "sebelumnya"
names(database)[names(database)=="R405"] <- "gender"
names(database)[names(database)=="R407"] <- "umur"
names(database)[names(database)=="R610"] <- "sekarang"
names(database)[names(database)=="R616"] <- "pip"
names(database)[names(database)=="R619"] <- "sebelumnya"
head(database)## gender umur sekarang pip sebelumnya
## 1 2 68 3 0 0
## 2 2 46 3 0 0
## 3 2 16 3 5 3
## 4 1 6 2 5 1
## 5 2 62 3 0 0
## 6 1 38 3 0 0#simpan database ke dalam file csv
write.csv(database, file = "D:\\IPB\\Statistika Sem 4\\Visualisasi Data\\Tugas akhir visdat\\database.csv")