Почему аргумент предиката ggparty дает мне ошибку?

Question

В настоящее время я работаю над деревом решений ggparty. Я хотел бы нарисовать линию, используя «предсказать» в geom_node_plot на моем графике рассеяния. Тем не менее, это всегда дает мне ошибку, когда я пишу предикат = "s10" (s10 является переменной ответа). Мой фрейм данных состоит из полностью числовых c переменных. Ошибка: «Оператор $ недопустим для атомов c векторов».
Я изменил на переменную предиката, но не работал, всегда та же ошибка. Я был бы рад, если кто-нибудь поможет мне. Вы можете найти мой код ниже. Best Behlul

    df <- as.data.frame(df)

    cart_tree <- rpart(s10 ~ elev + soil_temp + pH + CaCO3 + Mg, data = df)

    ggparty(as.party(cart_tree), terminal_space = 0.5) +
    geom_edge() +
    geom_edge_label() +
    geom_node_splitvar() +
    geom_node_plot(gglist = list(
    geom_point(aes(x = elev, y = s10),
           alpha=0.6, pch = 19, size = 1, color = "dodgerblue"),
    theme_bw(base_size = 10)),
    shared_axis_labels = TRUE,
    height = 0.9,
    predict = "s10",
    predict_gpar = list(col = "blue",
                    size = 1.2))