「Debug R」有些你认为的报错不是报错(error)，是警告

在学员答疑群里看到这样一条提问：

提问

对于这种提问，我只想给出一张深藏已久的图作为回复。

警告和报错

在「Debug R」报错"unable to find an inherited method for function"是如何产生的文章中，我提到一个好的搜索引擎是解决问题的重要因素，于是他也在提问中也提到自己用了谷歌。

虽然搜索引擎能够帮助我们处理大部分问题，相当于人的外脑，但是有一个功能是搜索引擎还无法做到，就是“思考”。他这个不算报错的“报错”就需要一定的思考，让我们先对警告信息进行翻译，

警告信息: 在tibble设置行名已经弃用(deprecated)

这里的关键字是弃用(deprecated), 在软件迭代过程中，作者会慢慢把一些功能取消掉，这些被取消的功能在被调用时就会有该提示。从这个信息中，我可以推断出，提出这个问题的人在用tidyverse系列的R包，并且在使用过程中将 原本的 data.frame 数据结构转成了 tibble 数据结构。

现在，让我们来复现这个问题（为了区分输出信息和代码，R代码部分用>提示，运行时需要删掉）

> library(tibble)
> mtcars <- as_tibble(mtcars)
> rownames(mtcars) <- paste0("Car_", seq(1,nrow(mtcars)))

Warning message:
Setting row names on a tibble is deprecated

> head(mtcars, n=2)
# A tibble: 2 x 11
    mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb
  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1    21     6   160   110   3.9  2.62  16.5     0     1     4     4
2    21     6   160   110   3.9  2.88  17.0     0     1     4     4

那么问题如何解决呢？有两种方式, 第一种是将 tibble 用 as.data.frame转回成数据框结构,但我不推荐，因为这违背了tidyverse的设计思想，而且后续你还在调用dplyr的函数还会遇到行名丢失 的问题

> mtcars <- as.data.frame(mtcars)
> rownames(mtcars) <- paste0("Car_", seq(1,nrow(mtcars)))
> head(mtcars, n=2)
      mpg cyl disp  hp drat    wt  qsec vs am gear carb
Car_1  21   6  160 110  3.9 2.620 16.46  0  1    4    4
Car_2  21   6  160 110  3.9 2.875 17.02  0  1    4    4

另一种方法，新增一列存放行名

> library(tibble)
> mtcars <- as_tibble(mtcars)
> mtcars$rownames <- paste0("Car_", seq(1,nrow(mtcars)))
> head(mtcars, n=2)
# A tibble: 2 x 12
    mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb rownames
  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>   
1    21     6   160   110   3.9  2.62  16.5     0     1     4     4 Car_1   
2    21     6   160   110   3.9  2.88  17.0     0     1     4     4 Car_2 

这种解决方法才是tidyverse系列包所喜欢的样子。

hoptop -- 可能是中国在现场处理过R语言报错最多的人