我有以下的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)
Run Code Online (Sandbox Code Playgroud)
我想根据相应的值从Q每个list1元素中随机抽样
list2
所以我会Q为第一对列表元素抽样2次.
到目前为止,我已经管理:
df1 <- data.frame(x=(1:3),Q=(3:5))
z <- 2
sapply(1:z,function(i) sample(df1$Q,1))
Run Code Online (Sandbox Code Playgroud)
但我正在努力尝试mapply这两个列表中的所有元素对.
这是一种mapply方法:
mapply(function(x, y) sample(x[["Q"]], y, replace = TRUE), list1, list2)
Run Code Online (Sandbox Code Playgroud)