遍歷數據框並執行SQL查詢

Question

我有一個數據框，其中每行都有6行SQL查詢。 我想執行每個查詢並將輸出分配給一個數據框。 目前我有6行代碼，如下所示：

df6 <- tbl(conn,sql(df[6,]))有沒有一種方法可以循環使用dplyr mutate函數在一個語句中分配它？ 我在下面嘗試過：

i <- 1:nrow(df)
df %>% mutate(paste0('df',i) <- tbl(conn,sql(df[i,])))

這將引發以下錯誤：

錯誤：第q1列必須是一維原子向量或列表。

任何幫助表示贊賞。

Answer 1

您的問題似乎還不清楚，但是假設您有一個數據框，其標題為“ sql_code”，則可以將函數應用於該列中的每個元素

lapply(df$sql_code, function(x) tbl(conn, sql(x)))

您將得到一個可以與bind_cols()放在一起的列表（如果數據框的尺寸相同）

Answer 2

借助Shinobi_Atobe函數的幫助，我可以將其開發為所需的對象，如下所示：

list2env(setNames(lapply(df$sql_query,function(x) {tbl(conn, sql(x))}), paste0('df', 1:nrow(df))), envir=.GlobalEnv)

這將從數據幀中的每一行執行sql查詢，並將輸出存儲在名為df1，df2的各個數據幀中。