问题：

下面的工作，但是有没有更好的“R 方法”来实现类似的结果？我本质上是尝试根据用户定义的函数（当前仅使用循环）将组创建/分配到各个行项目中。

例子：

df1 <- data.frame(group = c("A", "B", "C"), 
              volume = c(200L, 45L, 104L)
              )
print(df1)
#>   group volume
#> 1     A    200
#> 2     B     45
#> 3     C    104

我希望volume根据组将其分成多行，以便最终结果是一个数据帧，其中新卷（vol2在下面）将添加到上面的原始卷。在此示例中，我应用除数为 52 的整数数学，所以我的最终结果应该是：

print(df3)
#>    group vol2
#> 1      A   52
#> 2      A   52
#> 3      A   52
#> 4      A   44
#> 21     B   45
#> 31     C   52
#> 32     C   52

这有效

下面的代码确实让我得到了上面显示的期望结果：

div <- 52L
df1$intgr …

问题

如何使用公共数据获得简单的“bigrquery”函数？我只想获得任何“bigrquery”函数来从 Google Cloud Platform Big Query 返回数据。

背景

示例如下：

我首先从 bigrquery 中查看这个示例作为起点（我已经安装了该软件包）：

library(bigrquery)
billing <- bq_test_project() # replace this with your project ID 
sql <- "SELECT year, month, day, weight_pounds FROM `publicdata.samples.natality`"

tb <- bq_project_query(billing, sql)
bq_table_download(tb, n_max = 10)
#> First chunk includes all requested rows.
#> # A tibble: 10 x 4
#>     year month   day weight_pounds
#>    <int> <int> <int>         <dbl>
#>  1  1969     1    20          7.00
#>  2  1969     1    27          7.69 …