如何将一列中的值复制到R中另一列中具有相同值的行？[复制]

# 假设你有一个数据框df，其中有两列A和B
df <- data.frame(A = c(1, 2, 3), B = c("a", "b", "c"))

# 创建一个新列C，我们想要将A列的值复制到C列中与A列值相同的行
df$C <- NA  # 初始化C列为NA

# 使用merge()函数
merged_df <- merge(df, df, by = "A")

# 由于merge()默认返回所有匹配的行，我们需要筛选出原始df中的行
result_df <- merged_df[merged_df$B.x == merged_df$B.y, c("A", "B.x", "A.y")]
names(result_df) <- c("A", "B", "C")  # 重命名列以匹配原始列名

# 查看结果
print(result_df)

install.packages("dplyr")
library(dplyr)

# 假设你有一个数据框df，其中有两列A和B
df <- data.frame(A = c(1, 2, 3), B = c("a", "b", "c"))

# 使用dplyr的left_join()函数
result_df <- df %>%
  left_join(df %>% select(A, B), by = "A") %>%
  rename(C = B.y) %>%
  select(A, B, C)

# 查看结果
print(result_df)