R 将一列中的所有值除以单独数据框中的值（colnames匹配）

我需要将第一个数据帧给定列中的每个值除以第二个数据帧对应列名称中的值。例如，我需要将

demand\u copy

的

0

列中的每个值除以25.5，

1

列中的每个值除以13.0，以此类推，并获得与第一个数据帧结构相同的输出

在R怎么做

> head(demand_copy) 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 1 25 9 14 3 10 10 28 175 406 230 155 151 202 167 179 185 275 298 280 185 110 84 93 51 2 36 17 9 3 2 7 32 88 110 131 89 125 149 165 161 147 178 309 339 201 115 78 67 39 3 10 3 5 10 0 11 15 58 129 110 49 62 62 100 70 73 72 86 116 61 49 37 26 22 4 24 15 10 5 3 4 39 53 108 98 80 118 116 110 135 158 157 196 176 132 118 94 91 102 5 40 45 15 9 16 37 75 205 497 527 362 287 316 353 359 309 365 653 598 468 328 242 168 102 6 0 0 1 2 0 0 11 56 26 12 21 6 27 15 18 5 14 19 25 6 4 0 1 0 >总经理（索取副本） 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 1 25 9 14 3 10 10 28 175 406 230 155 151 202 167 179 185 275 298 280 185 110 84 93 51 2 36 17 9 3 2 7 32 88 110 131 89 125 149 165 161 147 178 309 339 201 115 78 67 39 3 10 3 5 10 0 11 15 58 129 110 49 62 62 100 70 73 72 86 116 61 49 37 26 22 4 24 15 10 5 3 4 39 53 108 98 80 118 116 110 135 158 157 196 176 132 118 94 91 102 5 40 45 15 9 16 37 75 205 497 527 362 287 316 353 359 309 365 653 598 468 328 242 168 102 6 0 0 1 2 0 0 11 56 26 12 21 6 27 15 18 5 14 19 25 6 4 0 1 0 >中间带 中间带 0 25.5 1 13.0 2 8.0 3 4.0 4 4.0 5 10.0 6 38.5 7 106.5 8 205.5 9 164.0 10 111.5 11 130.5 12 160.0 13 164.5 14 170.0 15 183.0 16 202.0 17 282.0 18 256.5 19 178.0 20 109.0 21 80.0 22 60.5 23 41.0 你可以用

t(t(demand_copy) / medians[, 1])

或

请注意，第一种方法返回一个矩阵，而第二种方法返回一个数据帧

我还建议将

中间值

作为向量，而不是作为具有单个列的数据帧。然后您可以使用

中位数

而不是上面两行中的

中位数[，1]

。

您可以使用

t(t(demand_copy) / medians[, 1])

或

请注意，第一种方法返回一个矩阵，而第二种方法返回一个数据帧

我还建议将

中间值

作为向量，而不是作为具有单个列的数据帧。然后您可以在上面两行中使用

medians

而不是

medians[，1]

sweep(demand_copy, 2, medians[, 1], "/")