gpt4 book ai didi

r - 在 vector/data.frame 列上应用返回 data.frame/tibble 的函数并绑定(bind)结果

转载 作者:行者123 更新时间:2023-12-05 07:25:23 25 4
gpt4 key购买 nike

我有一个函数可以从数据库中获取一些数据。它接受一个参数并返回一个 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/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com