将 dataframe 的每一行中的每个元素除以 R 中的一行中的值

Question

我想通过一个特定列中的值来标准化 dataframe。 换句话说，我想将每一行中的所有值除以特定列中的值。

例如：

dataframe 是

Gene   P1  P2  P3   
A1      6   8   2   
A2      12  6   3   
A3      8   4   8 

我想将每行中的所有值除以 P3 列的该行中的值。

Gene   P1     P2    P3   
A1      6/2   8/2   2/2   
A2      12/3  6/3   3/3   
A3      8/8   4/8   8/8 

新的 dataframe 将是：

Gene   P1  P2  P3       
A1      3   4   1   
A2      4   2   1  
A3      1   .5  1

谢谢您的帮助。

Answer 1

您可以直接划分列 -

cols <- 2:3
df[cols] <- df[cols]/df$P3
df

#  Gene P1  P2 P3
#1   A1  3 4.0  2
#2   A2  4 2.0  3
#3   A3  1 0.5  8

Answer 2

使用 tidyverse 函数：

library(tidyverse)
df1 <- read.table(text = "Gene P1 P2 P3
A1 6 8 2
A2 12 6 3
A3 8 4 8", header = TRUE)

df1 %>% 
  mutate(across(.cols = -c(Gene), .fns = ~ .x / P3))
# Gene P1  P2 P3
#1   A1  3 4.0  1
#2   A2  4 2.0  1
#3   A3  1 0.5  1