根据范围（变量）列条件并置行

Question

创建具有多个by元素的序列

Answer 1

此问题似乎包含2个问题：

创建具有多个by元素的序列

通过1中生成的序列将特定列分组。

by

现在用于
1。

seqv

by

`seqv <- function(from, to, by){ diff <- to - from if((n <- diff / sum(by)) < 1){ n <- 1 }else{ n <- ceiling(n) } out <- c(from, from + cumsum(rep(by, n))) out[out <= to] }`

用法示例：mi <- trunc(min(pump_packets$PacketTime)) ma <- max(pump_packets$PacketTime) ra <- 1:60 ra[60] <- ra[60] + 5 cuts <- seqv(mi, ma + 5, ra) cuts[c(1:6, (length(cuts) - 5):length(cuts))] [1] 0 1 3 6 10 15 10400 10450 10501 10553 10606 10660 length(cuts) [1] 355

现在此输出不包括10660.46的最大值，并且长度不是300，但是这确实遵循问题中的描述，因此我不确定误解发生在哪里。现在，我将在最后一个值上添加一点以包括最大值。

cuts[length(cuts)] <- cuts[length(cuts)] + 1

通过1中生成的序列将特定列分组。

现在主要部分确实在

1。中，因此在这里我们可以使用cut函数创建分组

pump_packets$group <- cut(pump_packets$PacketTime, breaks = cuts, right = FALSE, dig.lab = 12) pump_packets_summary <- pump_packets %>% group_by(group) %>% summarise( PacketTime = max(PacketTime) - min(PacketTime), FrameLen = list(FrameLen), IPLen = list(IPLen), n = n() ) head(pump_packets_summary) # A tibble: 6 x 5 group PacketTime FrameLen IPLen n <fct> <dbl> <list> <list> <int> 1 [0,1) 0.0496 <int [16]> <int [16]> 16 2 [1,3) 0.0396 <int [52]> <int [52]> 52 3 [3,6) 0.00634 <int [6]> <int [6]> 6 4 [6,10) 0.00672 <int [6]> <int [6]> 6 5 [10,15) 0.00529 <int [6]> <int [6]> 6 6 [15,21) 3.01 <int [12]> <int [12]> 12 tail(pump_packets_summary ) # A tibble: 6 x 5 group PacketTime FrameLen IPLen n <fct> <dbl> <list> <list> <int> 1 [10351,10400) 30.0 <int [8]> <int [8]> 8 2 [10400,10450) 41.0 <int [20]> <int [20]> 20 3 [10450,10501) 42.0 <int [24]> <int [24]> 24 4 [10501,10553) 43.0 <int [20]> <int [20]> 20 5 [10553,10606) 44.0 <int [20]> <int [20]> 20 6 [10606,10661) 50.0 <int [16]> <int [16]> 16

可能是期望的结果。

根据范围（变量）列条件并置行

问题描述投票：0回答：1

`seqv <- function(from, to, by){ diff <- to - from if((n <- diff / sum(by)) < 1){ n <- 1 }else{ n <- ceiling(n) } out <- c(from, from + cumsum(rep(by, n))) out[out <= to] }`

1个回答

最新问题

根据范围（变量）列条件并置行

问题描述 投票：0回答：1

seqv <- function(from, to, by){ diff <- to - from if((n <- diff / sum(by)) < 1){ n <- 1 }else{ n <- ceiling(n) } out <- c(from, from + cumsum(rep(by, n))) out[out <= to] }

1个回答

最新问题

问题描述投票：0回答：1

`seqv <- function(from, to, by){ diff <- to - from if((n <- diff / sum(by)) < 1){ n <- 1 }else{ n <- ceiling(n) } out <- c(from, from + cumsum(rep(by, n))) out[out <= to] }`