R/Shiny：转置数据并将数据添加到 Dataframe

Question

我正在尝试找出一种方法来转置数据，然后将该数据添加到单独的数据帧中。

我有

Column 1 | Column 2| Column 3
________________________________
Data 1   | Data 2  | Data 3   

在一个单独的数据框中，我有

actualColumn1| actualColumn2
________________________________
Column 1   | otherData 2   
Column 2   | otherData 2   
Column 3   | otherData 2   

想去：

actualColumn1| actualColumn2|addedData
________________________________
Column 1   | otherData 2 | Data 1  
Column 2   | otherData 2 | Data 2  
Column 3   | otherData 2 | Data 3

由于第一个数据帧中的列名与actualcolumn1 中的行完全对应。如果我没有很好地解释这一点，我很抱歉。我还是 R/Shiny 和数据框操作的新手。

Answer 1

您可以使用pivot_longer() 重新调整数据框，将 3 个变量的 1 个观察值转换为 1 个带有 3 个观察值的变量，然后加入另一个数据框。

library(tidyverse)

df1 %>% 
  mutate(x = 1) %>% 
  pivot_longer(cols = -x, names_to = "actualColumn1", values_to = "addedData") %>% 
  select(-x) %>% 
  left_join(x = df2, y = .)

# Joining, by = "actualColumn1"
#    actualColumn1 actualColumn2 addedData
# 1:      Column 1   otherData 2    Data 1
# 2:      Column 2   otherData 2    Data 2
# 3:      Column 3   otherData 2    Data 3

数据：

df1 <- data.table::fread("Column 1 | Column 2| Column 3
Data 1   | Data 2  | Data 3   ")

df2 <- data.table::fread("actualColumn1| actualColumn2
Column 1   | otherData 2   
Column 2   | otherData 2   
Column 3   | otherData 2   ")