Question

我的总价值为x = $ 504，我需要根据另一列中的价值量度对该值进行除法。

手动能够完成此操作，但是我正在寻找一个公式来帮助实现此过程的自动化（在Excel，Sheets或R中）。我希望调整X（或在此特定示例中为B8）以相应地分配和填充$列，而不必编辑$列下的第一个单元格以获取X的总数。

server <- function(input, output) {

  output$table <- DT::renderDataTable({

    # Can't use both visible = FALSE and rownames = FALSE

    datatable(x,  rownames=F,
              options = list(
                columnDefs = list(list(targets = c(3, 4), visible = FALSE) # THIS
              )
             ))  %>% # OR THIS
      formatStyle(
        columns = c('Calls', 'Emails'), 
        valueColumns = c('Calls_goal', 'Emails_goal'), 
        color = styleEqual(c(1, 0), c("red", "black"))
      ) 

  })
}

现在在工作表中，我将B2作为要编辑的以帮助匹配最终金额的列。希望我已经明确表示要更改总数以“填充”该列。

该表对我所需要的东西很现实，因为VALUE 6的价值是VALUE 1的6倍，而VALUE 5则是VALUE 1的5倍，依此类推。

Answer 1

您需要将每个像元乘以VALUE除以所有VALUE的总和，以获得正确的缩放数字。这是R中的示例：

library(tidyverse)
tbl <- tibble(value = 1:6)
x <- 504
tbl %>%
  mutate(dollar = value * x / sum(value))
#> # A tibble: 6 x 2
#>   value dollar
#>   <int>  <dbl>
#> 1     1     24
#> 2     2     48
#> 3     3     72
#> 4     4     96
#> 5     5    120
#> 6     6    144

^{由reprex package（v0.2.1）于2019-02-25创建}

Answer 2

（Excel解决方案）

假设您希望这些值位于C列中

在C2中输入以下公式：

=B2/B$8*C$8

然后填充

然后在C8中键入所需的任何值

Answer 3

一些简单的算术应该提供解决方案。在B2中尝试一下并填写。

=504/SUM(A$2:$A7)*A2

如何根据不同的值范围公平地划分总值？

3 个答案: