如何让 readxl::read_xls 正确读取此数据集的第一列？

Question

readxl::read_xls没有正确读取第一列：

download.file("http://www.econ.upf.edu/~michael/bioenv.xls", "~/Downloads/bioenv.xls")
head(readxl::read_xls("~/Downloads/bioenv.xls",
  col_names = c("s", "a", "b", "c", "d", "e", "Pollution", "Depth", "Temperature", "blank", "Sediment"),
  skip = 1))
#> # A tibble: 6 × 11
#>   s         a     b     c     d     e Pollution Depth Temperature blank Sediment
#>   <chr> <dbl> <dbl> <dbl> <dbl> <dbl>     <dbl> <dbl>       <dbl> <lgl> <chr>   
#> 1 2.79…     0     2     9    14     2       4.8    72         3.5 NA    S       
#> 2 5.40…    26     4    13    11     0       2.8    75         2.5 NA    C       
#> 3 8.19…     0    10     9     8     0       5.4    59         2.7 NA    C       
#> 4 3.89…     0     0    15     3     0       8.2    64         2.9 NA    S       
#> 5 2.60…    13     5     3    10     7       3.9    61         3.1 NA    C       
#> 6 4.59…    31    21    13    16     5       2.6    94         3.5 NA    G

^{由reprex 包(v2.0.1) 于 2021 年 10 月 18 日创建}

Excel 文件中的前几行如下所示：