Jak wspomniano już w poprzednich odpowiedziach, losowy las dla drzew regresji / regresji nie generuje oczekiwanych prognoz dla punktów danych poza zakresem danych treningowych, ponieważ nie mogą one ekstrapolować (dobrze). Drzewo regresji składa się z hierarchii węzłów, gdzie każdy węzeł określa test, który ma zostać przeprowadzony na wartości atrybutu, a każdy liść (terminal) węzła określa regułę obliczania przewidywanego wyniku. W twoim przypadku obserwacja testowa przepływa przez drzewa do węzłów liści stwierdzając np. „Jeśli x> 335, to y = 15”, które są następnie uśredniane przez losowy las.
Oto skrypt R wizualizujący sytuację z losową regresją leśną i liniową. W przypadku losowego lasu prognozy są stałe dla testowania punktów danych, które są albo poniżej najniższej wartości x danych treningowych, albo powyżej najwyższej wartości treningowej wartości x.
library(datasets)
library(randomForest)
library(ggplot2)
library(ggthemes)
# Import mtcars (Motor Trend Car Road Tests) dataset
data(mtcars)
# Define training data
train_data = data.frame(
x = mtcars$hp, # Gross horsepower
y = mtcars$qsec) # 1/4 mile time
# Train random forest model for regression
random_forest <- randomForest(x = matrix(train_data$x),
y = matrix(train_data$y), ntree = 20)
# Train linear regression model using ordinary least squares (OLS) estimator
linear_regr <- lm(y ~ x, train_data)
# Create testing data
test_data = data.frame(x = seq(0, 400))
# Predict targets for testing data points
test_data$y_predicted_rf <- predict(random_forest, matrix(test_data$x))
test_data$y_predicted_linreg <- predict(linear_regr, test_data)
# Visualize
ggplot2::ggplot() +
# Training data points
ggplot2::geom_point(data = train_data, size = 2,
ggplot2::aes(x = x, y = y, color = "Training data")) +
# Random forest predictions
ggplot2::geom_line(data = test_data, size = 2, alpha = 0.7,
ggplot2::aes(x = x, y = y_predicted_rf,
color = "Predicted with random forest")) +
# Linear regression predictions
ggplot2::geom_line(data = test_data, size = 2, alpha = 0.7,
ggplot2::aes(x = x, y = y_predicted_linreg,
color = "Predicted with linear regression")) +
# Hide legend title, change legend location and add axis labels
ggplot2::theme(legend.title = element_blank(),
legend.position = "bottom") + labs(y = "1/4 mile time",
x = "Gross horsepower") +
ggthemes::scale_colour_colorblind()