刪除 r dataframe 列名稱中“_”后的所有字符

Question

我有一個 dataframe 如下：

   Ax_ghx By_jkgf YTz8_hjks gh3_hjhd
a  1  2  3  4
b  3  4  5  6

如何刪除“_”后的所有字符，結果為 dataframe，如下所示：

  Ax By YTz8 gh3
a 1  2  3  4
b 3  4  5  6

Answer 1

數據示例

 df <- data.frame(Ax_ghx = 1, By_jkgf = 1, YTz8_hjks = 1,gh3_hjhd = 1)   

Tidyverse 方法

library(dplyr)  


df %>% rename_with(.fn = ~sub(x = .,"_.*",""))

  Ax By YTz8 gh3
1  1  1    1   1

基地 R

names(df) <- sub(x = names(df),"_.*","")

df 
              
  Ax By YTz8 gh3
1  1  1    1   1