Estoy intentando graficar el objeto resultante de ajustar un modelo de árbol de decisión, pero me encuentro con varios problemas:
tree_model<- tree(High~ ShelveLoc + Price + Advertising + Income + Age + CompPrice,
data = data,na.action = "na.exclude", control = tree.control(nobs = 400, minsize = 1))
Tras ejecutar lo anterior me devuelve el siguiente mensaje:
Warning messages:
1: In tree(High ~ ShelveLoc + Price + Advertising + Income + Age + :
NAs introduced by coercion
2: In tree(High ~ ShelveLoc + Price + Advertising + Income + Age + :
NAs introduced by coercion
Por lo que entiendo del mensaje, creo que algunos valores faltantes puedes estar afectando negativamente al ajuste del modelo, así que he probado con varias opciones en el argumento na.action
, pero siempre aparece el mismo mensaje. Por otro lado he revisado el dataframe y no hay ningún valor faltante, además he modificado los parámetros de tree.control
y sigo sin obtener el gráfico.
Seguidamente intento graficar el modelo:
plot(tree_model)
Pero aparece el siguiente mensaje:
Error in plot.tree(tree_model) : cannot plot singlenode tree
Que por lo que he leído suele ser debido a que mis datos tienen muy poca varianza y esto hace que solo exista un único nodo en mi árbol, pero al ser un ejercicio de clase sé que debería generarse un árbol con varios nodos y probablemente se me esté escapando algo en la función tree()
. Tras revisar el PDF disponible en el CRAN del paquete en cuestión sigo sin saber qué argumento incluir o modificar en la función.
¿Qué debo modificar en mi código para obtener el gráfico que deseo?
tree()
.High
sea unfactor
o al menos que sea una variable numérica, si no lo es conviertela y vuelve a probar. En la ayuda de la función te da una pista:The left-hand-side (response) should be either a numerical vector when a regression tree will be fitted or a factor,