Nothing
R/K4Siswa.R
In K4Siswa: Student Context Data Files for TIMSS 2023 Grade 4
Defines functions
K4Siswa
Documented in
K4Siswa
#' Labeling Kategori Data Siswa TIMSS (Kelas 4)
#'
#' Mengonversi variabel numerik pada data konteks siswa TIMSS 2023 Kelas 4
#' menjadi kategori berbahasa Indonesia agar interpretasi analisis lebih jelas.
#'
#' @param data data.frame/tibble berisi variabel-variabel sekolah TIMSS.
#'
#' @return data.frame/tibble yang berisi kolom-kolom kategori (berlabel Indonesia).
#'
#' @details Pelabelan mengikuti dokumentasi resmi TIMSS 2023.
#'
#' @examples
#' df <- data.frame(IDPOP = c(1,2))
#' K4Siswa(df)
K4Siswa <- function(data) {
if (!is.data.frame(data)) {
stop("Input harus berupa data.frame")
}
map_values <- function(x, map) {
unname(map[as.character(x)])
}
# Ubah angka ke karakter
if ("IDCNTRY" %in% names(data)) {
data$IDCNTRY <- as.character(data$IDCNTRY)
}
if ("IDSCHOOL" %in% names(data)) {
data$IDSCHOOL <- as.character(data$IDSCHOOL)
}
if ("LCID_CQ" %in% names(data)) {
data$LCID_CQ <- as.character(data$LCID_CQ)
}
if ("JKCZONE" %in% names(data)) {
data$JKCZONE <- as.character(data$JKCZONE)
}
if ("JKCREP" %in% names(data)) {
data$JKCREP <- as.character(data$JKCREP)
}
if ("VERSION" %in% names(data)) {
data$VERSION <- as.character(data$VERSION)
}
# Mapping
maps <- list(
IDPOP <- c("1" = "Populasi 1", "2" = "Populasi 2"),
IDGRADER <- c("1" = "Tingkat rendah", "2" = "Tingkat tinggi"),
IDGRADE <- c("3"="Kelas 3","4"="Kelas 4","5"="Kelas 5","6"="Kelas 6"),
ITASSESS <- c("1"="Digital","2"="Kertas","3"="Kertas (Matematika yang lebih mudah)"),
IDBOOK <- c("0"="Siswa dikecualikan atau tidak berpartisipasi",
"1"="Buklet 1", "2"="Buklet 2","3"="Buklet 3","4"="Buklet 4","5"="Buklet 5",
"6"="Buklet 6","7"="Buklet 7","8"="Buklet 8","9"="Buklet 9","10"="Buklet 10",
"11"="Buklet 11","12"="Buklet 12","13"="Buklet 13","14"="Buklet 14"),
ITSEX <- c("1"="Perempuan","2"="Laki-laki"),
ITADMINI <- c("1"="Staf Pusat Nasional","2"="Guru dari sekolah","3"="Lainnya"),
ILRELIAB <- c("0"="Salah","1"="Benar"),
ITLANG_SQ <- c(
"1" = "Bahasa Inggris", "2" = "Bahasa Spanyol", "3" = "Bahasa Perancis", "4" = "Bahasa Afrika", "5" = "Bahasa Albania",
"8" = "Bahasa Norwegia (Bokmal)", "9" = "Bahasa Bulgaria", "10" = "Bahasa Cina", "11" = "Bahasa Denmark", "12" = "Bahasa Belanda",
"13" = "Bahasa Uzbek (Latin)", "14" = "Bahasa Georgia", "15" = "Bahasa Jerman", "16" = "Bahasa Ibrani", "17" = "Bahasa Hungaria",
"20" = "Bahasa Italia", "21" = "Bahasa Latvia", "22" = "Bahasa Lithuania", "23" = "Bahasa Makedonia", "24" = "Bahasa Maori",
"26" = "Bahasa Norwegia (Nynorsk)", "27" = "Bahasa Polandia", "28" = "Bahasa Rumania", "29" = "Bahasa Rusia", "30" = "Bahasa Slovakia",
"32" = "Bahasa Swedia", "33" = "Bahasa lainnya", "34" = "Bahasa Ceko", "35" = "Bahasa Turki", "36" = "Bahasa Bosnia (Kiril)",
"37" = "Bahasa Bosnia (Latin)", "39" = "Bahasa Kazakhstan", "41" = "Bahasa Irlandia", "43" = "Bahasa Finlandia", "44" = "Bahasa Yunani",
"45" = "Bahasa Portugal", "47" = "Bahasa Korea", "48" = "Bahasa Malta", "49" = "Bahasa Catalan", "51" = "Bahasa Basque",
"52" = "Bahasa Valensia", "53" = "Bahasa Arab", "54" = "Bahasa Armenia", "55" = "Bahasa Azerbaijan", "56" = "Bahasa Kroasia",
"57" = "Bahasa Galisia", "58" = "Bahasa Jepang", "59" = "Bahasa Malaysia", "60" = "Bahasa Azerbaijan (Latin)", "61" = "Bahasa Tamil",
"63" = "Bahasa Persia", "66" = "Bahasa Tatar", "67" = "Bahasa Montenegro (Kiril)", "68" = "Bahasa Montenegro (Latin)", "69" = "Bahasa Serbia (Kiril)",
"70" = "Bahasa Serbia (Latin)", "72" = "Bahasa Uzbekistan (Kiril)", "73" = "Bahasa Karakalpa", "79" = "Bahasa Slovenia", "80" = "Bahasa Urdu",
"81" = "Bahasa Sindhi", "91" = "Bahasa Badini", "92" = "Bahasa Sorani"
),
LCID_SQ <- c("1025" = "Bahasa Arab (Arab Saudi)", "1026" = "Bahasa Bulgaria (Bulgaria)", "1028" = "Bahasa Tionghoa (Taiwan)",
"1029" = "Bahasa Ceko (Republik Ceko)", "1030" = "Bahasa Denmark (Denmark)", "1031" = "Bahasa Jerman (Jerman)",
"1033" = "Bahasa Inggris (Amerika Serikat)", "1035" = "Bahasa Finlandia (Finlandia)", "1036" = "Bahasa Prancis (Prancis)",
"1037" = "Bahasa Ibrani (Israel)", "1038" = "Bahasa Hungaria (Hungaria)", "1040" = "Bahasa Italia (Italia)",
"1041" = "Bahasa Jepang (Jepang)", "1042" = "Bahasa Korea (Korea)", "1043" = "Bahasa Belanda (Belanda)",
"1044" = "Bahasa Norwegia (Bokmal, Norwegia)", "1045" = "Bahasa Polandia (Polandia)", "1046" = "Bahasa Portugis (Brasil)",
"1048" = "Bahasa Rumania (Rumania)", "1051" = "Bahasa Slovakia (Republik Slovakia)", "1052" = "Bahasa Albania (Albania)",
"1053" = "Bahasa Swedia (Swedia)", "1055" = "Bahasa Turki (Turki)", "1060" = "Bahasa Slovenia (Slovenia)",
"1062" = "Bahasa Latvia (Latvia)", "1063" = "Bahasa Lituania (Lituania)", "1065" = "Bahasa Persia (Iran)",
"1067" = "Bahasa Armenia (Armenia)", "1068" = "Bahasa Azerbaijan (Latin, Azerbaijan)", "1071" = "Bahasa Makedonia (Makedonia Utara)",
"1078" = "Bahasa Afrikaans (Afrika Selatan)", "1079" = "Bahasa Georgia (Georgia)", "1086" = "Bahasa Melayu (Malaysia)",
"1087" = "Bahasa Kazakh (Kazakhstan)", "1091" = "Bahasa Uzbek (Latin, Uzbekistan)", "1110" = "Bahasa Galisia (Galisia)",
"1164" = "Bahasa Inggris (Norwegia)"),
ASBG01 = c("1"="Perempuan","2"="Laki-laki","3"="Lainnya"),
ASBG03 = c("1"="Saya selalu berbicara menggunakan bahasa tes di rumah","2"="Saya hampir selalu berbicara menggunakan bahasa tes di rumah","3"="Saya kadang-kadang berbicara menggunakan bahasa tes dan kadang-kadang menggunakan bahasa lain di rumah","4"="Saya tidak pernah berbicara menggunakan bahasa tes di rumah"),
ASBG04 = c("1"="Tidak ada atau sangat sedikit (0-10 buku)","2"="Cukup untuk memenuhi satu rak buku (11-25 buku)","3"="Cukup untuk memenuhi satu lemari buku (26-100 buku)","4"="Cukup untuk memenuhi dua lemari buku (101-200 buku)","5"="Cukup untuk memenuhi tiga atau lebih lemari buku (lebih dari 200 buku)"),
ASBG05A = c("1"="Ya","2"="Tidak"),
ASBG05B = c("1"="Ya","2"="Tidak"),
ASBG05C = c("1"="Ya","2"="Tidak"),
ASBG05D = c("1"="Ya","2"="Tidak"),
ASBG05E = c("1"="Ya","2"="Tidak"),
ASBG05F = c("1"="Ya","2"="Tidak"),
ASBG05G = c("1"="Ya","2"="Tidak"),
ASBG05H = c("1"="Ya","2"="Tidak"),
ASBG05I = c("1"="Ya","2"="Tidak"),
ASBG05J = c("1"="Ya","2"="Tidak"),
ASBG06A = c("1"="Ya","2"="Tidak","3"="Tidak tahu","4"="Tidak berlaku"),
ASBG06B = c("1"="Ya","2"="Tidak","3"="Tidak tahu","4"="Tidak berlaku"),
ASBG07 = c("1"="Ya","2"="Tidak"),
ASBG08 = c("1"="Seminggu sekali","2"="Dua minggu sekali","3"="Sebulan sekali","4"="Dua bulan sekali","5"="Tidak pernah atau hampir tidak pernah"),
ASBG09A = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG09B = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG10A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG12A = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12B = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12C = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12D = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12E = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12F = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG13A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG14A = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14B = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14C = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14D = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14E = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14F = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14G = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14H = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14I = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14J = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14K = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBM01 = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBM02A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02H = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02I = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03H = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03I = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM04A = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04B = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04C = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04D = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04E = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04F = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM05A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS06 = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBS07A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07H = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07I = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08H = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08I = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS09A = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09B = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09C = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09D = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09E = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09F = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS10A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASMIBM01 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASMIBM02 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASMIBM03 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASMIBM04 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASMIBM05 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM01 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM02 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM03 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM04 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM05 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASDGDML = c("1"="Sedikit atau tidak ada pelajaran","2"="Beberapa pelajaran","3"="Sebagian besar pelajaran"),
ASDGICM = c("1"="Kejelasan pembelajaran tinggi","2"="Kejelasan pembelajaran sedang","3"="Kejelasan pembelajaran rendah"),
ASDGICS = c("1"="Kejelasan pembelajaran tinggi","2"="Kejelasan pembelajaran sedang","3"="Kejelasan pembelajaran rendah"),
ASDGSEC = c("1"="Efikasi diri digital tinggi","2"="Efikasi diri digital sedang","3"="Efikasi diri digital rendah"),
ASDGSSB = c("1"="Rasa memiliki terhadap sekolah tinggi","2"="Rasa memiliki terhadap sekolah sedang","3"="Rasa memiliki terhadap sekolah rendah"),
ASDGSB = c("1"="Tidak pernah atau hampir tidak pernah","2"="Sekitar sebulan sekali","3"="Sekitar seminggu sekali"),
ASDGSLM = c("1"="Sangat menyukai belajar matematika","2"="Cukup menyukai belajar matematika","3"="Tidak menyukai belajar matematika"),
ASDGSCM = c("1"="Sangat percaya diri dalam matematika","2"="Cukup percaya diri dalam matematika","3"="Tidak percaya diri dalam matematika"),
ASDGSLS = c("1"="Sangat menyukai belajar sains","2"="Cukup menyukai belajar sains","3"="Tidak menyukai belajar sains"),
ASDGSCS = c("1"="Sangat percaya diri dalam sains","2"="Cukup percaya diri dalam sains","3"="Tidak percaya diri dalam sains"),
ASDGVEP = c("1"="Sangat menghargai","2"="Menghargai","3"="Cukup menghargai"),
ASDGDSL = c("1"="Sedikit atau tidak ada pelajaran","2"="Beberapa pelajaran","3"="Sebagian besar pelajaran"),
ASDGHRL = c("1"="Banyak sumber daya","2"="Beberapa sumber daya","3"="Sedikit sumber daya"),
ASDG05S = c("1"="Tidak memiliki kamar sendiri maupun akses internet","2"="Memiliki kamar sendiri atau akses internet","3"="Memiliki kamar sendiri dan akses internet"),
ASDMLOWP = c("1"="Ya","2"="Tidak"),
ASDSLOWP = c("1"="Ya","2"="Tidak"),
ASDMZERP = c("1"="Ya","2"="Tidak"),
ASDSZERP = c("1"="Ya","2"="Tidak"),
SCOPE <- c("1" = "Berkas untuk penggunaan publik (PUF)", "2" = "Berkas dengan akses terbatas (RUF)")
)
# Apply mapping otomatis
for (var in names(maps)) {
if (var %in% names(data)) {
data[[var]] <- map_values(data[[var]], maps[[var]])
}
}
return(data)
}
Try the K4Siswa package in your browser
Any scripts or data that you put into this service are public.
K4Siswa documentation built on Aug. 8, 2026, 5:07 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions K4Siswa
Documented in K4Siswa
#' Labeling Kategori Data Siswa TIMSS (Kelas 4)
#'
#' Mengonversi variabel numerik pada data konteks siswa TIMSS 2023 Kelas 4
#' menjadi kategori berbahasa Indonesia agar interpretasi analisis lebih jelas.
#'
#' @param data data.frame/tibble berisi variabel-variabel sekolah TIMSS.
#'
#' @return data.frame/tibble yang berisi kolom-kolom kategori (berlabel Indonesia).
#'
#' @details Pelabelan mengikuti dokumentasi resmi TIMSS 2023.
#'
#' @examples
#' df <- data.frame(IDPOP = c(1,2))
#' K4Siswa(df)
K4Siswa <- function(data) {
if (!is.data.frame(data)) {
stop("Input harus berupa data.frame")
}
map_values <- function(x, map) {
unname(map[as.character(x)])
}
# Ubah angka ke karakter
if ("IDCNTRY" %in% names(data)) {
data$IDCNTRY <- as.character(data$IDCNTRY)
}
if ("IDSCHOOL" %in% names(data)) {
data$IDSCHOOL <- as.character(data$IDSCHOOL)
}
if ("LCID_CQ" %in% names(data)) {
data$LCID_CQ <- as.character(data$LCID_CQ)
}
if ("JKCZONE" %in% names(data)) {
data$JKCZONE <- as.character(data$JKCZONE)
}
if ("JKCREP" %in% names(data)) {
data$JKCREP <- as.character(data$JKCREP)
}
if ("VERSION" %in% names(data)) {
data$VERSION <- as.character(data$VERSION)
}
# Mapping
maps <- list(
IDPOP <- c("1" = "Populasi 1", "2" = "Populasi 2"),
IDGRADER <- c("1" = "Tingkat rendah", "2" = "Tingkat tinggi"),
IDGRADE <- c("3"="Kelas 3","4"="Kelas 4","5"="Kelas 5","6"="Kelas 6"),
ITASSESS <- c("1"="Digital","2"="Kertas","3"="Kertas (Matematika yang lebih mudah)"),
IDBOOK <- c("0"="Siswa dikecualikan atau tidak berpartisipasi",
"1"="Buklet 1", "2"="Buklet 2","3"="Buklet 3","4"="Buklet 4","5"="Buklet 5",
"6"="Buklet 6","7"="Buklet 7","8"="Buklet 8","9"="Buklet 9","10"="Buklet 10",
"11"="Buklet 11","12"="Buklet 12","13"="Buklet 13","14"="Buklet 14"),
ITSEX <- c("1"="Perempuan","2"="Laki-laki"),
ITADMINI <- c("1"="Staf Pusat Nasional","2"="Guru dari sekolah","3"="Lainnya"),
ILRELIAB <- c("0"="Salah","1"="Benar"),
ITLANG_SQ <- c(
"1" = "Bahasa Inggris", "2" = "Bahasa Spanyol", "3" = "Bahasa Perancis", "4" = "Bahasa Afrika", "5" = "Bahasa Albania",
"8" = "Bahasa Norwegia (Bokmal)", "9" = "Bahasa Bulgaria", "10" = "Bahasa Cina", "11" = "Bahasa Denmark", "12" = "Bahasa Belanda",
"13" = "Bahasa Uzbek (Latin)", "14" = "Bahasa Georgia", "15" = "Bahasa Jerman", "16" = "Bahasa Ibrani", "17" = "Bahasa Hungaria",
"20" = "Bahasa Italia", "21" = "Bahasa Latvia", "22" = "Bahasa Lithuania", "23" = "Bahasa Makedonia", "24" = "Bahasa Maori",
"26" = "Bahasa Norwegia (Nynorsk)", "27" = "Bahasa Polandia", "28" = "Bahasa Rumania", "29" = "Bahasa Rusia", "30" = "Bahasa Slovakia",
"32" = "Bahasa Swedia", "33" = "Bahasa lainnya", "34" = "Bahasa Ceko", "35" = "Bahasa Turki", "36" = "Bahasa Bosnia (Kiril)",
"37" = "Bahasa Bosnia (Latin)", "39" = "Bahasa Kazakhstan", "41" = "Bahasa Irlandia", "43" = "Bahasa Finlandia", "44" = "Bahasa Yunani",
"45" = "Bahasa Portugal", "47" = "Bahasa Korea", "48" = "Bahasa Malta", "49" = "Bahasa Catalan", "51" = "Bahasa Basque",
"52" = "Bahasa Valensia", "53" = "Bahasa Arab", "54" = "Bahasa Armenia", "55" = "Bahasa Azerbaijan", "56" = "Bahasa Kroasia",
"57" = "Bahasa Galisia", "58" = "Bahasa Jepang", "59" = "Bahasa Malaysia", "60" = "Bahasa Azerbaijan (Latin)", "61" = "Bahasa Tamil",
"63" = "Bahasa Persia", "66" = "Bahasa Tatar", "67" = "Bahasa Montenegro (Kiril)", "68" = "Bahasa Montenegro (Latin)", "69" = "Bahasa Serbia (Kiril)",
"70" = "Bahasa Serbia (Latin)", "72" = "Bahasa Uzbekistan (Kiril)", "73" = "Bahasa Karakalpa", "79" = "Bahasa Slovenia", "80" = "Bahasa Urdu",
"81" = "Bahasa Sindhi", "91" = "Bahasa Badini", "92" = "Bahasa Sorani"
),
LCID_SQ <- c("1025" = "Bahasa Arab (Arab Saudi)", "1026" = "Bahasa Bulgaria (Bulgaria)", "1028" = "Bahasa Tionghoa (Taiwan)",
"1029" = "Bahasa Ceko (Republik Ceko)", "1030" = "Bahasa Denmark (Denmark)", "1031" = "Bahasa Jerman (Jerman)",
"1033" = "Bahasa Inggris (Amerika Serikat)", "1035" = "Bahasa Finlandia (Finlandia)", "1036" = "Bahasa Prancis (Prancis)",
"1037" = "Bahasa Ibrani (Israel)", "1038" = "Bahasa Hungaria (Hungaria)", "1040" = "Bahasa Italia (Italia)",
"1041" = "Bahasa Jepang (Jepang)", "1042" = "Bahasa Korea (Korea)", "1043" = "Bahasa Belanda (Belanda)",
"1044" = "Bahasa Norwegia (Bokmal, Norwegia)", "1045" = "Bahasa Polandia (Polandia)", "1046" = "Bahasa Portugis (Brasil)",
"1048" = "Bahasa Rumania (Rumania)", "1051" = "Bahasa Slovakia (Republik Slovakia)", "1052" = "Bahasa Albania (Albania)",
"1053" = "Bahasa Swedia (Swedia)", "1055" = "Bahasa Turki (Turki)", "1060" = "Bahasa Slovenia (Slovenia)",
"1062" = "Bahasa Latvia (Latvia)", "1063" = "Bahasa Lituania (Lituania)", "1065" = "Bahasa Persia (Iran)",
"1067" = "Bahasa Armenia (Armenia)", "1068" = "Bahasa Azerbaijan (Latin, Azerbaijan)", "1071" = "Bahasa Makedonia (Makedonia Utara)",
"1078" = "Bahasa Afrikaans (Afrika Selatan)", "1079" = "Bahasa Georgia (Georgia)", "1086" = "Bahasa Melayu (Malaysia)",
"1087" = "Bahasa Kazakh (Kazakhstan)", "1091" = "Bahasa Uzbek (Latin, Uzbekistan)", "1110" = "Bahasa Galisia (Galisia)",
"1164" = "Bahasa Inggris (Norwegia)"),
ASBG01 = c("1"="Perempuan","2"="Laki-laki","3"="Lainnya"),
ASBG03 = c("1"="Saya selalu berbicara menggunakan bahasa tes di rumah","2"="Saya hampir selalu berbicara menggunakan bahasa tes di rumah","3"="Saya kadang-kadang berbicara menggunakan bahasa tes dan kadang-kadang menggunakan bahasa lain di rumah","4"="Saya tidak pernah berbicara menggunakan bahasa tes di rumah"),
ASBG04 = c("1"="Tidak ada atau sangat sedikit (0-10 buku)","2"="Cukup untuk memenuhi satu rak buku (11-25 buku)","3"="Cukup untuk memenuhi satu lemari buku (26-100 buku)","4"="Cukup untuk memenuhi dua lemari buku (101-200 buku)","5"="Cukup untuk memenuhi tiga atau lebih lemari buku (lebih dari 200 buku)"),
ASBG05A = c("1"="Ya","2"="Tidak"),
ASBG05B = c("1"="Ya","2"="Tidak"),
ASBG05C = c("1"="Ya","2"="Tidak"),
ASBG05D = c("1"="Ya","2"="Tidak"),
ASBG05E = c("1"="Ya","2"="Tidak"),
ASBG05F = c("1"="Ya","2"="Tidak"),
ASBG05G = c("1"="Ya","2"="Tidak"),
ASBG05H = c("1"="Ya","2"="Tidak"),
ASBG05I = c("1"="Ya","2"="Tidak"),
ASBG05J = c("1"="Ya","2"="Tidak"),
ASBG06A = c("1"="Ya","2"="Tidak","3"="Tidak tahu","4"="Tidak berlaku"),
ASBG06B = c("1"="Ya","2"="Tidak","3"="Tidak tahu","4"="Tidak berlaku"),
ASBG07 = c("1"="Ya","2"="Tidak"),
ASBG08 = c("1"="Seminggu sekali","2"="Dua minggu sekali","3"="Sebulan sekali","4"="Dua bulan sekali","5"="Tidak pernah atau hampir tidak pernah"),
ASBG09A = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG09B = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG10A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG10G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG11E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG12A = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12B = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12C = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12D = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12E = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG12F = c("1"="Setiap hari","2"="Hampir setiap hari","3"="Kadang-kadang","4"="Tidak pernah"),
ASBG13A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG13G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBG14A = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14B = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14C = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14D = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14E = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14F = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14G = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14H = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14I = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14J = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBG14K = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBM01 = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBM02A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02H = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM02I = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03H = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM03I = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM04A = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04B = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04C = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04D = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04E = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM04F = c("1"="Setiap atau hampir setiap pertemuan","2"="Sekitar setengah dari seluruh pertemuan","3"="Pada beberapa pertemuan","4"="Tidak pernah"),
ASBM05A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBM05G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS06 = c("1"="Setidaknya seminggu sekali","2"="Satu atau dua kali sebulan","3"="Beberapa kali dalam setahun","4"="Tidak pernah"),
ASBS07A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07H = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS07I = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08G = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08H = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS08I = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS09A = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09B = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09C = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09D = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09E = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS09F = c("1"="Setiap atau hampir setiap pelajaran","2"="Sekitar setengah dari seluruh pelajaran","3"="Pada beberapa pelajaran","4"="Tidak pernah"),
ASBS10A = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10B = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10C = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10D = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10E = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASBS10F = c("1"="Sangat setuju","2"="Setuju","3"="Tidak setuju","4"="Sangat tidak setuju"),
ASMIBM01 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASMIBM02 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASMIBM03 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASMIBM04 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASMIBM05 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM01 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM02 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM03 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM04 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASSIBM05 = c("1"="Di bawah 400","2"="400 sampai kurang dari 475","3"="475 sampai kurang dari 550","4"="550 sampai kurang dari 625","5"="625 atau lebih"),
ASDGDML = c("1"="Sedikit atau tidak ada pelajaran","2"="Beberapa pelajaran","3"="Sebagian besar pelajaran"),
ASDGICM = c("1"="Kejelasan pembelajaran tinggi","2"="Kejelasan pembelajaran sedang","3"="Kejelasan pembelajaran rendah"),
ASDGICS = c("1"="Kejelasan pembelajaran tinggi","2"="Kejelasan pembelajaran sedang","3"="Kejelasan pembelajaran rendah"),
ASDGSEC = c("1"="Efikasi diri digital tinggi","2"="Efikasi diri digital sedang","3"="Efikasi diri digital rendah"),
ASDGSSB = c("1"="Rasa memiliki terhadap sekolah tinggi","2"="Rasa memiliki terhadap sekolah sedang","3"="Rasa memiliki terhadap sekolah rendah"),
ASDGSB = c("1"="Tidak pernah atau hampir tidak pernah","2"="Sekitar sebulan sekali","3"="Sekitar seminggu sekali"),
ASDGSLM = c("1"="Sangat menyukai belajar matematika","2"="Cukup menyukai belajar matematika","3"="Tidak menyukai belajar matematika"),
ASDGSCM = c("1"="Sangat percaya diri dalam matematika","2"="Cukup percaya diri dalam matematika","3"="Tidak percaya diri dalam matematika"),
ASDGSLS = c("1"="Sangat menyukai belajar sains","2"="Cukup menyukai belajar sains","3"="Tidak menyukai belajar sains"),
ASDGSCS = c("1"="Sangat percaya diri dalam sains","2"="Cukup percaya diri dalam sains","3"="Tidak percaya diri dalam sains"),
ASDGVEP = c("1"="Sangat menghargai","2"="Menghargai","3"="Cukup menghargai"),
ASDGDSL = c("1"="Sedikit atau tidak ada pelajaran","2"="Beberapa pelajaran","3"="Sebagian besar pelajaran"),
ASDGHRL = c("1"="Banyak sumber daya","2"="Beberapa sumber daya","3"="Sedikit sumber daya"),
ASDG05S = c("1"="Tidak memiliki kamar sendiri maupun akses internet","2"="Memiliki kamar sendiri atau akses internet","3"="Memiliki kamar sendiri dan akses internet"),
ASDMLOWP = c("1"="Ya","2"="Tidak"),
ASDSLOWP = c("1"="Ya","2"="Tidak"),
ASDMZERP = c("1"="Ya","2"="Tidak"),
ASDSZERP = c("1"="Ya","2"="Tidak"),
SCOPE <- c("1" = "Berkas untuk penggunaan publik (PUF)", "2" = "Berkas dengan akses terbatas (RUF)")
)
# Apply mapping otomatis
for (var in names(maps)) {
if (var %in% names(data)) {
data[[var]] <- map_values(data[[var]], maps[[var]])
}
}
return(data)
}
Try the K4Siswa package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.