R语言：如何按序列比较面板数据中跨年度家庭收入变量？

核心错误分析 #

你的代码存在两个关键问题：

1. 混淆变量名与实际数据：income_vars是存储变量名称的字符向量，不是数据框中的数值列。直接对income_vars[i]做数值比较/运算，本质是在操作字符串，必然触发"非数值参数"错误。
2. 循环逻辑与语法错误：
   • 第一个循环中，你错误地用income_vars[i] + 1指代下一个变量，实际应该通过数据框索引提取对应年份的收入数值列。
   • 第二个循环中，i == "NA"是将数字索引与字符串"NA"比较，逻辑完全错误；i < i+1永远为真，无法实现判断逻辑；且用==做赋值操作，这是R中的比较运算符，赋值应该用<-。

修正后的代码实现 #

假设你的面板数据存储在名为df的数据框中，以下是两种常见需求的解决方案：

1. 生成每年收入是否增长的标记列 #

针对每一年（从2011年开始），标记该年收入是否高于上一年：

income_vars <- c("Income2010","Income2011","Income2012","Income2013",
                 "Income2014","Income2015","Income2016","Income2017",
                 "Income2018","Income2019","Income2020")

# 循环遍历年份（最后一年没有下一年，所以循环到倒数第二个变量）
for (i in 1:(length(income_vars)-1)) {
  # 定义新变量名，比如IncomeUp2011表示2011年比2010年增长
  new_var <- paste0("IncomeUp", substr(income_vars[i+1], 7, 10))
  # 提取对应年份的收入数据，比较后生成1/0标记
  df[[new_var]] <- ifelse(df[[income_vars[i+1]]] > df[[income_vars[i]]], 1, 0)
}

2. 识别整个期间收入逐年增长的家庭 #

直接标记每个家庭是否从2010到2020年每年收入都高于前一年：

# 生成逻辑值标记（TRUE=逐年增长，FALSE=否则）
df$all_income_growth <- apply(df[, income_vars], 1, function(x) all(diff(x) > 0))

# 转成1/0格式的数值标记
df$all_income_growth_num <- as.integer(df$all_income_growth)

关键知识点说明 #

• 定位下一个变量：通过索引i和i+1，结合数据框的[[ ]]索引，提取对应年份的实际收入列（df[[income_vars[i+1]]]），而非操作变量名字符向量。
• 循环范围控制：因为最后一个年份没有下一年，所以循环要从1到length(income_vars)-1，避免索引越界。
• diff()函数：可以快速计算向量中相邻元素的差值，all(diff(x) > 0)能简洁判断所有年份收入是否持续增长。

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