R语言循环计算贷款欠款金额出错：仅执行一次计息逻辑

你的代码主要有三个核心问题：

1. 利率计算错误：6.5是年利率百分比，直接用i/365会得到约1.78%的日利率，这显然不符合实际，需要先转成小数（除以100）再计算日利率。
2. 循环结构混乱：嵌套了多层repeat和while，最内层的repeat没有终止条件，会无限执行同一个计算；外层循环逻辑重复，导致循环控制完全失效。
3. 本金未更新：每次计息后没有把新的欠款金额赋值回x，永远用初始的10000计算利息，结果不会变化。

修正方案1：用for循环（最直观） #

x <- 10000  # 初始借款金额
annual_rate <- 6.5  # 年利率（百分比）
total_days <- 365  # 计息天数

# 计算日利率（转换为小数后除以365）
daily_rate <- annual_rate / 100 / total_days

# 逐日复利计息
for (day in 1:total_days) {
  x <- x + x * daily_rate  # 等价于 x <- x * (1 + daily_rate)
}

# 输出结果（保留2位小数）
cat("365天后的欠款金额：", round(x, 2), "\n")

修正方案2：用while循环（贴近你最初的思路） #

x <- 10000
annual_rate <- 6.5
total_days <- 365
daily_rate <- annual_rate / 100 / total_days

counter <- 0
while (counter < total_days) {
  counter <- counter + 1
  x <- x * (1 + daily_rate)  # 简洁的复利计算方式
}

cat("365天后的欠款金额：", round(x, 2), "\n")

关键修正点说明 #

• 必须将年利率转换为小数（annual_rate / 100），否则计算出的利息会高得离谱。
• 每次循环后更新本金x，让下一次计息基于最新的欠款金额，实现复利效果。
• 用单一循环替代多层嵌套，逻辑更清晰，避免无限循环或循环失效的问题。

内容的提问来源于stack exchange，提问作者awhite