Lấy mẫu trong R từ vectơ có độ dài khác nhau

Question

Tôi có một vector có chiều dài khác nhau, đôi khi có thể có độ dài 1.

Tôi muốn lấy mẫu từ vectơ này sao cho chiều dài của nó là 1 1 số.

Sample() sẽ không làm điều này vì nó mẫu từ 1 tới chữ số khi kích thước mẫu là 1.

Answer 1

Đây là một tính năng ghi nhận:

Nếu x có chiều dài 1, là numeric (theo ý nghĩa của is.numeric) và x >= 1, lấy mẫu qua mẫu diễn ra từ 1:x. Lưu ý rằng tính năng tiện lợi này có thể dẫn đến hành vi không mong muốn khi x có độ dài thay đổi trong các cuộc gọi như sample(x).

Một cách khác là để viết chức năng riêng của bạn để tránh các tính năng:

sample.vec <- function(x, ...) x[sample(length(x), ...)] 
sample.vec(10) 
# [1] 10 
sample.vec(10, 3, replace = TRUE) 
# [1] 10 10 10 

Một số chức năng với hành vi tương tự được liệt kê dưới seq vs seq_along. When will using seq cause unintended results?

Answer 2

Khi ăn chỉ có một số duy nhất, sample công trình như sample.int (xem ?sample). Nếu bạn muốn chắc chắn rằng nó chỉ mẫu từ vector bạn cho nó, bạn có thể làm việc với các chỉ số và sử dụng cấu trúc này:

x[sample(length(x))] 

này mang đến cho bạn kết quả chính xác bất kể chiều dài của x, và mà không cần phải thêm an if điều kiện kiểm tra độ dài.

Ví dụ:

mylist <- list(
    a = 5, 
    b = c(2,4), 
    d = integer(0) 
) 

mysample <- lapply(mylist,function(x) x[sample(length(x))]) 

> mysample 
$a 
[1] 5 

$b 
[1] 2 4 

$d 
integer(0) 

Lưu ý: bạn có thể thay sample bởi sample.int để có được một tăng tốc độ ít.