我正在尝试创建一个脚本,它将创建一个基于不同值的真值表。
示例
关于这一点的真值表是
我对r比较陌生,我知道它在数据分析方面有很多很棒的功能,但这会有很大的帮助。正在考虑使用稀疏矩阵实现一些潜在的东西,但我不知道。
发布于 2018-06-02 04:16:37
下一次,请在你的问题中包含数据,并避免放置图像。
可能是使用data.table
数据:
library('data.table')
df1 <- data.table(Name = c('Bob', 'Bob', 'Luke'),
Location = c('Texas', 'Ohio', 'Utah'),
Pet = c('Dog', 'Cat', 'Dog'),
Coder = c(1,0,1),
stringsAsFactors = FALSE )
代码:
df1[, id := .I ] # assign unique id, and later it will be removed
select_cols <- c('Name', 'Location', 'Pet') # selected columns
dcast( data = melt(df1, measure.vars = select_cols ),
formula = "id + Coder ~ value",
fun.aggregate = length,
fill = 0 )[, id := NULL ][]
# Coder Bob Cat Dog Luke Ohio Texas Utah
# 1: 1 1 0 1 0 0 1 0
# 2: 0 1 1 0 0 1 0 0
# 3: 1 0 0 1 1 0 0 1
https://stackoverflow.com/questions/50649818
复制相似问题