R 在某些條件下用同一行中另一列的值替換或保留一列中的值

Question

在將某一列中的值替換為具有特定條件的同一行中另一列的值之后，我還有一個問題

我有一個包含“A”、“B”和“Dict”列的數據框

現在，前一個問題和這個問題之間的區別在於“Dict”具有“A”、“B”和“C”的值

“A”和“B”表示每一行的值應該在正確的列中，我想保持“C”不變

例如：

A            B             Dict
0           123            B
0           123            A
123         0              A
123         0              C
0           123            C

如果“Dict”在同一行中有A，我想將“B”中的值移動到“A”，並將該值替換為0。如果“Dict”有C，則該行不變：

A            B             Dict
0           123             B
123          0              A
123          0              A
123          0              C
0           123             C

目前我在上一個問題中使用的是蔡大仁的回答：

df %>%
  mutate(across(A:B, ~ ifelse(Dict == cur_column(), A+B, 0))) 

但它給了我

A            B             Dict
0           123             B
123          0              A
123          0              A
0            0              C
0            0              C

有誰知道我如何更改 function 所以當“Dict”的值為 C 它不會將行更改為零？

Answer 1

在條件語句中添加另一個條件怎么樣？

read_table("A            B             Dict
0           123            B
0           123            A
123         0              A
123         0              C
0           123            C
") %>%
  mutate(across(A:B, ~case_when(Dict == cur_column() ~ A+B,
                                Dict == "C" ~ .,
                                TRUE ~ 0))) 

# # A tibble: 5 × 3
#       A     B Dict 
#   <dbl> <dbl> <chr>
# 1     0   123 B    
# 2   123     0 A    
# 3   123     0 A    
# 4   123     0 C    
# 5     0   123 C