如何在R语言中根据列均值符号反转DataFrame列内数值符号

需求 #

处理8行4列的DataFrame，规则如下：

• 列均值小于0时，反转该列所有数值的符号
• 列均值大于0时，保持数据不变
• 代码需适配后续更大规模的数据集

原始数据 #

A  -0.4351361  0.3970448 -0.21396417 -0.068941849 
B  -0.3033722 -0.1301683  0.64423959  0.252927381
C  -0.2878781 -0.4148322 -0.32357299 -0.384015728 
D  -0.4800799 -0.1504586  0.34576550  0.008384542 
E  -0.4099036 -0.3702164 -0.02610686 -0.288936721 
F  -0.2903198  0.2980555 -0.01366816  0.467834269 
G  -0.3665078  0.4888855 -0.25140794 -0.137594432 
H  -0.1365168 -0.4071632 -0.50084637  0.680037368 

已完成的前置步骤 #

1. 计算各列均值：

-0.338714289 -0.036106595 -0.042445174  0.066211854

2. 生成符号控制向量（-1表示反转，1表示保留）：

colMeantest = ifelse(Data.means < 0, -1, 1)
colMeantest.M = as.matrix(colMeantest)
print(colMeantest.M)

输出：

[,1]
1   -1
2   -1
3   -1
4    1 

3. 转置得到行向量：

colMeantest.Mt = t(colMeantest.M)
print(colMeantest.Mt)

输出：

[1,]  -1  -1  -1   1

实现方案 #

方法1：向量广播运算（推荐，简洁高效） #

R中DataFrame与向量做运算时会自动按列广播，无需额外处理矩阵维度，直接相乘即可完成列级别的符号调整：

# 假设你的DataFrame名为df
df_adjusted <- df * colMeantest

方法2：矩阵乘法实现 #

若需用矩阵乘法，需将符号向量转为对角矩阵，再与DataFrame的矩阵形式相乘：

# 将DataFrame转为矩阵
df_matrix <- as.matrix(df)
# 生成对角矩阵，确保每列对应正确的符号系数
sign_matrix <- diag(colMeantest)
# 执行矩阵乘法
df_adjusted_matrix <- df_matrix %*% sign_matrix
# 可选：转回DataFrame格式
df_adjusted <- as.data.frame(df_adjusted_matrix)

预期结果 #

调整后的数据如下：

A  0.4351361 -0.3970448   0.21396417 -0.068941849 
B  0.3033722  0.1301683  -0.64423959  0.252927381
C  0.2878781  0.4148322   0.32357299 -0.384015728 
D  0.4800799  0.1504586  -0.34576550  0.008384542 
E  0.4099036  0.3702164   0.02610686 -0.288936721 
F  0.2903198 -0.2980555   0.01366816  0.467834269 
G  0.3665078 -0.4888855   0.25140794 -0.137594432 
H  0.1365168  0.4071632   0.50084637  0.680037368 

内容的提问来源于stack exchange，提问作者tlkcfa