如何生成摘要table?

How to produce summary table?

假设我有以下 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

非常感谢任何帮助!

这是base R中的一个选项。用 ; 后跟零个或多个空格 (\s*) 拆分第一列后,得到 listlengths 并使用 [=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))