从R中的向量列表中提取值范围

Question

我正在努力完成这个简单的任务

我有一个矢量列表，我想提取一个范围内的值，比如介于1700和6200之间。

sample <- list(c(1062, 1084, 1104, 1130, 1143, 1178, 1193, 1209, 1233, 
1276, 1315, 1458, 1752, 2027, 2483, 2598, 2713, 3196, 3780, 4448, 
4937, 5070, 5734, 6347, 6859, 6963), c(1101, 1125, 1153, 1166, 
1201, 1214, 1257, 1281, 1315, 1351, 1493, 1786, 2061, 2514, 2559, 
2583, 2628, 2742, 3185, 3223, 3801, 4469, 4954, 5090, 5753, 6364, 
6874, 6978))

sapply(sample, function(x) x[x > 1700])
sapply(sample, function(x) x[x < 6200])

如何将这两个功能合二为一？

sapply(sample, function(x) x[x > 1700] & x[x<6200])

不起作用，为什么？我错过了什么？

Answer 1

sapply(sample, function(x) x[x > 1700 & x < 6200])