dplyr: как изменить имена столбцов на основе шаблона?

Question

рассмотреть этот простой пример:

data <- data_frame('data::col1' = c(1,2,3), 'data::col2' = c(1,2,3)) 
> data 
# A tibble: 3 × 2 
    `data::col1` `data::col2` 
     <dbl>  <dbl> 
1   1   1 
2   2   2 
3   3   3 

Этот вид dataframe является выход один бы получить с помощью Apache Pig. Здесь я могу загрузить его с помощью dplyr, но, как вы можете видеть, имена столбцов громоздки.

Как я могу использовать комплект tidyverse, чтобы избавиться от части до ::? Кроме того, предположим, что у меня много столбцов с шаблоном data::mycol, поэтому идеальное решение не требует ввода вручную каждого затронутого столбца.

выход ожидается:

# A tibble: 3 × 2 
    col1 col2 
    <dbl> <dbl> 
1  1  1 
2  2  2 
3  3  3 

Спасибо!

Answer 1

library(dplyr) 
library(purrr) 

data <- data.frame('data::col1' = c(1,2,3), 'data::col2' = c(1,2,3)) 
names(data) <- names(data) %>% 
    gsub("data..", "", .)