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]