R语言中如何基于指定条件交换数据框的Name与Film列取值？

我来帮你搞定这个交换列值的需求！首先梳理下你的问题：你有一个名为COPY的数据框，当Award列等于Director且Year列大于1930时，Name和Film列的内容搞反了，需要交换这两列对应行的取值。你的原有代码存在两个关键问题，我来一步步帮你修正并给出正确实现：

先分析原有代码的问题 #

1. 逻辑运算符错误：在向量级别的条件判断中，你用了&&，但这个运算符只会判断第一个元素的逻辑值，而我们需要对每一行进行判断，应该用元素级的与运算符&。
2. 无法完成交换操作：直接用replace函数只能单向替换，没办法实现“交换”——因为如果先把Film的值赋给Name，原来的Name值会被覆盖，丢失原始数据，所以必须先暂存其中一列的原始值。

正确实现方法（基础R版本） #

这种方法不需要额外包，适合原生R用户：

# 1. 创建逻辑索引，标记需要交换的行
swap_rows <- COPY$Award == "Director" & COPY$Year > 1930

# 2. 暂存需要交换行的原始Name值（避免被覆盖）
temp_names <- COPY$Name[swap_rows]

# 3. 执行交换：把Film的值赋值给Name，把暂存的Name值赋值给Film
COPY$Name[swap_rows] <- COPY$Film[swap_rows]
COPY$Film[swap_rows] <- temp_names

备选方法（tidyverse/dplyr版本） #

如果你习惯用tidyverse生态，可以用dplyr的mutate函数实现，代码更直观：

library(dplyr)

COPY <- COPY %>%
  # 先暂存原始Name值到临时列
  mutate(original_name = Name) %>%
  # 条件替换Name列
  mutate(Name = case_when(
    Award == "Director" & Year > 1930 ~ Film,
    TRUE ~ Name
  )) %>%
  # 条件替换Film列，用之前暂存的原始Name值
  mutate(Film = case_when(
    Award == "Director" & Year > 1930 ~ original_name,
    TRUE ~ Film
  )) %>%
  # 移除临时列
  select(-original_name)

额外小提示 #

你之前提取错位姓名的代码COPY$Film[COPY['Award']=='Director' & COPY['Year']>1930]->name里，COPY['Award']返回的是一个单列数据框，虽然能运行，但更规范的写法是用COPY$Award或者COPY[['Award']]来提取列向量，这样代码可读性更强哦。

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