在学员答疑群里看到这样一条提问：
提问
对于这种提问，我只想给出一张深藏已久的图作为回复。
警告和报错
在「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语言报错最多的人
网友评论