对回归模型进行预测时R中的错误

Question

因此，让我们看一下，我有一个数据集，并且我对这两个变量感兴趣以构建线性回归模型。

datospracticaextra <- read_excel("some random path on local")

您可以在此处获取数据。 https://drive.google.com/open?id=1DZYqe1ToYVUpw-oHSR4QxO4WDtdtOk1Q

regression <- lm(datospracticaextra$VENTAS~datospractica$`NÚMERO DE EMPLEADOS`, 
                             data=datospracticaextra)

prediction <- predict(regression , datospracticaextra$`NÚMERO DE EMPLEADOS`)

但是问题出现了，

  

eval（predvars，data，env）中的错误：
    数字“ envir”参数，长度不为一

数据已保存为数据框，我确定。我仍然收到此错误。

我可以尝试什么？有任何想法吗？我已经用相同的警告消息检查了其他帖子，没有一个能够帮助我。