假设该文档的文件名是test.txt，数据总共有n行，我们用来存放该数据的变量是rawdata 和 data：
# 读取数据
rawdata <- vector(mode = "list", length = n)
for (i in seq_len(n)) {
rawdata[[n]] <- scan("test.txt", sep = ";", what = character(0), skip=i-1, nlines = 1)
}
# 清洗数据
rawdata <- lapply(rawdata, factor, levels = c("A", "B", "C", "D"))
data <- t(sapply(rawdata, table))
data
A B C D
[1,] 0 1 1 1
[2,] 1 0 0 1
[3,] 1 0 1 1
[4,] 1 1 1 1
扫码加好友，拉您进群
全部版块
我的主页
收藏
