R의 DataFrame - 다중 조건

Question

I가 여러 개의 값을 가지는 컬럼이있는 dataframe을 함유 열의 핫 엔코딩 (쉼표로 구분) : I가 한 핫으로 정보 열을 분할 할

mydf <- structure(list(Age = c(99L, 10L, 40L, 15L), 
         Info = c("good, bad, sad", "nice, happy, joy", "NULL", "okay, nice, fun, wild, go"), 
         Target = c("Boy", "Girl", "Boy", "Boy")), 
        .Names = c("Age", "Info", "Target"), 
        row.names = c(NA, 4L), 
        class = "data.frame") 

> mydf 
    Age      Info Target 
1 99   good, bad, sad Boy 
2 10   nice, happy, joy Girl 
3 40      NULL Boy 
4 15 okay, nice, fun, wild, go Boy 

열을 인코딩, 예를 들면, 대상 열 외에 결과를 추가합니다

Age      Info Target good bad sad nice ... NULL .. 
1 99   good, bad, sad Boy 1 1 1 0  0 
2 10   nice, happy, joy Girl 0 0 0 1  0 
3 40      NULL Boy 0 0 0 0  1 
4 15 okay, nice, fun, wild, go Boy 0 0 0 0  0 

를 파이썬에서 그때 사전을 얻기 위해, 아래와 같이 뭔가를하고 있었다 열을 지정하는 데 사용합니다.

In [1]: import itertools 

In [2]: values = ["good, bad, sad", "nice, happy, joy", "NULL", "okay, nice, fun, wild, go"] 

In [3]: terms = list(itertools.chain(*[v.split(", ") for v in values])) 

In [4]: dictionary = {v:k for k,v in enumerate(terms)} 

In [6]: dictionary 
Out[6]: 
{'NULL': 6, 'bad': 1, 
'fun': 9, 'go': 11, 'good': 0, 'happy': 4, 
'joy': 5, 'nice': 8, 'okay': 7, 'sad': 2, 'wild': 10} 

지금까지 나는 R의 사전으로 변환하는 방법을 받고 있지 않다 R

> lapply(mydf["Info"], function(x) { strsplit(x, ", ") }) 
$Info 
$Info[[1]] 
[1] "good" "bad" "sad" 

$Info[[2]] 
[1] "nice" "happy" "joy" 

$Info[[3]] 
[1] "NULL" 

$Info[[4]] 
[1] "okay" "nice" "fun" "wild" "go" 

에서이 작업을 수행하고, 한 - 핫 인코딩에 대한 열로 변환하는 데 사용할 수 있습니다.

어떻게 해결할 수 있습니까?

Answer 1

하나의 옵션은 ,

library(qdapTools) 
cbind(mydf, mtabulate(strsplit(mydf$Info, ", "))) 
#Age      Info Target bad fun go good happy joy nice NULL okay sad wild 
#1 99   good, bad, sad Boy 1 0 0 1  0 0 0 0 0 1 0 
#2 10   nice, happy, joy Girl 0 0 0 0  1 1 1 0 0 0 0 
#3 40      NULL Boy 0 0 0 0  0 0 0 1 0 0 0 
#4 15 okay, nice, fun, wild, go Boy 0 1 1 0  0 0 1 0 1 0 1 

하여 '정보'열을 분할 한 후 qdapTools에서 mtabulate입니다