1

我有一个数据框,其中包含一组变量的观察结果:

mydata <-  data.frame(Sample = c("A", "B", "C", "D"), 
  V1 = c(25, 27, 18, 29),
  V2 = c(32, 45, 28, 30),
  V3 = c(16, 32, 29, 22),
  V4 = c(27, 29, 28, 32))

我需要根据已存储在另一个数据框中的特定于变量的常量 E 转换每一列中的数据:

e <- data.frame(Var = c("V1", "V3", "V2", "V4"), E = c(2, 1.4, 1.7, 1.8))

我想要一个新的数据框,其中包含mydata基于每个变量的正确常量的数据转换值 in e,其中新值是

=1/E^(value in mydata)

我知道如何使用lapply循环遍历中的每一列mydata,只是不知道如何e根据变量名指定每列的 E 值需要来自 。( 中的值与e中的列的顺序不同mydata,并且在某些情况下, 中会存在未使用的行e,即 E 中不存在的变量的值mydata

如何根据变量名称和 E 在不同数据框中的相应值将数据转换应用于一个数据框的每一列?

4

1 回答 1

2

这就是我的处理方式。我不会遍历列,而是遍历列名:

sapply(colnames(mydata)[-1], function(x) 1/(e$E[e$Var == x]^mydata[,x]))

#                V1           V2           V3           V4
# [1,] 2.980232e-08 4.223131e-08 4.591467e-03 1.281275e-07
# [2,] 7.450581e-09 4.263817e-11 2.108157e-05 3.954553e-08
# [3,] 3.814697e-06 3.527201e-07 5.784782e-05 7.118195e-08
# [4,] 1.862645e-09 1.220485e-07 6.097941e-04 6.780783e-09

如果您正在寻找其他东西,请告诉我。

于 2013-06-13T02:30:49.340 回答