如何在dplyr中重命名反引號中包含的列名稱

Question

我有以下問題：

library(tidyverse)
df <- structure(list(`Input paired-end (STAR)` = c(9394981, 100), `Multi-mapped pair (STAR)` = c(1493691, 
400), `Uniquely mapped paired-end (STAR)` = c(6826405, 200), 
    `Unmapped pair (STAR-appx)` = c(1074885, 300)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = 1:2, .Names = c("Input paired-end (STAR)", 
"Multi-mapped pair (STAR)", "Uniquely mapped paired-end (STAR)", 
"Unmapped pair (STAR-appx)"))

看起來像這樣：

# A tibble: 2 × 4
  `Input paired-end (STAR)` `Multi-mapped pair (STAR)` `Uniquely mapped paired-end (STAR)` `Unmapped pair (STAR-appx)`
*                     <dbl>                      <dbl>                               <dbl>                       <dbl>
1                   9394981                    1493691                             6826405                     1074885
2                       100                        400                                 200                         300

我也該如何重命名該列：

foo        bar    qux     gop
9394981 6826405 1074885 1493691 
100     200      300      400

Answer 1

setNames是一個簡單的選項，也可以將其合並到鏈中

library(dplyr)
df %>%
     setNames(., c('foo', 'bar', 'qux', 'gop'))

Answer 2

如果您真的想使用`dplyr函數，則可以使用重命名

df %>% rename(foo=`Input paired-end (STAR)`, 
  bar=`Multi-mapped pair (STAR)`,  
  qux=`Uniquely mapped paired-end (STAR)`,
  qop=`Unmapped pair (STAR-appx)`)

但是使用基本功能會容易得多

names(df) <- c("foo","bar","qux","qop")