私はこのスキーマに従ってRのデータフレームを変換したいリスト

Question

を分離：以前にホットエンコード属性Att_1がコンマとして回収したこと

注IDyのために単一のセル内に区切られたリスト。

Rでこれを行うにはどうすればいいですか（例：tidyr関数）？

test <- data.frame(ID = c("IDx", "IDy"), Att_1_1 = c(0,0), Att_1_2 = c(1,1), Att_1_3 = c(0, 1), Att_2 = c(1,1), Att_3 = c(1,0)) 

Answer 1

元のデータセットと「IDが」でleft_join、次の操作を行うことができます。ここ

# set up new dataframe 
res <- test[-(2:4)] 

# add new varible 
res$Att_1 <- apply(test[, 2:4], 1, function(x) c(names(test)[2:4][as.logical(x)])) 

、applyはサブセットdata.frameの行をループし、行のセルの値は、論理サブセットを使用して、1に等しい名前のベクトルを返します。

これは

res[["Att_1"]] <- ... 

も動作することを

res 
    ID Att_2 Att_3   Att_1 
1 IDx  1  1   Att_1_2 
2 IDy  1  0 Att_1_2, Att_1_3 

注意を返します。

Answer 2

OPはtidyr機能を要求するように、我々は「valが」「のID」ごとにグループ化され、1 filter行、「長い」フォーマットにデータセットをgather、pastesummariseを作成するための「キー」欄Dの列「Att_1」とベースRで

library(tidyverse) 
test %>% 
    gather(key, val, Att_1_1:Att_1_3) %>% 
    filter(val==1) %>% 
    group_by(ID) %>% 
    summarise(Att_1 = toString(key)) %>% 
    left_join(df1[-(2:4)], ., by = "ID") %>% 
    select(ID, Att_1, Att_2, Att_3) 
# ID   Att_1 Att_2 Att_3 
#1 IDx   Att_1_2  1  1 
#2 IDy Att_1_2, Att_1_3  1  0