來自data.frames列表的示例

Question

我有以下list1和list2 ：

df1   <- data.frame(x=(1:3),Q=(3:5))
df2   <- data.frame(x=(1:3),Q=(3:5))
df3   <- data.frame(x=(1:3),Q=(3:5))
list1 <- list(df1,df2,df3)
list2 <- list(2,3,6)

我想根據list2的對應值從每個list1元素中的Q中隨機抽樣

所以我會從第2對Q第一對列表元素中抽樣。

到目前為止，我已經管理：

df1   <- data.frame(x=(1:3),Q=(3:5))
z <- 2
sapply(1:z,function(i) sample(df1$Q,1))

但我正在努力試圖在兩個列表中的所有元素對中進行mapply 。

Answer 1

這是一個mapply方法：

mapply(function(x, y) sample(x[["Q"]], y, replace = TRUE), list1, list2)

Answer 2

不確定這是否是您所追求的，但它可能會有所幫助：

FUN <- function(x, z) sapply(1:z,function(i) sample(x[["Q"]], 1))
lapply(seq_along(list1), function(i) FUN(list1[[i]], list2[[i]]))