Вектор разделенных запятыми строк в матрице

Question

Я работаю над этим уже час, и мне кажется, что я побежал к стене: я хочу преобразовать вектор разделенных запятыми строк в матрицу.

У меня есть такой вектор:

'ABC,DFGH,IJ'
'KLMN,OP,DFGH,QR'
'ST,ABC'

Я хочу получить матрицу типа

ABC DFGH IJ KLMN OP QR ST
1   1    1  0    0  0  0
0   1    0  1    1  1  0
1   0    0  0    0  0  1

Пример данных:

myvec<-c('ABC,DFGH,IJ','KLMN,OP,DFGH,QR','ST,ABC')

Ответы Base R также приветствуются. Мне может понадобиться этот трюк для некоторых больших наборов данных снова.

Answer 1

Вы можете попробовать это с BASE R:

Данные:

myvec<-c('ABC,DFGH,IJ','KLMN,OP,DFGH,QR','ST,ABC')

Решение:

unq <- unique(strsplit(paste0(myvec,collapse=","),",")[[1]])
sapply(unq, function(x)grepl(x,strsplit(myvec,","))+0)

выход

> sapply(unq, function(x)grepl(x,strsplit(myvec,","))+0)
     ABC DFGH IJ KLMN OP QR ST
[1,]   1    1  1    0  0  0  0
[2,]   0    1  0    1  1  1  0
[3,]   1    0  0    0  0  0  1

Answer 2

Другое базовое решение R:

> myvec<-c('ABC,DFGH,IJ','KLMN,OP,DFGH,QR','ST,ABC')
> mv <- strsplit(myvec,",")
> u <- unique(unlist(mv))
> t(sapply(mv, function(x) u %in% x)*1)
# output without colnames
     [,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,]    1    1    1    0    0    0    0
[2,]    0    1    0    1    1    1    0
[3,]    1    0    0    0    0    0    1
> r <- t(sapply(mv, function(x) u %in% x)*1)
# adding colnames 
> colnames(r) <- u
> r
     ABC DFGH IJ KLMN OP QR ST
[1,]   1    1  1    0  0  0  0
[2,]   0    1  0    1  1  1  0
[3,]   1    0  0    0  0  0  1

Answer 3

library(tidyverse)

myvec<-c('ABC,DFGH,IJ','KLMN,OP,DFGH,QR','ST,ABC')

data.frame(myvec) %>%                # create a data frame
  mutate(id = row_number(),          # create row id (helpful in order to reshape)
         value = 1) %>%              # create value = 1 (helpful in order to reshape)
  separate_rows(myvec) %>%           # separate values (using the commas; automatically done by this function)
  spread(myvec, value, fill = 0) %>% # reshape dataset
  select(-id)                        # remove row id column

#   ABC DFGH IJ KLMN OP QR ST
# 1   1    1  1    0  0  0  0
# 2   0    1  0    1  1  1  0
# 3   1    0  0    0  0  0  1