Mengiterasi Karakter (strsplit

Termasuk bagian Dasar-Dasar dalam perjalanan R di Coddy. Pelajaran 65 dari 78.

Bagaimana jika kamu perlu memproses setiap karakter dalam string satu per satu? Tidak seperti vektor, kamu tidak bisa langsung melakukan perulangan pada karakter dalam string di R. Fungsi strsplit() mengatasi hal ini dengan memecah string menjadi vektor berisi karakter.

Fungsi strsplit() menerima dua argumen: string yang akan dipisah dan pemisahnya. Untuk memisahnya menjadi karakter-karakter tunggal, gunakan string kosong "" sebagai pemisah:

word <- "hello"
chars <- strsplit(word, "")[[1]]
print(chars)

output:

[1] "h" "e" "l" "l" "o"

Perhatikan [[1]] di bagian akhir. Ini karena strsplit() mengembalikan sebuah list, dan kita perlu mengambil elemen pertama untuk mendapatkan vektor karakter. Setelah kamu memiliki karakter dalam bentuk vektor, kamu bisa melakukan perulangan pada karakter tersebut menggunakan teknik yang sudah kamu pelajari:

word <- "R"
chars <- strsplit(word, "")[[1]]
for (char in chars) {
  print(char)
}

output:

[1] "R"

Teknik ini penting untuk tugas seperti menghitung karakter tertentu, membalik string, atau memvalidasi input karakter demi karakter.

Tantangan

Mudah

Kamu akan menerima satu baris input yang berisi sebuah kata (misalnya, programming).

Gunakan strsplit() untuk memisahkan string menjadi karakter-karakter:

Pisahkan kata input menjadi sebuah vektor karakter
Telusuri setiap karakter dalam vektor
Hitung berapa kali huruf "a" muncul dalam kata (peka huruf besar-kecil)
Cetak setiap karakter pada barisnya sendiri menggunakan print()
Setelah perulangan, cetak jumlahnya menggunakan cat() dengan format: Count of 'a': X diikuti baris baru

Misalnya, jika inputnya adalah:

banana

Outputnya seharusnya:

[1] "b"
[1] "a"
[1] "n"
[1] "a"
[1] "n"
[1] "a"
Count of 'a': 3

Penjelasan: Kata "banana" dipisahkan menjadi karakter-karakter c("b", "a", "n", "a", "n", "a"). Setiap karakter dicetak, dan huruf "a" muncul 3 kali.

Coba sendiri

# Baca input
con <- file("stdin", "r")
word <- suppressWarnings(readLines(con, n = 1))

# Inisialisasi penghitung untuk huruf 'a'
count_a <- 0

# TODO: Tulis kodemu di bawah ini
# 1. Gunakan strsplit() untuk memisahkan kata menjadi karakter satu per satu
# 2. Ulangi untuk setiap karakter
# 3. Cetak setiap karakter menggunakan print()
# 4. Hitung berapa kali 'a' muncul

# Tampilkan jumlah 'a' sebagai output
cat("Count of 'a': ", count_a, "\n", sep = "")