检查列表中的元素是否等长?
例如:
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
我有一个包含许多条目的长列表,并且想要一种方法来检查每个元素是否具有相同的长度。
上面应该返回 FALSE,因为长度不同 (3,6,2)。
试试这个:
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
vctrs::list_all_size(l, length(l[[1]]))
# [1] FALSE