以寬格式轉換數據，同時保留變量的對齊方式

我在R中創建了以下數據幀

df<-data.frame("ID"= c("A", "A", "A", "A", "B", "B", "B"))
df$X_F= c(1,5,6, 7, 1, 7, 8)
df$X_A= c(1,5,6, 7, 1, 7, 8)

上面的數據幀是長格式的

  ID X_F X_A
1  A   1   1
2  A   5   5
3  A   6   6
4  A   7   7
5  B   1   1
6  B   7   7
7  B   8   8

我想把數據幀轉換成寬格式。我為同一個應用程序導入了重塑庫和數據表庫

library(DT)
library(reshape2)
library(data.table)

現在我已經運行了以下代碼

df2<-dcast(melt(setDT(df), id.var = "ID"), rowid(ID, variable) ~ 
                 paste(ID, variable, sep="__"))[, ID := NULL][]

這將產生以下數據幀

     A__X_A A__X_F B__X_A B__X_F
       1      1      1      1
       5      5      7      7
       6      6      8      8
       7      7     NA     NA

如何獲得以下數據幀

     A__X_A A__X_F B__X_A B__X_F
      1      1      1      1
      5      5      NA     NA
      6      6      NA     NA
      7      7       7      7
      NA     NA      8      8

如何獲得此結果。我請人看看

發布于前

? 最佳回答：

dplyr/tidyr替代解決方案：

df<-data.frame("ID"= c("A", "A", "A", "A", "B", "B", "B"))
df$X_F= c(1,5,6, 7, 1, 7, 8)
df$X_A= c(1,5,6, 7, 1, 7, 8)


library(dplyr)
library(tidyr)

df %>% 
  pivot_longer(cols = -ID) %>% 
  mutate(newID = value) %>% 
  pivot_wider(id_cols = newID, names_from = c(ID, name), values_from = value, values_fn = {first}) %>% 
  select(-newID)

Returns:

  A_X_F A_X_A B_X_F B_X_A
  <dbl> <dbl> <dbl> <dbl>
1     1     1     1     1
2     5     5    NA    NA
3     6     6    NA    NA
4     7     7     7     7
5    NA    NA     8     8

公眾號：1024技術圈

?? 提供互聯網知識和資訊，分享IT前沿技術，熱門資源，大廠面試題 ??

以寬格式轉換數據，同時保留變量的對齊方式

熱門問答

從gtsummary軟件包中省略tbl_回歸中的協變量

MongoDB聚合中$replaceRoot的對面

如何將列數據移動到另一個表并將其id設置為第一個表中的外鍵列？

在Vue.js 3中使用TypeScript破壞和重新分配屬性

按id javascript刪除數組中的對象

如何附加由“li”包裝的復選框輸入？

使用php導航文件結構以動態創建頁面

CAD里的圖導入到ARCMAP里面顏色丟失了應該怎么辦呢？

為什么php表單構建器類沒有運行？

如何在Oracle SQL Developer中創建和管理用戶角色和權限

vue3.x項目在其他電腦上安裝依賴沒問題在我電腦上安裝依賴報錯，node版本和其他未報錯的版本一致

GA遺傳算法能否指定適應度，就是得到的最終結果不是最大值最小值.

以寬格式轉換數據，同時保留變量的對齊方式

熱門問答

從gtsummary軟件包中省略tbl_回歸中的協變量

MongoDB聚合中$replaceRoot的對面

如何將列數據移動到另一個表并將其id設置為第一個表中的外鍵列？

在Vue.js 3中使用TypeScript破壞和重新分配屬性

按id javascript刪除數組中的對象

如何附加由“li”包裝的復選框輸入？

使用php導航文件結構以動態創建頁面

CAD里的圖導入到ARCMAP里面顏色丟失了應該怎么辦呢？

為什么php表單構建器類沒有運行？

如何在Oracle SQL Developer中創建和管理用戶角色和權限

vue3.x項目在其他電腦上安裝依賴沒問題在我電腦上安裝依賴報錯，node版本和其他未報錯的版本一致

GA遺傳算法能否指定適應度，就是得到的最終結果不是最大值最小值.

以寬格式轉換數據，同時保留變量的對齊方式

如何將列數據移動到另一個表并將其id設置為第一個表中的外鍵列？

如何附加由“li”包裝的復選框輸入？

vue3.x項目在其他電腦上安裝依賴沒問題在我電腦上安裝依賴報錯，node版本和其他未報錯的版本一致

GA遺傳算法能否指定適應度，就是得到的最終結果不是最大值最小值.