Een geneste for-lus in r maken (inclusief voorbeelden)


Met een geneste for-lus kunt u elementen in meerdere vectoren (of meerdere dimensies van een matrix) herhalen en bepaalde bewerkingen uitvoeren.

De basisstructuur van een for-lus in R is:

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

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

En de basisstructuur van een geneste for-lus is:

 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

Deze tutorial toont enkele voorbeelden van het maken van geneste for-lussen in R.

Voorbeeld 1: Geneste For-lus in R

De volgende code laat zien hoe je een geneste for-lus gebruikt om de waarden van een 4×4-matrix te vullen:

 #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

Voorbeeld 2: Geneste For-lus in R

De volgende code laat zien hoe u een geneste for-lus kunt gebruiken om elke waarde in een gegevensframe te kwadrateren:

 #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

Een opmerking over het herhalen

Over het algemeen werken geneste for-lussen goed op kleine datasets of matrices, maar ze zijn meestal behoorlijk traag bij grotere data.

Voor big data is de applicatiefamilie van functies vaak veel sneller, en het data.table- pakket heeft veel ingebouwde functies die efficiënt werken op grotere datasets.

Aanvullende bronnen

Hoe kolomnamen te herhalen in R
Rijen toevoegen aan een dataframe in R

Einen Kommentar hinzufügen

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert