trees - rpart r

Nodo Splits and Root del árbol de decisión binario(CART)

Question

Cómo encontrar un nodo dividido y raíz en un árbol de regresión, hice un árbol de regresión desde múltiples vectores ahora tengo que extraer el nodo raíz de una parte de múltiples vectores. Archivo contiene el valor numérico de varios vectores A , B , C , D , E , F , G , H ej. Un vector contiene 4,3,6,7,2,4,5, ... y así sucesivamente, otros B, C, D, E, F, G, H también quieren extraer F (que es un nodo raíz) en mi caso) como un resultado de esta entrada y después de crear un árbol. Gracias. No puedo poner ninguna imagen :(

Esto es lo que hice hasta ahora

log_data <- read.csv(file="C://Users//AASHU//Desktop//CART//syn.csv",
                      header=T, as.is=T)
library(rpart)

fit <- rpart(A ~ B+C+D+E+F+G+H, log_data)
# plot(fit)
plot(fit, compress=TRUE, branch=0)
text(fit, xpd = NA, cex = 0.7)

summary(fit)
Call:
rpart(formula = A ~ B + C + D + E + F + G + H, data = log_data)
n=52 (1 observation deleted due to missingness)

          CP nsplit rel error   xerror      xstd
1 0.09798662      0 1.0000000 1.065250 0.1888568

2 0.09347624      1 0.9020134 1.198999 0.1842667

3 0.03632980      2 0.8085371 1.154558 0.1859743

4 0.02297130      3 0.7722073 1.254874 0.2029423

5 0.01000000      4 0.7492360 1.274024 0.2118272

Node number 1: 52 observations,    complexity param=0.09798662

 mean=4.403846, MSE=1.509985 

 left son=2 (7 obs) right son=3 (45 obs)

 Primary splits:

F < 5.5 to the right, improve=0.09798662, (0 missing)

........... Ahora tengo que extraer el nodo raíz F(F>=5.5) de fit (árbol de regresión) y su división, ¿alguien puede ayudarme ?.

Answer 1

encontrar las etiquetas de ese árbol para que podamos extraer cualquiera de los vectores

cuando el nodo raíz es el carácter (ej.-A)

nodes<-labels(fit, digits=4, minlength=1L, pretty, collapse=TRUE)
root<-substr(nodes[2], 1, 1)

desde la ruta podemos extraer el nodo raíz de un árbol, debajo de uno es mejor extraer el nombre de nodo raíz pasando por su segunda división, que no es más que un nodo raíz.

nodes<-labels(fit, digits=4, minlength=1L, pretty, collapse=TRUE)
path<-path.rpart(fit, node_no, pretty=0, print.it=FALSE) 
path[[2]][1]