Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/64.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
从data.frames列表中采样_R_List - Fatal编程技术网

从data.frames列表中采样

从data.frames列表中采样,r,list,R,List,我有以下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) 但我正努力在两个列表中的所有元素对中映射这一点 不确定这是否是您想要的,但它可能会有帮助: FUN <- fu

我有以下
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)

但我正努力在两个列表中的所有元素对中映射这一点

不确定这是否是您想要的,但它可能会有帮助:

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

FUN这里有一个
mapply
方法:

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

欢迎投票。
mapply(function(x, y) sample(x[["Q"]], y, replace = TRUE), list1, list2)