[英]Check lengths of elements in list of equal length
检查列表中的元素长度是否相等?
例如:
l <- list(c(1:3),c(2:7),c(12:13))
[[1]]
[1] 1 2 3
[[2]]
[1] 2 3 4 5 6 7
[[3]]
[1] 12 13
我有一个包含许多条目的长列表,并想要一种方法来检查每个元素是否具有相同的长度。
由于长度不同(3,6,2),因此应返回FALSE。
尝试这个:
length(unique(sapply(l, length))) == 1
# [1] FALSE
或@ PierreLafortune的方式:
length(unique(lengths(l))) == 1L
或@ CathG的方式:
all(sapply(l, length) == length(l[[1]]))
#or
all(lengths(l) == length(l[[1]]))
一些基准测试:
#data
set.seed(123)
l <- lapply(round(runif(1000,1,100)), runif)
library(microbenchmark)
library(ggplot2)
#benchmark
bm <- microbenchmark(
zx8754 = length(unique(sapply(l, length))) == 1,
PierreLafortune=length(unique(lengths(l))) == 1L,
CathG_1 = all(lengths(l) == length(l[[1]])),
CathG_2 = all(sapply(l, length) == length(l[[1]])),
times = 10000)
# result
bm
Unit: microseconds
expr min lq mean median uq max neval cld
zx8754 326.605 355.281 392.39741 364.034 377.618 84109.597 10000 d
PierreLafortune 23.545 25.960 30.24049 27.168 28.375 3312.829 10000 b
CathG_1 9.056 11.471 13.49464 12.679 13.584 1832.847 10000 a
CathG_2 319.965 343.207 371.50327 351.659 364.940 3531.068 10000 c
#plot benchmark
autoplot(bm)
我会用:
length(unique(lengths(l))) == 1L
[1] FALSE
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.