代码之家 › 专栏 › 技术社区 › N.Varela

R: 如何使用数据帧中的表、列和模式名构建get_postgis_查询?

lapply apply loops r

N.Varela · 技术社区 · 6 年前

schema <- c('schema_1','schema_1','schema_1', 'schema_2', 'schema_2')
table <- c('table_1','table_1','table_2', 'table_3', 'table_3')
column <- c('A','B','V','X','Y')
df <- data.frame(schema, table, column)

我想在df的所有行上运行一个简单的SQL,列的第一行如下:

get_postgis_query(con_ent_gis, "select column from schema.table LIMIT 6")

get_postgis_query(con_ent_gis, "select df$column[i] from df$schema[i].df$table[i] LIMIT 6")

在一个循环中,赖特?或者做任何适用的包装或功能。。做一些类似的事情,不需要循环?

0 回复 | 直到 6 年前

Parfait 6 年前

简单使用 paste paste0 )因为所有对象的长度都是相同的,所以要构建SQL语句的向量。然后,将向量传递到 lapply

# BUILD VECTOR OF SQL STATEMENTS
sqls <- paste0("select ", df$column, " from ", df$schema, ".", df$table, " LIMIT 6")
sqls    
# [1] "select A from schema_1.table_1 LIMIT 6"
# [2] "select B from schema_1.table_1 LIMIT 6"
# [3] "select V from schema_1.table_2 LIMIT 6"
# [4] "select X from schema_2.table_3 LIMIT 6"
# [5] "select Y from schema_2.table_3 LIMIT 6"

# ITERATIVELY RUN EACH QUERY TO RETURN LIST OF OBJECTS
data_list <- lapply(sqls, function(s) get_postgis_query(con_ent_gis, s))

推荐文章

user4567794374545 · 如何将函数应用于R中的多个列?

2 年前

maycca · R: 使用lappy在两个列表上同时迭代函数?

7 年前

Jack Dean · 使用biomart的Lappy问题

7 年前

xeyetopewu · 将列传递到lappy中的“with”

7 年前

Denisse Kowaleski · 为散点图合并两个不匹配的数据帧

7 年前

M. Stargardter · R: 结合lapply和left\u join以有条件地合并数据帧

7 年前

delcast · 批量打印ggmaps

7 年前

undergrad · lapply在R中,无法打开连接?

7 年前

HnCetin · 使用自定义函数时Lappy出现意外结果

7 年前

Wang · 在我的函数中加入lapply。递归?

7 年前