如何生成摘要table？

Question

假设我有以下 table 名为 df。

A; B
A; B
B; C; D
C; D; E; F

行中每个元素的权重计算如下：wt[i] <- 1/lengths(str_split(df[1],";"))。 理想情况下，上述 table 每个元素的权重如下所示。

0.5*A; 0.5*B
0.5*A; 0.5*B
0.333*B; 0.333*C; 0.333*D
0.25*C; 0.25*D; 0.25*E; 0.25*F

所以，我的意图是table，其中频率是权重之和。我需要的输出如下：

A     B     C     D      E     F
1  1.333 0.583  0.583  0.25  0.25

非常感谢任何帮助！

Answer 1

这是base R中的一个选项。用 ; 后跟零个或多个空格 (\s*) 拆分第一列后，得到 list 的 lengths 并使用 [=19 找到 sum =]

lst1 <- strsplit(df[[1]], ";\s*")
l1 <- lengths(lst1)
tapply(rep(1/l1, l1), unlist(lst1), sum)
#        A         B         C         D         E         F 
#1.0000000 1.3333333 0.5833333 0.5833333 0.2500000 0.2500000

或者在tidyverse中，我们可以使用separate_rows拆分列，然后按summarise

进行分组

library(tibble)
library(dplyr)
library(tidyr)
df %>%
    mutate(rn = row_number()) %>%
    separate_rows(v1) %>%
    add_count(rn) %>% 
    mutate(n = 1/n) %>% 
    group_by(v1) %>% 
    summarise(n = sum(n))
# A tibble: 6 x 2
#  v1        n
#  <chr> <dbl>
#1 A     1    
#2 B     1.33 
#3 C     0.583
#4 D     0.583
#5 E     0.25 
#6 F     0.25

数据

df <- structure(list(v1 = c("A; B", "A; B", "B; C; D", "C; D; E; F"
)), class = "data.frame", row.names = c(NA, -4L))

如何生成摘要table？

How to produce summary table?

r

stringr

tm

数据