Cara menulis loop berulang di r (3 contoh)

Perulangan berulang di R dapat digunakan untuk melakukan suatu tindakan berulang kali hingga kondisi berhenti tercapai.

Anda dapat menggunakan sintaks dasar berikut untuk menulis perulangan berulang di R:

 repeat {
  #do something

  if (some condition){
  break
  }
}

Contoh berikut menunjukkan cara menggunakan perulangan berulang dalam skenario yang berbeda.

Contoh 1: Cetak nilai hingga angka tertentu tercapai

Kode berikut menunjukkan cara menggunakan loop berulang untuk mencetak nilai mulai dari 1 hingga tercapai 10 :

 #define starting value
x <- 0

#perform repeat-loop
repeat {
  x <- x+1
  print (x)

  if (x >= 10){
  break
  }
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10

Begini cara kerja kode ini:

• Kami menetapkan nilai awal sebagai x = 0.
• Kami menyuruh R untuk menambah x sebanyak 1, lalu mencetak x.
• Kami meminta R untuk memutus perulangan berulang setelah x mencapai nilai 10 atau lebih.

Contoh 2: Tambahkan Nilai pada Vektor Hingga Tercapai Angka Tertentu

Kode berikut menunjukkan cara menggunakan loop berulang untuk menambahkan nilai ke vektor hingga angka tertentu tercapai:

 #define empty vector and starting value
data <-c()
x <- 0

#perform repeat-loop
repeat {
  x <- x+1
  data[x] <- x
print (data)
  
  if (x >= 5){
  break
  }
}

[1] 1
[1] 1 2
[1] 1 2 3
[1] 1 2 3 4
[1] 1 2 3 4 5

Begini cara kerja kode ini:

• Kami membuat vektor kosong dan menetapkan nilai awal sebagai x = 0.
• Kita menyuruh R untuk menambah x sebanyak 1, lalu memasukkan nilai x ke posisi ^ke-x vektor.
• Kami meminta R untuk memutus perulangan berulang setelah x mencapai nilai 5 atau lebih.

Contoh 3: Ubah nilai dalam bingkai data hingga angka tertentu tercapai

Kode berikut menunjukkan cara menggunakan loop berulang untuk mengubah nilai bingkai data yang ada hingga angka tertentu tercapai:

 #define data frame and starting value
df <- data. frame (A=c(6, 7, 2, 8),
                 B=c(2, 4, 5, 5))
x <- 0

#perform repeat-loop
repeat {
  x <- x+1
  df$A[x] <- x
  df$B[x] <- x * 2

  if (x >= nrow(df)){
  break
  }
}

#view resulting data frame
df

  AB
1 1 2
2 2 4
3 3 6
4 4 8

Begini cara kerja kode ini:

• Kami membuat bingkai data kosong dan menetapkan nilai awal sebagai x = 0.
• Kita suruh R menambah x sebanyak 1, lalu masukkan nilai x ke posisi ^ke-x kolom A dan masukkan nilai x*2 ke posisi ^ke-x kolom B.
• Kami meminta R untuk memutus perulangan berulang setelah x mencapai nilai yang sama atau lebih besar dari jumlah baris dalam bingkai data.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di R:

Cara membuat loop For bersarang di R
Cara menulis pernyataan If Else bersarang di R
Cara mengulangi nama kolom di R