按第一行中的值规范化 dplyr 中的指定列

Question

我有一个包含四行、23 个数字列和一个文本列的数据框。我正在尝试通过减去第一行中的值来标准化所有数字列。

我已经尝试让它与 mutate_at 一起工作，但我找不到让它工作的好方法。

我通过转换为矩阵并转换回小标题来使其工作：

## First, did some preprocessing to get out the group I want
totalNKFoldChange <- filter(signalingFrame,
                            Population == "Total NK") %>% ungroup

totalNKFoldChange_mat <- select(totalNKFoldChange, signalingCols) %>%
    as.matrix()

normedNKFoldChange <- sweep(totalNKFoldChange_mat,
                            2, totalNKFoldChange_mat[1,])

normedNKFoldChange %<>% cbind(Timepoint = 
                              levels(totalNKFoldChange$Timepoint)) %>% 
    as.tibble %>%
    mutate(Timepoint = factor(Timepoint,
                              levels = levels(totalNKFoldChange$Timepoint)))

我很确定有一个更好的方法可以完全是 dplyr 原生的。有人有提示吗？谢谢！！

Answer 1

如果我们想normalize all the numeric columns by subtracting the value in the first row，请使用mutate_if

library(dplyr)
df1 %>%
     mutate_if(is.numeric, list(~ .- first(.)))