遍歷向量並將該值用作數據幀的列

Question

我正在使用此for循環來標准化列中的數據。 這里m_sel_cols是帶有列名的向量。

for(i in m_sel_cols)
    {
        cal <- work_data1$i
        cal <- ((cal-mean(cal))/sd(cal))
    }

假設我的列名是“ A”，那么您可以這樣做：

  ...
        cal <- work_data1$A
  ...

我的數據集中的列數非常大，我想將其轉換回數據幀，我知道可以使用cbind()但是如何在for循環中使用？

Answer 1

您可以使用sapply在列中“循環”。

xy <- data.frame(a = 1:3, b = 4:6, c = 7:9)
sapply(xy, FUN = function(x) (x - mean(x))/sd(x))

      a  b  c
[1,] -1 -1 -1
[2,]  0  0  0
[3,]  1  1  1

要么

> scale(xy)
      a  b  c
[1,] -1 -1 -1
[2,]  0  0  0
[3,]  1  1  1
attr(,"scaled:center")
a b c 
2 5 8 
attr(,"scaled:scale")
a b c 
1 1 1 

Answer 2

我們可以用tidyverse做到這tidyverse

library(tidyverse)
xy %>%
     mutate_all(scale)
#   a  b  c
#1 -1 -1 -1
#2  0  0  0
#3  1  1  1

數據

xy <- data.frame(a = 1:3, b = 4:6, c = 7:9)