Wybór z dplyr parametrami w nazwach kolumn

Question

Mam tabelę danych z wielu kolumn wygląda tak:

sd1_scale1 sd1_scale2 sd1_scale3 ... sd2_scale1 sd2_scale2 ... itd

I manipulować te dane i korzystać z dplyr select w ten sposób:

select(code_group, sd1_scale1:sd1_scale13) 

chcę napisać funkcję, która bierze numer (numer sD), a także zaznaczanie kolumn przez to, coś toalecie Król taki jak ten:

makeData <- function(sdNumber) { 

     return select(code_group, sd{sdNumber}_scale1:sd{sdNumber}_scale13) 

    } 

Czy można to zrobić z dplyr? Nie udało mi się przejść do wybranych indeksów kolumn, więc nie mam pojęcia, jak to zrobić. Z góry dziękuję!

Answer 1

Możesz użyć select_, jak sugerował Gregor, ale nie musisz tego robić.

library(dplyr) 

x <- read.csv(text = "sd1_scale1,sd1_scale2,sd1_scale3,sd2_scale1,sd2_scale2,sd2_scale3 
1,2,3,4", header = TRUE) 


makeData1 <- function(x, sdNumber) { 
    # Using `one_of` as explained in ?select 
    select(x, one_of(paste0("sd", sdNumber, "_scale", 1:2))) 
} 

makeData2 <- function(x, sdNumber) { 
    # Same effect using nonstandard evaluation, see vignette("nse") 
    select_(x, .dots = paste0("sd", sdNumber, "_scale", 1:2)) 
} 

x %>% makeData1(2)  
x %>% makeData2(2) # same result 

mam to od this gist