为R中的多个列创建if/then和if/else循环，以便年化美元值？

# 创建一个示例数据框
df <- data.frame(
  investment = c(1000, 2000, 3000),
  rate_of_return = c(0.05, -0.02, 0.10), # 正值代表盈利，负值代表亏损
  duration_in_months = c(12, 6, 24)
)

# 定义一个函数来计算年化美元值
annualized_dollar_value <- function(investment, rate_of_return, duration_in_months) {
  if (rate_of_return >= 0) {
    # 如果回报率为正或零，使用复利公式计算年化值
    annual_rate <- (1 + rate_of_return)^(12 / duration_in_months) - 1
    return(investment * (1 + annual_rate))
  } else {
    # 如果回报率为负，可能需要考虑不同的计算方法或假设
    # 这里我们简单地返回投资减去按比例计算的亏损
    loss <- investment * abs(rate_of_return) * (duration_in_months / 12)
    return(investment - loss)
  }
}

# 应用函数到数据框的每一行
df$annualized_value <- apply(df[, c("investment", "rate_of_return", "duration_in_months")], 1, annualized_dollar_value)

# 查看结果
print(df)