1. 引言循環(huán)是 R 語言編程中最基礎(chǔ)也最常用的控制結(jié)構(gòu)之一。無論是批量處理數(shù)據(jù)、迭代計(jì)算還是模擬隨機(jī)過程循環(huán)都扮演著不可或缺的角色。本文將系統(tǒng)講解 R 語言中的三種循環(huán)結(jié)構(gòu)——for、while和repeat并通過豐富的代碼實(shí)例幫助你快速掌握它們的用法、適用場(chǎng)景以及常見陷阱。2. for 循環(huán)for 循環(huán)是 R 中最常用的循環(huán)結(jié)構(gòu)它會(huì)對(duì)一個(gè)向量或列表中的每個(gè)元素依次執(zhí)行相同的操作。其基本語法如下for (變量 in 序列) { # 循環(huán)體 }下面通過幾個(gè)實(shí)例來演示 for 循環(huán)的用法。2.1 基礎(chǔ)示例遍歷向量# 遍歷 1 到 5 for (i in 1:5) { print(i) }運(yùn)行結(jié)果[1] 1 [1] 2 [1] 3 [1] 4 [1] 52.2 遍歷字符向量fruits - c(蘋果, 香蕉, 橙子) for (fruit in fruits) { print(paste(我喜歡吃, fruit)) }運(yùn)行結(jié)果[1] 我喜歡吃 蘋果 [1] 我喜歡吃 香蕉 [1] 我喜歡吃 橙子2.3 累加求和# 計(jì)算 1 到 100 的和 total - 0 for (i in 1:100) { total - total i } print(total)運(yùn)行結(jié)果[1] 50502.4 嵌套 for 循環(huán)當(dāng)需要處理二維數(shù)據(jù)結(jié)構(gòu)如矩陣時(shí)可以使用嵌套循環(huán)# 創(chuàng)建一個(gè) 3x3 矩陣并逐元素輸出 mat - matrix(1:9, nrow 3) for (i in 1:nrow(mat)) { for (j in 1:ncol(mat)) { cat(mat[, i, ,, j, ] , mat[i, j], \n) } }運(yùn)行結(jié)果mat[ 1 , 1 ] 1 mat[ 1 , 2 ] 4 mat[ 1 , 3 ] 7 mat[ 2 , 1 ] 2 mat[ 2 , 2 ] 5 mat[ 2 , 3 ] 8 mat[ 3 , 1 ] 3 mat[ 3 , 2 ] 6 mat[ 3 , 3 ] 93. while 循環(huán)while 循環(huán)在每次迭代開始前檢查條件只要條件為真就繼續(xù)執(zhí)行循環(huán)體。它適用于循環(huán)次數(shù)不確定、需要根據(jù)運(yùn)行狀態(tài)動(dòng)態(tài)判斷的場(chǎng)景?；菊Z法如下while (條件) { # 循環(huán)體 }3.1 基礎(chǔ)示例計(jì)數(shù)循環(huán)count - 1 while (count 5) { print(count) count - count 1 }運(yùn)行結(jié)果[1] 1 [1] 2 [1] 3 [1] 4 [1] 53.2 模擬擲骰子直到出現(xiàn) 6set.seed(42) roll - 0 attempts - 0 while (roll ! 6) { roll - sample(1:6, 1) attempts - attempts 1 } cat(擲了, attempts, 次才得到 6\n)3.3 計(jì)算斐波那契數(shù)列# 輸出不超過 100 的斐波那契數(shù)列 a - 1 b - 1 cat(a, b, ) while (a b 100) { c - a b cat(c, ) a - b b - c }運(yùn)行結(jié)果1 1 2 3 5 8 13 21 34 55 894. repeat 循環(huán)repeat 循環(huán)會(huì)無限執(zhí)行循環(huán)體直到遇到 break 語句才退出。它適合那些需要至少執(zhí)行一次、且退出條件在循環(huán)體內(nèi)部判斷的場(chǎng)景?；菊Z法如下repeat { # 循環(huán)體 if (退出條件) { break } }4.1 基礎(chǔ)示例配合 break 退出x - 1 repeat { print(x) x - x 1 if (x 5) { break } }運(yùn)行結(jié)果[1] 1 [1] 2 [1] 3 [1] 4 [1] 54.2 模擬隨機(jī)游走set.seed(123) position - 0 steps - 0 repeat { position - position sample(c(-1, 1), 1) steps - steps 1 if (abs(position) 5) { break } } cat(經(jīng)過, steps, 步到達(dá)位置, position, \n)5. 循環(huán)控制語句R 提供了兩個(gè)重要的循環(huán)控制語句break和next。5.1 break立即退出循環(huán)# 找到第一個(gè)大于 10 的平方數(shù) for (i in 1:10) { square - i^2 if (square 10) { cat(第一個(gè)大于 10 的平方數(shù)是, square, i , i, \n) break } }運(yùn)行結(jié)果第一個(gè)大于 10 的平方數(shù)是 16 i 4 5.2 next跳過當(dāng)前迭代# 輸出 1 到 10 中的偶數(shù) for (i in 1:10) { if (i %% 2 ! 0) { next } print(i) }運(yùn)行結(jié)果[1] 2 [1] 4 [1] 6 [1] 8 [1] 106. 實(shí)戰(zhàn)案例批量處理數(shù)據(jù)下面通過一個(gè)綜合案例演示如何用循環(huán)批量處理數(shù)據(jù)框中的多列數(shù)據(jù)。# 創(chuàng)建示例數(shù)據(jù)框 df - data.frame( id 1:5, score1 c(85, 90, 78, 92, 88), score2 c(80, 85, 82, 95, 79), score3 c(88, 92, 75, 89, 91) ) 計(jì)算每個(gè)學(xué)生的平均分 df$average - NA for (i in 1:nrow(df)) { df$average[i] - mean(c(df$score1[i], df$score2[i], df$score3[i])) } 根據(jù)平均分評(píng)定等級(jí) df$grade - NA for (i in 1:nrow(df)) { if (df$average[i] 90) { df$grade[i] - 優(yōu)秀 } else if (df$average[i] 80) { df$grade[i] - 良好 } else { df$grade[i] - 及格 } } print(df)運(yùn)行結(jié)果id score1 score2 score3 average grade 1 1 85 80 88 84.33333 良好 2 2 90 85 92 89.00000 良好 3 3 78 82 75 78.33333 及格 4 4 92 95 89 92.00000 優(yōu)秀 5 5 88 79 91 86.00000 良好7. 常見陷阱與注意事項(xiàng)在使用循環(huán)時(shí)有幾個(gè)常見問題需要特別注意無限循環(huán)while 和 repeat 循環(huán)中如果忘記更新循環(huán)變量或退出條件永遠(yuǎn)無法滿足會(huì)導(dǎo)致無限循環(huán)。務(wù)必確保循環(huán)體內(nèi)有改變條件的語句。向量化替代R 是向量化語言很多循環(huán)操作可以用 apply 家族函數(shù)如 lapply、sapply或向量化運(yùn)算替代效率更高。例如求和可以直接用sum(1:100)無需循環(huán)。預(yù)分配內(nèi)存在循環(huán)中逐次拼接向量會(huì)非常慢建議預(yù)先分配結(jié)果向量的長(zhǎng)度。作用域問題循環(huán)中創(chuàng)建的變量在循環(huán)結(jié)束后仍然存在注意避免變量名沖突。7.1 預(yù)分配內(nèi)存示例# 不推薦逐次拼接 result - c() for (i in 1:10000) { result - c(result, i^2) } 推薦預(yù)分配內(nèi)存 result2 - numeric(10000) for (i in 1:10000) { result2[i] - i^2 }8. 總結(jié)本文詳細(xì)介紹了 R 語言中的三種循環(huán)結(jié)構(gòu)for 循環(huán)適合遍歷已知序列while 循環(huán)適合條件驅(qū)動(dòng)的迭代repeat 循環(huán)適合至少執(zhí)行一次且退出條件在循環(huán)體內(nèi)部的場(chǎng)景。同時(shí)介紹了 break 和 next 兩個(gè)控制語句的用法。在實(shí)際開發(fā)中建議優(yōu)先考慮 R 的向量化操作和 apply 家族函數(shù)在確實(shí)需要循環(huán)時(shí)注意預(yù)分配內(nèi)存、避免無限循環(huán)并保持代碼的可讀性。