응답을 여러 열로 분할 (숫자로)

Question

CSV 파일에 저장된 설문 결과 (범주 형)를 동일한 셀 내에 여러 응답으로했습니다. I는 (가변 수) 나

for(t in unique(df$response)) 
{df[paste("response",t,sep="")] <- ifelse(df$response==t,1,0)} 

결과는 여기 아래 코드 시도

response <-c(1,2,3,123) 
df <-data.frame(response) 

같이

데이터 보이는 분리 컬럼으로 분할 싶지만 그것이 만들어 내가 데이터를 다음과 같이

012을보고 싶습니다 (123)

head(df) 
response response1 response2 response3 response123 
1  1   1   0   0   0 
2  2   0   1   0   0 
3  3   0   0   1   0 
4  123   0   0   0   1 

새로운 열 3,516,

response response1 response2 response3 
1  1   1   0   0 
2  2   0   1   0 
3  3   0   0   1 
4  123   1   1   1 

것은

이

Answer 1

우리는

는

df1 <- cbind(df, +(sapply(1:3, grepl, x = df$response))) 
colnames(df1)[-1] <- paste0("response", colnames(df1)[-1]) 
df1 
# response response1 response2 response3 
#1  1   1   0   0 
#2  2   0   1   0 
#3  3   0   0   1 
#4  123   1   1   1