<\/p>\n
Fungsi ifelse()<\/strong> di basis R mengonversi objek tanggal menjadi objek numerik secara default.<\/span><\/p>\n Untuk mencegah hal ini terjadi, Anda dapat menggunakan salah satu cara berikut sebagai alternatifnya:<\/span><\/p>\n Metode 1: Gunakan as.character() di Basis R<\/strong><\/span><\/p>\n Metode 2: Gunakan if_else() di dplyr<\/strong><\/span><\/p>\n Metode 3: Gunakan fifelse() di data.tabel<\/strong><\/span><\/p>\n Contoh berikut menunjukkan cara menggunakan setiap metode dalam praktik dengan kerangka data berikut di R:<\/span><\/p>\n Kode berikut menunjukkan cara menggunakan fungsi as.character()<\/strong> dengan fungsi basis R ifelse()<\/strong> untuk menjalankan pernyataan if else pada kolom tanggal<\/strong> bingkai data dan menghasilkan tanggal sebagai hasilnya:<\/span><\/p>\n Jika nilai di kolom tanggal<\/strong> sebelum 20\/01\/2022, kami menambahkan lima hari ke tanggal tersebut.<\/span><\/span><\/p>\n Perhatikan bahwa kolom tanggal<\/strong> tetap mempertahankan format tanggalnya dan bukan diubah menjadi format angka.<\/span><\/p>\n Kode berikut menunjukkan cara menggunakan fungsi if_else()<\/strong> dplyr untuk menjalankan pernyataan if else pada kolom tanggal<\/strong> dalam bingkai data dan menghasilkan tanggal sebagai hasilnya:<\/span><\/p>\n Jika nilai di kolom tanggal<\/strong> sebelum 20\/01\/2022, kami menambahkan lima hari ke tanggal tersebut.<\/span><\/p>\n Perhatikan bahwa kolom tanggal<\/strong> tetap mempertahankan format tanggalnya dan bukan diubah menjadi format angka.<\/span><\/p>\n Kode berikut menunjukkan cara menggunakan fungsi fifelse()<\/strong> dari data.table untuk menjalankan pernyataan if else pada kolom tanggal<\/strong> dalam bingkai data dan menghasilkan tanggal sebagai hasilnya:<\/span><\/p>\n Jika nilai di kolom tanggal<\/strong> sebelum 20\/01\/2022, kami menambahkan lima hari ke tanggal tersebut.<\/span><\/p>\n Sekali lagi, kolom tanggal<\/strong> mempertahankan format tanggalnya alih-alih diubah menjadi format angka.<\/span><\/p>\n Catatan<\/strong> : Untuk frame data yang sangat besar, metode dplyr dan data.table akan lebih cepat daripada metode dasar R.<\/span><\/p>\n Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di R:<\/span><\/p>\n Cara menulis pernyataan If Else bersarang di R<\/a> Fungsi ifelse() di basis R mengonversi objek tanggal menjadi objek numerik secara default. Untuk mencegah hal ini terjadi, Anda dapat menggunakan salah satu cara berikut sebagai alternatifnya: Metode 1: Gunakan as.character() di Basis R df$date <- as. Date (ifelse(df$date < ‘ 2022-01-20 ‘, as. character (df$date+5), as. character (df$date))) Metode 2: Gunakan if_else() di dplyr […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\n df$date <- as. Date<\/span> (ifelse(df$date < ' 2022-01-20<\/span> ',\n as. character<\/span> (df$date+5),\n as. character<\/span> (df$date)))<\/strong><\/pre>\n df$date <- if_else(df$date < ' 2022-01-20<\/span> ', df$date+5, df$date)<\/strong><\/pre>\n df$date <- fifelse(df$date < ' 2022-01-20<\/span> ', df$date+5, df$date)<\/strong><\/pre>\n #create data frame<\/span>\ndf <- data. frame<\/span> (date=as. Date<\/span> (c('2022-01-05', '2022-01-17', '2022-01-22',\n '2022-01-23', '2022-01-29', '2022-02-13')),\n sales=c(22, 35, 24, 20, 16, 19))\n\n#view data frame\n<\/span>df\n\n dirty date\n1 2022-01-05 22\n2 2022-01-17 35\n3 2022-01-22 24\n4 2022-01-23 20\n5 2022-01-29 16\n6 2022-02-13 19\n<\/strong><\/pre>\n Contoh 1: Gunakan as.character() di Basis R<\/strong><\/span><\/h2>\n
#if date is before 2022-01-20 then add 5 days<\/span>\ndf$date <- as. Date<\/span> (ifelse(df$date < ' 2022-01-20<\/span> ',\n as. character<\/span> (df$date+5),\n as. character<\/span> (df$date)))\n\n#view updated data frame<\/span>\ndf\n\n dirty dates\n1 2022-01-10 22\n2 2022-01-22 35\n3 2022-01-22 24\n4 2022-01-23 20\n5 2022-01-29 16\n6 2022-02-13 19\n<\/strong><\/pre>\n Contoh 2: Gunakan if_else() di dplyr<\/strong><\/span><\/h2>\n
library<\/span> (dplyr)<\/span>\n\n#if date is before 2022-01-20 then add 5 days<\/span>\ndf$date <- if_else(df$date < ' 2022-01-20<\/span> ', df$date+5, df$date)\n\n#view updated data frame<\/span>\ndf\n\n dirty date\n1 2022-01-10 22\n2 2022-01-22 35\n3 2022-01-22 24\n4 2022-01-23 20\n5 2022-01-29 16\n6 2022-02-13 19\n<\/strong><\/pre>\n Contoh 3: Gunakan fifelse() di data.tabel<\/strong><\/span><\/h2>\n
library<\/span> (data.table)<\/span>\n\n#if date is before 2022-01-20 then add 5 days<\/span>\ndf$date <- fifelse(df$date < ' 2022-01-20<\/span> ', df$date+5, df$date)\n\n#view updated data frame<\/span>\ndf\n\n dirty dates\n1 2022-01-10 22\n2 2022-01-22 35\n3 2022-01-22 24\n4 2022-01-23 20\n5 2022-01-29 16\n6 2022-02-13 19\n<\/strong><\/pre>\n Sumber daya tambahan<\/strong><\/span><\/h2>\n
Cara menulis pernyataan kasus di R<\/a>
Bagaimana cara menambahkan beberapa kolom ke bingkai data di R<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"