RJDBC запросов из списков значений индексов

Question

Я пытаюсь выполнить запрос или форму:

SELECT a.col1, b.col2 FROM tbl1 a, tbl2 b 
WHERE a.col2 = b.col1 
AND a.col3 = df$x 
AND a.col4 = df$y 

На базе Oracle с использованием RJDBC. У меня есть кадр данных с столбцами x и y, которые идентифицируют. Я не могу найти никаких подробностей о том, как создавать и выполнять запрос для отдельных значений в моем фрейме данных.

Мой кадр данных имеет вид:

df <- data.frame(x=c("LIB258", "LIB258", "LIB359"), y=c("A01", "B03", "C08")) 

Так что я нужен способ, чтобы генерировать и последовательно работать три различных запросов, а затем собирать результаты в кадр данных.

Есть ли элегантный способ сделать это в R? Я знаю, что могу использовать немного магии paste для создания отдельных запросов, но как же их запустить и вернуть результаты в dataframe?

Благодаря Hassan

Answer 1

с помощью plyr и вставить

library(plyr) 
dff <- data.frame(x=c("LIB258", "LIB258", "LIB359"), y=c("A01", "B03", "C08")) 
ddply(dff,.(x,y), 
      function(rr){ 
      query <- paste("SELECT a.col1, b.col2 FROM tbl1 a, tbl2 b ", 
         "WHERE a.col2 = b.col1", 
         paste("AND a.col3 = ",rr$x,sep=''), 
         paste("AND a.col4 = ",rr$y,sep=''),sep ='\n') 

      result <- dbGetQuery(conn, query) 
      }) 

this should retuen something like : 

    x y col1 col2 
1 LIB258 A01 4 3 
2 LIB258 A01 3 2 
3 LIB258 A01 1 1 
4 LIB258 B03 1 3 
5 LIB258 B03 4 1 
6 LIB258 B03 3 4 
7 LIB359 C08 6 5 
8 LIB359 C08 3 1 
9 LIB359 C08 1 4 

Answer 2

Я не знаю RJDBC, но я использовал RODBC. Вы можете использовать немного paste или paste0 для создания запросов:

query.list <- paste0(" 
    SELECT a.col1, b.col2 FROM tbl1 a, tbl2 b 
    WHERE a.col2 = b.col1 
    AND a.col3 = ",df$x," 
    AND a.col4 = ",df$y) 

Затем используйте lapply, что-то вроде

result.set <- lapply(query.list,dbGetQuery,conn=con) 

Это должно возвращать список фреймов данных. Затем вы можете присоединиться к ним все вместе с

final.df <- do.call(rbind,result.set)