为什么使用 `scale()` 的 `mutate(across(...))` 将 [,1] 添加到列标题？

Question

这似乎太基本了，无法在搜索中找到，但也许我没有在谷歌上使用正确的搜索词。

我想规范化数字列。当我修改该列时，mutate(across(.., scale))我被[,1]添加到标题中。这是为什么？

library(dplyr, warn.conflicts = FALSE)

mtcars_mpg_only <-
  mtcars %>%
  as_tibble() %>%
  select(mpg)

mtcars_mpg_only %>%
  as_tibble() %>%
  mutate(across(mpg, scale))
#> # A tibble: 32 x 1
#>    mpg[,1]
#>      <dbl>
#>  1   0.151
#>  2   0.151
#>  3   0.450
#>  4   0.217
#>  5  -0.231
#>  6  -0.330
#>  7  -0.961
#>  8   0.715
#>  9   0.450
#> 10  -0.148
#> # ... with 22 more rows

但如果我使用不同的函数而不是scale()（例如，log()），则列标题保持原样：

mtcars_mpg_only %>%
  as_tibble() %>%
  mutate(across(mpg, log))
#> # A tibble: 32 x 1
#>      mpg
#>    <dbl>
#>  1  3.04
#>  2  3.04
#>  3  3.13
#>  4  3.06
#>  5  2.93
#>  6  2.90
#>  7  2.66
#>  8  3.19
#>  9  3.13
#> 10  2.95
#> # ... with 22 more rows

我知道如何[,1]在事后删除/重命名，但我的问题是为什么要创建它？

Answer 1

这是因为scale返回一个矩阵，而log返回一个普通向量。mpg[, 1] 实际上是 data.frame 中的一个矩阵。请参阅 ?scale 了解其值的定义。

class(scale(mtcars$mpg))
## [1] "matrix" "array" 

class(log(mtcars$mpg))
## [1] "numeric"

将矩阵转换为普通向量以避免这种情况，例如

mtcars_mpg_only %>%
  mutate(across(mpg, ~ c(scale(.))))

# or extracting first column
mtcars_mpg_only %>%
  mutate(across(mpg, ~ scale(.)[, 1]))

# or normalizing using mean and sd
mtcars_mpg_only %>%
  mutate(across(mpg, ~ (. - mean(.)) / sd(.)))

# or without across
mtcars_mpg_only %>%
  mutate(mpg = c(scale(mpg)))

# or using base R
mtcars_mpg_only |>
  transform(mpg = c(scale(mpg)))