【发布时间】:2017-03-29 15:55:43
【问题描述】:
【问题讨论】:
标签: r analytics igraph bayesian-networks
【问题讨论】:
标签: r analytics igraph bayesian-networks
我们可以使用base R 做到这一点,首先将列转换为factor,并将levels 指定为两列中的unique 元素,然后只需执行table
df1[] <- lapply(df1, factor, levels = un1)
m1 <- table(df1[2:1])
class(m1) <- "matrix"
names(dimnames(m1)) <- NULL
m1
# angle traingle rightangle similarangle pythogoreous end
#angle 0 0 0 0 0 0
#traingle 1 0 0 0 0 0
#rightangle 0 1 0 0 0 0
#similarangle 0 1 1 0 0 0
#pythogoreous 0 0 0 1 0 0
#end 0 0 0 0 1 0
df1 <- structure(list(children.startnode = c("angle", "traingle", "traingle",
"rightangle", "similarangle", "pythogoreous"), children.endnode = c("traingle",
"rightangle", "similarangle", "similarangle", "pythogoreous",
"end")), .Names = c("children.startnode", "children.endnode"), row.names = c(NA,
-6L), class = "data.frame")
【讨论】: