如何使用R中的data.tree包繪製FP-Tree

Question

如果data <- data.frame(a=c(1,1,2),b=c(2,4,1))。如果每行的數據幀表示fp樹的一個分支。如何用以下示意圖表示enter image description here。

Answer 1

找到使用data.tree庫的解決方案。花時間找到解決方案。解析第一行1,2時創建一個分支。當第二行被解析並且創建分支時，它用來覆蓋前一個分支並僅保留分支1,4。通過檢查節點是否已經具有給定名稱的孩子克服了這個問題，如果沒有創建新的引用現有節點。以下是代碼。 `

rootNode <- Node$new("Root") 

for(i in 1:nrow(data)){ 
    tmp<-rootNode 
    for(j in 1:ncol(data)){ 

    if(is.null(Navigate(tmp, c(as.character(data[i,j]))))){ 
     node <- tmp$AddChild(data[i,j]) 
     tmp <- node 
    } 
    else{ 
     tmp <- Navigate(tmp, c(as.character(data[i,j]))) 
    } 
    } 

} 

plot(rootNode) 

`

測試其他測試案例和它的正常工作。

data <- data.frame(a=c(1,1,2,2),b=c(1,2,4,3),c=c(2,2,2,2),d=c(2,3,3,4))

Answer 2

標準的方式來做到這一點是：

data <- data.frame(a=c(1,1,2,2),b=c(1,2,4,3),c=c(2,2,2,2),d=c(2,3,3,4)) 
data$pathString <- paste("0", data$a, data$b, data$c, data$d, sep = "/") 
tree <- as.Node(data) 

請務必閱讀文檔，如https://cran.r-project.org/package=data.tree/vignettes/data.tree.html#create-a-tree-from-a-data.frame