使 readxl::read_excel 仅重命名 R 中的第二个重复列

Question

在 readr 中，read_csv 命令通过重命名第二个重复的列名来处理重复的列名，并使第一个保持不变。请参阅以下示例，取自 https://github.com/tidyverse/readxl/issues/53。

readr::read_csv("x,x,y\n1,2,3\n")
#> Warning: Duplicated column names deduplicated: 'x' => 'x_1' [2]
#> # A tibble: 1 × 3
#>       x   x_1     y
#>   <int> <int> <int>
#> 1     1     2     3

我怎样才能让readxl::read_excel 以同样的方式处理重复的列？

Answer 1

您可以使用.name_repair 参数并将make.unique() 作为函数传递：

library(readxl)

read_excel(path = "temp.xlsx", .name_repair = ~make.unique(.x, sep = "_"))

# A tibble: 1 x 3
      x   x_1     y
  <dbl> <dbl> <dbl>
1     1     2     3