显示/估计分位数回归林中给定分位数的分布

Question

我想根据分位数回归森林预测显示给定四分位数的分布。 我目前使用以下基本代码：

library(datasets)
library(quantregForest)
library(dplyr)
library(ggplot2)

x <- iris %>%
    dplyr::select(
        Petal.Length
    ) %>%
    data.matrix()

y <- iris %>%
    dplyr::select(
        Petal.Width
    ) %>%
    data.matrix()

model <- quantregForest(
    x = x
    , y = y
)

what <- c(
      0
    , 0.1
    , 0.2
    , 0.3
    , 0.4
    , 0.5
    , 0.6
    , 0.7
    , 0.8
    , 0.9
    , 1
)

predictions <- predict(model, data.matrix(iris[1,]), what = what)

df <- as.data.frame(as.table(t(predictions)))
ggplot(df, aes(Freq)) +
    geom_density()

有更好的方法吗？ 谢谢！