Jak utworzyć zagnieżdżoną pętlę for w r (w tym przykłady)

Zagnieżdżona pętla for umożliwia iterację po elementach w wielu wektorach (lub wielu wymiarach macierzy) i wykonywanie określonych operacji.

Podstawowa struktura pętli for w R to:

 for (i in 1:4) {
  print (i)
}

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

Podstawowa struktura zagnieżdżonej pętli for to:

 for (i in 1:4) {
  for (j in 1:2) {
    print (i*j)
  }
}

[1] 1
[1] 2
[1] 2
[1] 4
[1] 3
[1] 6
[1] 4
[1] 8

W tym samouczku przedstawiono kilka przykładów tworzenia zagnieżdżonych pętli for w języku R.

Przykład 1: Zagnieżdżona pętla For w R

Poniższy kod pokazuje, jak wykorzystać zagnieżdżoną pętlę for do wypełnienia wartości macierzy 4×4:

 #create matrix
empty_mat <- matrix(nrow= 4 , ncol= 4 )

#view empty matrix
empty_mat
     [,1] [,2] [,3] [,4]
[1,] NA NA NA NA
[2,] NA NA NA NA
[3,] NA NA NA NA
[4,] NA NA NA NA

#use nested for loop to fill in values of matrix
for (i in 1:4) {
  for (j in 1:4) {
    empty_mat[i, j] = (i*j)
  }
}

#view matrix
empty_mat

     [,1] [,2] [,3] [,4]
[1,] 1 2 3 4
[2,] 2 4 6 8
[3,] 3 6 9 12
[4,] 4 8 12 16

Przykład 2: Zagnieżdżona pętla For w R

Poniższy kod pokazuje, jak użyć zagnieżdżonej pętli for do wyrównania każdej wartości w ramce danych:

 #create empty data frame
df <- data.frame(var1=c(1, 7, 4),
                 var2=c(9, 13, 15))

#view empty data frame
df

  var1 var2
1 1 9
2 7 13
3 4 15

#use nested for loop to square each value in the data frame
for (i in 1:nrow(df)) {
  for (j in 1:ncol(df)) {
    df[i, j] = df[i, j]^2
  }
}

#view new data frame
df

  var1 var2
1 1 81
2 49 169
3 16 225

Uwaga na temat pętli

Ogólnie rzecz biorąc, zagnieżdżone pętle for dobrze sprawdzają się w przypadku małych zbiorów danych lub macierzy, ale w przypadku większych danych działają dość wolno.

W przypadku dużych zbiorów danych rodzina funkcji aplikacji jest zwykle znacznie szybsza, a pakiet data.table ma wiele wbudowanych funkcji, które wydajnie działają na większych zbiorach danych.

Dodatkowe zasoby

Jak iterować po nazwach kolumn w R
Jak dodać wiersze do ramki danych w R