r - 等分采样向量

Question

如果我有任意长度的字符串向量，请说；

vec <- c("a","b","c","d","e","f","g","h","i")

我正在寻找一种使用以下所示策略从此向量中采样n个值的函数。显示数字，因为很难解释。

function call: 
result:
schematic diagram:

fn(vector=vec,n=1)
"a"

|
a b c d e f g h i


fn(vector=vec,n=2)
"a" "i"
 _______________
|               |
a b c d e f g h i


fn(vector=vec,n=3)
"a" "e" "i"
 _______________
|       |       |
a b c d e f g h i


fn(vector=vec,n=4)
"a" "c" "g" "i"
 _______________
|   |     |     |
a b c d e f g h i


fn(vector=vec,n=5)
"a" "c" "e" "g" "i"
 _______________
|   |   |   |   |
a b c d e f g h i

采样不一定是准确的。这些值可以大致来自正确的区域，但必须一致。字符串向量可以是偶数或奇数。

Answer 1

一种方法是使用seq()，利用它的length.out=参数来获取您要查找的均匀间隔的索引:

fn <- function(x, n) {
    x[round(seq(1,length(x), length.out=n))]
}

## Check that it works
fn(vec, 1)
# [1] "a"
fn(vec, 2)
# [1] "a" "i"
fn(vec, 4)
# [1] "a" "d" "f" "i"
fn(vec, 8)
# [1] "a" "b" "c" "d" "f" "g" "h" "i"