Voor lus met bereik in r (inclusief voorbeelden)

U kunt de volgende basissyntaxis gebruiken om een for-lus te schrijven met een bereik in R:

 for (i in 1:10) {
  do something
}

De volgende voorbeelden laten zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld 1: Print waarden binnen bereik

De volgende code laat zien hoe u een for-lus gebruikt om elke waarde binnen een bepaald bereik af te drukken:

 #print every value in range of 1 to 10
for (i in 1:10) {
  print(i)
}

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

Voorbeeld 2: Voer een bewerking uit op waarden in het bereik

De volgende code laat zien hoe u een for-lus gebruikt om een specifieke bewerking uit te voeren op elke waarde binnen een bepaald bereik:

 #definevector
x <- c(4, 7, 9, 12, 14, 16, 19)

#print square root of every value in vector
for (i in 1: length (x)) {
 print(paste(' The square root of the value in position ', i, ' is ', sqrt(x[i])))
}

[1] "The square root of the value in position 1 is 2"
[1] "The square root of the value in position 2 is 2.64575131106459"
[1] "The square root of the value in position 3 is 3"
[1] "The square root of the value in position 4 is 3.46410161513775"
[1] "The square root of the value in position 5 is 3.74165738677394"
[1] "The square root of the value in position 6 is 4"
[1] "The square root of the value in position 7 is 4.35889894354067"

Voorbeeld 3: Voer een bewerking uit op de waarden in het dataframe

De volgende code laat zien hoe u een for-lus gebruikt om een specifieke bewerking uit te voeren op elke waarde van een specifieke kolom van een gegevensframe in r:

 #define data frame
df <- data. frame (a=c(3, 4, 4, 5, 8),
                 b=c(8, 8, 7, 8, 12),
                 c=c(11, 15, 19, 15, 11))

#view data frame
df

  ABC
1 3 8 11
2 4 8 15
3 4 7 19
4 5 8 15
5 8 12 11

#multiply every value in column 'a' by 2
for (i in 1: length (df$a)) {
  df$a[i] = df$a[i]*2
}

#view updated data frame
df

   ABC
1 6 8 11
2 8 8 15
3 8 7 19
4 10 8 15
5 16 12 11

Aanvullende bronnen

Hoe maak je een geneste For-lus in R
Hoe schrijf je een geneste If Else-instructie in R
Hoe kolomnamen te herhalen in R