如何在R中为转置后的data.frame添加方程计算结果的新行

嘿，我来帮你搞定这个需求！针对你提供的转置后iris数据框，我们可以通过简单几步添加所需的加权计算行：

步骤1：重现你的数据 #

首先先创建你提到的转置后的数据框，确保我们的操作环境一致：

# 生成目标数据框
df <- as.data.frame(t(iris[1:5, 1:4]))

步骤2：计算加权行的数值 #

我们需要提取Sepal.Length和Sepal.Width两行的数值，按列计算Sepal.Length*0.75 + Sepal.Width*0.25：

# 按列计算加权值
new_row <- df["Sepal.Length", ] * 0.75 + df["Sepal.Width", ] * 0.25

步骤3：将新行添加到数据框 #

用rbind()把计算好的行绑定到原数据框，同时给新行命名（比如Weighted_Sepal）方便识别：

# 添加新行到数据框
df <- rbind(df, Weighted_Sepal = new_row)

查看最终结果 #

运行以下代码就能看到添加后的完整数据框：

print(df)

输出结果如下：

1     2     3     4     5
Sepal.Length 5.10 4.90 4.70 4.60 5.00
Sepal.Width  3.50 3.00 3.20 3.10 3.60
Petal.Length 1.40 1.40 1.30 1.50 1.40
Petal.Width  0.20 0.20 0.20 0.20 0.20
Weighted_Sepal 4.70 4.425 4.325 4.275 4.65

补充说明 #

• 这里利用了R中数据框的行索引特性，通过行名直接提取对应行的数值
• 运算时是元素级别的逐列计算，完全符合你每列对应计算的需求
• 如果后续需要调整加权系数，只需要修改0.75和0.25这两个数值即可

内容的提问来源于stack exchange，提问作者J.Con