子集并从R中的数据帧中提取信息

Question

我在 R 中有一个名为 data 的裸数据集，其中包含 n 个变量，即 X1,X2,...,Xn。在我的代码的某个时刻，我从另一个过程中找到了一个名为 subs 的子集，它给出了以下输出

        X1       X7       X8       X9      X11     
1    440.8065 466.9053 60.03588 374.8059 167.2424  

请注意，Xi 值与 data 中的值不同，每个 Xi 都是标题，而不是 R 中的一行。 对于每个Xi，都保存在名为VarXi（例如VarX1, VarX2,..., VarXn）的环境数据帧中

      variable   coefficient
1  (Intercept) -2.111150e+03
2           X3  2.797371e-05
3           X5  5.653977e-01
4           X6  5.660470e+00
5           X7  1.003460e+01
6           X8  2.403519e+01
7          X10  3.931899e-01
8          X12  2.062661e+00
9          X13  5.430814e+00
10         X14  2.433546e-01

我想首先创建一个新的数据集newdata，它只包含subs 中显示的变量，其次（也是最重要的）只为subs 中显示的那些VarXi 仅打印@987654336 @ 和第一列的对应变量，例如基于上面的例子

  variable   coefficient

1      X6    5.660470

我如何在 R 中做这些事情？

Answer 1

如果没有可重现的例子，很难说，但这是我对你的最佳猜测：

# get a list of the "sVarXi" data frames:
svar_list = mget(ls(pattern = "svarX[0-9]+"))

# narrow down to just the ones in subs
svar_list_in_subs = svar_list[paste0("sVar", names(subs))]

# extract maximum row
max_coeffs = lapply(svar_list_in_subs, function(x) {
  x = x[x$variable != "(Intercept)", ]
  x[which.max(abs(x$coefficient)), ]
})

我在这里单独保存svar_list_in_subs 只是为了让步骤清晰 - 但它是重复的和不必要的。获得sVar 列表后，您可以直接跳转到：

max_coeffs_in_subs = lapply(svar_list[paste0("sVar", names(subs))], function(x) {
  x = x[x$variable != "(Intercept)", ]
  x[which.max(abs(x$coefficient)), ]
})