2017-08-09 116 views
4

partykit包給出了決策樹的良好表示形式。我遇到的唯一問題是標籤很長,然後重疊。是否可以移動這些標籤以防止它(請參閱下圖中的藍色箭頭)?更改R方繪圖中的標籤位置(決策/迴歸樹)

library("rpart") 
library("partykit") 
rp <- rpart(Kyphosis ~ Age + Number + Start, data = kyphosis) 
party_rp <- as.party(rp) 

plot(party_rp) 

enter image description here

回答

2

繪製邊緣默認面板功能標籤edge_simple實現幾個理由策略:標籤可以"alternate"橫跨邊緣,是"decreasing""increasing",或"equal"。然而,這些理由策略僅從最小標籤長度justmin開始使用,其默認爲Inf(即,沒有理由)。有關更多詳細信息,請參閱?edge_simple

您想看看一個例子,其中理由是"increasing"和總是施加(即,justmin = 1):

plot(party_rp, 
    ep_args = list(justmin = 1, just = "increasing")) 

edge_simple