從一組 dataframe 重命名行名稱

Question

我想將這組 dataframe 的行名重命名為：

   names                              
   <chr>                               
 1 Reporter_intensity_corrected_0___1      
 2 Reporter_intensity_corrected_0___2      
 3 Reporter_intensity_corrected_0___3 
 4 Reporter_intensity_corrected_1___1
 5 Reporter_intensity_corrected_1___2
...

至：

   names                              
   <chr>                               
 1 Reporter_intensity_corrected_0      
 2 Reporter_intensity_corrected_0      
 3 Reporter_intensity_corrected_0
 4 Reporter_intensity_corrected_1
 5 Reporter_intensity_corrected_1
...

（去掉后面的 3 個下划線和數字）

我可以嘗試什么？

Answer 1

在dplyr和stringr中使用正則表達式

df %>%
  mutate(names = str_remove_all(names, "(_+_+_+\\d)")

Answer 2

在基礎 R 中，您可以使用sub到 3 個下划線和一個數字。

df <- transform(df, names = sub('_{3}\\d+$', '', names))
df
#                           names
#1 Reporter_intensity_corrected_0
#2 Reporter_intensity_corrected_0
#3 Reporter_intensity_corrected_0
#4 Reporter_intensity_corrected_1
#5 Reporter_intensity_corrected_1

數據

df <- structure(list(names = c("Reporter_intensity_corrected_0___1", 
"Reporter_intensity_corrected_0___2", "Reporter_intensity_corrected_0___3", 
"Reporter_intensity_corrected_1___1", "Reporter_intensity_corrected_1___2"
)), class = "data.frame", row.names = c("1", "2", "3", "4", "5"))