有没有更好的（即向量化）方法将列名的一部分放入 R 中数据帧的行中

Question

我在 R 中有一个数据框，它是通过对熔化/铸造操作的结果运行一些统计数据而产生的。我想在包含标称值的数据框中添加一行。该标称值出现在每列的名称中，

df<-as.data.frame(cbind(x=c(1,2,3,4,5),`Var A_100`=c(5,4,3,2,1),`Var B_5`=c(9,8,7,6,5)))
> df
  x Var A_100 Var B_5
1 1         5       9
2 2         4       8
3 3         3       7
4 4         2       6
5 5         1       5

因此，我想创建一个新行，其中在 Var A_100 列中包含“100”，在 Var B_5 中包含“5”。目前这就是我正在做的事情，但我确信一定有一种更好的矢量化方法来做到这一点。

temp_nom<-NULL
for (l in 1:length(names(df))){
 temp_nom[l]<-strsplit(names(df),"_")[[l]][2]
 }
temp_nom
[1] NA    "100" "5"  
df[6,]<-temp_nom
> df
     x Var A_100 Var B_5
1    1         5       9
2    2         4       8
3    3         3       7
4    4         2       6
5    5         1       5
6 <NA>       100       5
rm(temp_nom)

通常我有 16-24 列。有什么想法吗？

Answer 1

您可以通过两种方式（至少）创建 temp_nom：

# strsplit create list so you can sapply on it
sapply(strsplit(names(df),"_"), "[", 2)

# using regular expressions:
sub(".+_|[^_]+", "", names(df))

对于分配，您可以将 temp_nom 转换为数字（在其他情况下，它会与列类型混淆）

df[nrow(df)+1,] <- as.numeric(temp_nom)

当然您可以这样做它在一行中：

df[nrow(df)+1,] <- as.numeric(sapply(strsplit(names(df),"_"), "[", 2))
# or
df[nrow(df)+1,] <- as.numeric(sub(".+_|[^_]+", "", names(df)))