如何将数据框的正元素除以特定的数据框列，将负元素除以另一列？

# 创建示例数据框
df <- data.frame(A = c(1, -2, 3), B = c(4, -5, 6), C = c(7, -8, 9))

# 选择要操作的数据框列和特定的数据框列
column_to_divide <- "A"
specific_column <- "B"

# 将正元素除以特定的数据框列
df[df[, column_to_divide] > 0, specific_column] <- df[df[, column_to_divide] > 0, specific_column] / df[df[, column_to_divide] > 0, column_to_divide]
df[df[, column_to_divide] < 0, specific_column] <- df[df[, column_to_divide] < 0, specific_column] / df[df[, column_to_divide] < 0, column_to_divide]

# 打印修改后的数据框
print(df)