R- In new dataframe:如果单元格与同一行的另一列匹配，则

new_df <- data.frame()

for (i in 1:nrow(original_df)) {
  # 获取当前行的单元格值
  cell_value <- original_df[i, "列名"]
  
  # 获取当前行的另一列的值
  other_column_value <- original_df[i, "另一列名"]
  
  # 判断单元格值是否与另一列的值匹配
  if (cell_value == other_column_value) {
    # 将匹配的行添加到新的数据框中
    new_df <- rbind(new_df, original_df[i, ])
  }
}

print(new_df)