Row 将多列按顺序绑定为包含唯一元素的两列

Question

我对 R 还是不太熟悉，想知道是否有一种简单的方法可以操纵下面的 df 来实现 df2。

我不确定它是否应该用于此循环，但基本上我想在每个 V(X)_ID 列和它对应的 V(X)_No 列上采用不同的方式。 如果 V(X)_ID 在其他列中重复，我想忽略它并移动下一个唯一的 V(X)_ID 及其关联的 V(X)_No。

V1_ID <- c('AUD','CAD','NZD','USD',NA,NA,NA)
V1_No <- c(3.43,2.42,1.58,9.9,NA,NA,NA)
V2_ID <- c('TRY','AUD','EUR','SPY','TRY','BTC',NA)
V2_No <- c(8.4,2.4,6.8,1.2,9.8,9.8,NA)
V3_ID <- c('JPY','EUR','NZD','AUD','SPY','NA',NA)
V3_No <- c(1.8,8.6,4.4,2.1,9.6,NA,NA)
V4_ID <- c('GBP','TRY','HKD','SKD','USD','NZD','CAD')
V4_No <- c(1.3,4.6,7.9,8.5,2.6,7.4,9.1)
df <- data.frame(V1_ID,V1_No,V2_ID,V2_No,V3_ID,V3_No,V4_ID,V4_No)


ID <- c('AUD','CAD','NZD','USD','TRY','EUR','SPY','BTC','JPY','GBP','SKD')
No <- c(3.43,2.42,1.58,9.9,8.4,6.8,1.2,9.8,1.8,1.3,8.5)
df2 <- data.frame(ID,No)

非常感谢您的帮助，因为我有 387 种此类格式的列，从手动的角度来看它非常耗时，因此我希望寻找更优雅的解决方案。

谢谢

Answer 1

library(tidyr)
library(dplyr)

df |> 
  pivot_longer(everything(), names_to = c("set", ".value"), names_sep = "_") |> 
  distinct(ID, .keep_all = TRUE) |> 
  drop_na() |> 
  select(-set)

# A tibble: 12 × 2
   ID       No
   <chr> <dbl>
 1 AUD    3.43
 2 TRY    8.4 
 3 JPY    1.8 
 4 GBP    1.3 
 5 CAD    2.42
 6 EUR    8.6 
 7 NZD    1.58
 8 HKD    7.9 
 9 USD    9.9 
10 SPY    1.2 
11 SKD    8.5 
12 BTC    9.8 

尽管有第十二行看起来与您想要的 output 不匹配，但我不知道我遗漏了什么逻辑步骤。