是否可以使用 R 中另一个数据帧的相应值来划分数据帧的每一列?

Question

>我在R中有两个数据帧，如下所示：

#  A  B  C  D
#  4  12 1  6
#  3  5  3  8
#  6  1  9  4

其中 A、B、C、D 是列名， 和

#  id  value
#  A   10
#  B   15
#  C   12
#  D   20

其中 id 和值是列名

我正在尝试编写一个代码，将每列中的所有值除以第二个数据帧中的"值"。 我尝试在这里搜索，使用一些包并手动编写自己的循环，但没有任何效果。我的数据帧有数千列，所以我无法手动键入。请帮忙，谢谢。

Answer 1

在baseR中你可以做

df1 / split(df2$value, names(df1))
#    A          B          C   D
#1 0.4 0.80000000 0.08333333 0.3
#2 0.3 0.33333333 0.25000000 0.4
#3 0.6 0.06666667 0.75000000 0.2

---

split(df2$value, names(df1))返回一个按names(df1)排序的列表：

split(df2$value, names(df1)
#$A
#[1] 10
#
#$B
#[1] 15
#
#$C
#[1] 12
#
#$D
#[1] 20

然后df1按该列表的值逐列除以。

数据

df1 <- structure(list(A = c(4L, 3L, 6L), B = c(12L, 5L, 1L), C = c(1L, 
3L, 9L), D = c(6L, 8L, 4L)), class = "data.frame", row.names = c(NA, 
-3L))
df2 <- structure(list(id = c("A", "B", "C", "D"), value = c(10L, 15L, 
12L, 20L)), class = "data.frame", row.names = c(NA, -4L))

Answer 2

一个dplyr解决方案可能是：

df1 %>%
rowwise() %>%
mutate(across(everything())/df2$value)
A      B      C     D
<dbl>  <dbl>  <dbl> <dbl>
1   0.4 0.8    0.0833   0.3
2   0.3 0.333  0.25     0.4
3   0.6 0.0667 0.75     0.2

Answer 3

这是一个带有deframe的选项

library(tibble)
df1/deframe(df2)[col(df1)]
#   A          B          C   D
#1 0.4 0.80000000 0.08333333 0.3
#2 0.3 0.33333333 0.25000000 0.4
#3 0.6 0.06666667 0.75000000 0.2

或者在base R中使用match

df1/df2$value[match(df2$id, names(df1))][col(df1)]

数据

df1 <- structure(list(A = c(4L, 3L, 6L), B = c(12L, 5L, 1L), C = c(1L, 
3L, 9L), D = c(6L, 8L, 4L)), class = "data.frame", row.names = c(NA, 
-3L))
df2 <- structure(list(id = c("A", "B", "C", "D"), value = c(10L, 15L, 
12L, 20L)), class = "data.frame", row.names = c(NA, -4L))