我有一个函数可以从数据库中获取一些数据。它接受一个参数并返回一个 data.frame。我想使用这些参数的输入向量并将它们通过管道传输到 map 或类似的函数,该函数采用每个元素并返回数据库结果。结果在行中可能不同,但列始终相同。如果没有循环和行绑定(bind),我该怎么做? (因为我在..)
我尝试了以下路线:
myfuncSingleRow<-function(nbr){
data.frame(a=nbr,b=nbr^2,c=nbr^3)}
myfuncMultipleRow<-function(nbr){
data.frame(a=rep(nbr,3),b=rep(nbr^2,3),c=rep(nbr^3,3))}
a<-data.frame(count=c(1,2,3))
myfuncSingleRow(2)
myfuncMultipleRow(2)
a %>% select(count) %>% map_dfr(.f=myfuncSingleRow) #output as expected
a %>% select(count) %>% map_dfr(.f=myfuncMultipleRow) #output not as expected
现在这也不能按预期工作。例如 myFuncMultipleRow,我期望前 3 行相等,接下来的 3 行相等,最后 3 行相同。使用 myFuncMultipleRow 的示例:
获取
a b c
1 1 1 1
2 2 4 8
3 3 9 27
4 1 1 1
5 2 4 8
6 3 9 27
7 1 1 1
8 2 4 8
9 3 9 27
想要:
a b c
1 1 1 1
2 1 1 1
3 1 1 1
4 2 4 8
5 2 4 8
6 2 4 8
7 3 9 27
8 3 9 27
9 3 9 27
像往常一样,我可能没有正确使用函数,但有点卡在这里,不想解决旧循环和 rbind,这可能是性能瓶颈。有没有人要?
编辑:正如“rep”中指出的“each”参数确实解决了这个问题,但没有解决主要问题。如果 map 确实迭代并为每个元素调用函数,那么对函数“rep”使用参数“each”和“times”应该会产生相同的结果。传递给 map 的函数没有被矢量化,而是假定一个长度为 1 的参数。 解决方案需要做的:
res<-data.frame()
for(i in a) res<-rbind(res,myfuncMultipleRow(i))
最佳答案
因此,在查看最新的 purrr 0.3.0(旧版本)之后,map_depth 指向了正确的方向。
a %>% select(count)%>% map_depth(.depth=2,.f=myfuncMultipleRow) %>% map_dfr(.f=bind_rows)
放弃 map_depth() 、 bind_rows() 并改为嵌套:
a %>% select(count)%>% map_dfr(~map_dfr(.,myfuncMultipleRow))
a %>% select(count)%>% map_dfr(.f=function(x) map_dfr(x,.f=myfuncMultipleRow))
关于r - 在 vector/data.frame 列上应用返回 data.frame/tibble 的函数并绑定(bind)结果,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/54826837/