Как преобразовать дерево классификации участка с gridGraphics

Question

у меня есть дерево классификации (ВОЗ) оценивается с помощью rpart:

library(rpart) 
treefit <- rpart(Kyphosis ~ Age + Number + Start, data = kyphosis, 
      control = rpart.control(cp = 0.001)) 

Я Plot дерева с помощью команды fancyRpartPlot из погремушки:

require(rattle) 
fancyRpartPlot(treefit) 

, а затем я попытаюсь преобразовать график в тот же результат, нарисованный с помощью сетки, используя grid.echo команда пакета gridGraphics.

library(gridGraphics) 
grid.echo() 

Я получаю следующее сообщение об ошибке:

Error in unit(x, default.units) : 'x' and 'units' must have length > 0 

я попробовать другой инструмент для визуализации дерева, пакет rpart.plot:

library(rpart.plot) 
rpart.plot(treefit) 
grid.echo() 

и снова:

Error in unit(x, default.units) : 'x' and 'units' must have length > 0 

я получаю сообщение об ошибке от grid.echo также при попытке преобразовать участки деревьев, порождаемых партии, RWeka и Rgraphviz. Команда, кажется, чтобы иметь возможность конвертировать только сюжеты, порожденные rpart:

plot(treefit) 
text(treefit) 
grid.echo() 
grid.ls() 

graphics-plot-1-xlab-1 
graphics-plot-1-ylab-1 
graphics-plot-1-text-1 
graphics-plot-1-lines-1 
graphics-plot-1-text-2 
graphics-plot-1-text-3 

К сожалению, эти участки являются сырыми и не нравится.

Answer 1

Я не в состоянии обеспечить полное решение, но, по крайней мере некоторые комментарии и альтернативы:

fancyRpartPlot() от rattle и rpart.plot() из rpart.plot не отличаются. Внутри, первый называет последнего (или фактически его родственной функцией prp() из того же пакета). Поэтому неудивительно, что оба они приводят к тем же проблемам. Однако я не уверен, как решить эту ошибку.

Факт, что участки от party (или лучше его преемника partykit) и RWeka не могут быть преобразованы, не так уж удивительно. Они уже нарисованы с grid! Вы также можете использовать partykit инфраструктуру, чтобы привлечь ваше rpart дерево:

library("partykit") 
plot(as.party(treefit))