R을 사용하여 한 열에 대해 동일한 값을 포함하지만 다른 열에 대해 다른 열을 하나의 단일 행으로 변환하는 방법? 다음과 같이

Question

나는 데이터가 :

User_ID Google Facebook Linkedin Monday Tuesday Wednesday 
A  1  1   1   1  1  1 
B  0  1   1   0  1  1 

열 지금은 각 사용자에 대해 나타나는 횟수를 나타냅니다

User_Id  Website  Day 
A  Google Monday 
A  Facebook Tuesday 
A  Linkedin Wednesday 
B  Facebook Tuesday 
B  Linkedin Wednesday 

나는 이런 식으로 뭔가를 달성하고 싶다. R에서 어떻게 할 수 있습니까?

Answer 1

우리는 주파수가 table으로 계산하고 data.frame (as.data.frame.matrix)로 변환 수 (rep(df1[,1], 2))이 경우 2, 즉 2와 data.frame (unlist(df1[-1])의 3 열을 unlist 및 다른 컬럼의 숫자로 1 열을 복제 . 우리는 패키지 솔루션을 필요로하는 경우

as.data.frame.matrix(table(rep(df1[,1],2), unlist(df1[-1]))) 
# Facebook Google Linkedin Monday Tuesday Wednesday 
#A  1  1  1  1  1   1 
#B  1  0  1  0  1   1 

---

또 다른 옵션은 dplyr/tidyr입니다. gather (tidyr)을 사용하여 'wide'에서 'long "형식으로 바꾸고 주파수를 count 및 spread으로 되돌립니다.

library(dplyr) 
library(tidyr) 
df1 %>% 
    gather(Var, Val, -User_Id) %>% 
    count(User_Id, Val) %>% 
    spread(Val, n, fill = 0) 
# User_Id Facebook Google Linkedin Monday Tuesday Wednesday 
# <chr> <dbl> <dbl> <dbl> <dbl> <dbl>  <dbl> 
#1  A  1  1  1  1  1   1 
#2  B  1  0  1  0  1   1 

Answer 2

기본적으로 첫번째 User_Id에 의해 긴 형식으로 모든 열을 변환 한 후 제안 @akrun에 대한 User_Id에 따라 다시

library(reshape2) 
recast(df, User_Id ~ value, id.var = "User_Id", length) 
# User_Id Facebook Google Linkedin Monday Tuesday Wednesday 
# 1  A  1  1  1  1  1   1 
# 2  B  1  0  1  0  1   1