尝试使用“增益”功能进行编织时出现RMarkdown错误

Question

在尝试编织文档时，我始终遇到以下错误。尝试制作电梯图表。它可以在RStudio中使用，但是在尝试编织时会出现错误。我有（actual_data，预测，组=长度（预测））。似乎是什么问题？有什么办法可以解决这个问题？能够提供所需的任何信息。

    Error in as.data.frame.default(x) : 
      cannot coerce class '"gains"' to a data.frame

谢谢！

--- output: word_document
knitr::opts_chunk$set(echo = TRUE)
R Markdown
library(readr)
Mod_4_banks <- read_csv("see attached image")

dim(Mod_4_banks)
head(Mod_4_banks, 20)
sapply(Mod_4_banks, mean)
colnames(Mod_4_banks)
sapply(Mod_4_banks, levels)
sum(is.na(Mod_4_banks))
Mod_4_banks <- Mod_4_banks[,-1]
Bank_log_reg <- glm(`Financial Condition` ~., data = Mod_4_banks, family = "binomial" )
options(scipen=999)
summary(Bank_log_reg)
library(gains)
library(caret)
pred_mod <- predict(Bank_log_reg, Mod_4_banks, type = "response")
sample_row <- sample(c(1:20), size = 5)
data.frame(actual = Mod_4_banks$`Financial Condition`[sample_row], predicted = pred_mod[sample_row])
gain.df <- gains(Mod_4_banks$`Financial Condition`, pred_mod, groups = length(pred_mod))

View(gain.df)

plot(c(0,gain.df$cume.pct.of.total*sum(Mod_4_banks$`Financial Condition`))~c(0,gain.df$cume.obs), xlab = "Number of Cases", ylab = "Cummulative", main = "Lift Chart of Financial Condition", type="l")

lines(c(0,sum(Mod_4_banks$`Financial Condition`))~c(0,dim(Mod_4_banks)[1]), lty=2)
```