R 警告消息：数据帧损坏

我试图创建一个数据帧，但下面的代码给出了一条警告消息。有人知道问题出在哪里吗

library(tibble); library(magrittr); library(tidymodels); library(dplyr)

c(28L, 13L, 3L, 2L, 0L, 3L) -> points
c(100L, 91L, 8L, 5L, 13L, 12L) -> hours

tibble(points, hours) -> monthly

linear_reg() %>%
  set_engine("lm") %>%
  fit(points ~ hours, data = monthly) ->
  lm_fit

expand.grid(hours = seq(5, 30, 5)) %>%
  mutate(predicted = predict(lm_fit, .))

#  hours                                    predicted
# 1     5      \033[38;5;246m# A tibble: 6 x 1\033[39m
# 2    10                                        .pred
# 3    15   \033[3m\033[38;5;246m<dbl>\033[39m\033[23m
# 4    20                \033[38;5;250m1\033[39m 0.885
# 5    25                \033[38;5;250m2\033[39m 1.98 
# 6    30                \033[38;5;250m3\033[39m 3.08 

库（tibble）；图书馆（magrittr）；图书馆（tidymodels）；图书馆（dplyr）
c（28L、13L、3L、2L、0L、3L）->点数
c（100L、91L、8L、5L、13L、12L）->小时
TIBLE（积分、小时）->每月
线性_reg（）%>%
设置引擎（“lm”）%%>%
拟合（点数~小时数，数据=每月）->
lm_fit
expand.grid（小时数=seq（5,30,5））%>%
突变（预测=预测（lm_拟合，）
#预测小时数
#1 5\033[38；5；246m#A tible:6 x 1\033[39米
#2.10.pred
#3 15\033[3m\033[38；5；246m\033[39m\033[23m
#420033[38；5；250m1\033[39m0.885
#525\033[38；5；250m2\033[39m 1.98
#6 30\033[38；5；250m3\033[39m 3.08

在

lm_-fit

上调用的

predict（）

方法返回一个TIBLE/数据帧。我想您只需要该数据帧的预测列

.pred

。您可以通过标准子集设置获得：

expand.grid(hours = seq(5, 30, 5)) %>%
    mutate(predicted = predict(lm_fit, .)$.pred)

  hours predicted
1     5  0.885311
2    10  1.983003
3    15  3.080695
4    20  4.178386
5    25  5.276078
6    30  6.373770