R 中加权 table 函数的问题

Question

我有以下数据集（示例）

head(LK)

      Weight question result
15 0.9633132       x1    Yes
16 1.0327943       x1    Yes
19 1.0002033       x1    Yes
20 0.9438802       x1    Yes
24 0.8067644       x1     No
49 0.8951687       x1     No

当我将 wtd.table 函数用于单向 table 时效果很好

wtd.table(LK$result, weights=LK$Weight)

$x
[1] "No"  "Yes"

$sum.of.weights
[1]  747.2105 1996.9381

但是，当我尝试将其用于双向 table - 我收到此错误：

wtd.table(LK$result, LK$question, weights=LK$Weight)

Error in match.arg(type) : 'arg' must be NULL or a character vector

我看过使用此语法的双向加权 table 的示例，因此不确定问题出在哪里。任何帮助表示赞赏。

Answer 1

如果您只对重量和计数的总和感兴趣，但不需要结果作为“table”，您可以试试这个

library(tidyverse)

data <- tribble(
  ~Weight, ~question, ~result,
  0.9633132,       "x1",    "Yes",
  1.0327943,       "x1",    "Yes",
  1.0002033,       "x1",    "Yes",
  0.9438802,       "x1",    "Yes",
  0.8067644,       "x1",     "No",
  0.8951687,       "x1",     "No"
)
data
#> # A tibble: 6 x 3
#>   Weight question result
#>    <dbl> <chr>    <chr> 
#> 1  0.963 x1       Yes   
#> 2  1.03  x1       Yes   
#> 3  1.00  x1       Yes   
#> 4  0.944 x1       Yes   
#> 5  0.807 x1       No    
#> 6  0.895 x1       No


data %>% 
  group_by(question, result) %>% 
  summarise(n = n(), weight = sum(Weight))
#> `summarise()` has grouped output by 'question'. You can override using the `.groups` argument.
#> # A tibble: 2 x 4
#> # Groups:   question [1]
#>   question result     n weight
#>   <chr>    <chr>  <int>  <dbl>
#> 1 x1       No         2   1.70
#> 2 x1       Yes        4   3.94

^{由 reprex package (v1.0.0)}

于 2021 年 3 月 12 日创建

R 中加权 table 函数的问题

Issue with weighted table function in R

r

weighted