r - R：跨列的因子作为虚拟变量

Question

我在 R 工作，我需要解决以下问题。我有以下格式的数据。

Users   Lang_1  Lang_2  Lang_3  Lang_4  Lang_5
user_1  C       SAS     Python  SPSS    Java
user_2  R       C++     Java
user_3  SAS     R       Python  Octave
user_4  iPython SQL     R
user_5  SQL     Java    Dot Net Python

并且需要我的输出格式如下

Users   C   R   SAS   iPython   SQL   C++   Java   Python   DotNet   SPSS   Octave
user_1  1   0   1       0       0     0     1       1       0        1      0
user_2  0   1   0       0       0     1     1       0      0         0      0
user_3  0   1   1       0       0     0     0       1      0         0      1
user_4  0   1   0       1       1     0     0       0      0         0      0
user_5  0   0   0       0       1     0     1       1      1         0      0

试图将上述信息用于分类需求。请帮帮我。

Answer 1

library(reshape)

#读取问题数据框

data <- read.csv(file.choose())

#传递id变量的索引

data_m <- melt(data,id.vars = 1)

#删除值列为空白的观察值

data_m <- data_m[-which(data_m$value==""),]

# 删除变量列

data_m <- data_m[,-2]

#通过以下命令运行所需的输出

cast(data_m,Users~value,length)