Question

请在下面找到我的示例数据。

我想从名为“开始/结束”的列中将频率和频率标识为“持续时间”。欢迎任何帮助

structure(list(serial = c(19050112, 19050112, 12201018, 17221212, 
19300613, 19050112, 13260115, 16151202, 16310311, 14291209, 12190516, 
15160311, 12201018, 34080603, 17221212, 19300613, 19050112, 15040801, 
13260115, 16151202), `Start/End` = c("t0730_0745 - t0730_0745", 
"t0745_0800 - t0745_0800", "t0800_0815 - t0800_0815", "t0800_0815 - t0800_0815", 
"t0800_0815 - t0800_0815", "t0800_0815 - t0800_0815", "t0800_0815 - t0800_0815", 
"t0800_0815 - t0800_0815", "t0800_0815 - t0800_0815", "t0800_0815 - t0800_0815", 
"t0800_0815 - t0800_0815", "t0800_0815 - t0800_0815", "t0815_0830 - t0815_0830", 
"t0815_0830 - t0815_0830", "t0815_0830 - t0815_0830", "t0815_0830 - t0815_0830", 
"t0815_0830 - t0815_0830", "t0815_0830 - t0815_0830", "t0815_0830 - t0815_0830", 
"t0815_0830 - t0815_0830"), Duration = c(2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), 
    Frequency = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L)), row.names = c(NA, -20L
), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x000001824bb61ef0>)

Answer 1

您可以在" - "上分割字符串，使用table计算其频率并获得最频繁出现的值。

sort(table(unlist(strsplit(df1$`Start/End`, ' - '))), decreasing = TRUE)[1]
#t0800_0815 
#        20

要获得所有相似频率的值，我们可以使用：

tab <- table(unlist(strsplit(df1$`Start/End`, ' - ')))
tab[tab == max(tab)]

Answer 2

我们可以使用data.table方法

library(data.table)
df1[, .(new = unlist(tstrsplit(`Start/End`, " - ")))][, 
          .N, new][N == max(N)]
#          new  N
#1: t0800_0815 20

数据表中最频繁的

2 个答案: