如何使用R删除data.frame中特定列中的字符？

Question

I have a list results of several data.frames (each data.frame has 3 columns). It looks like this :

> tail(results[[1]])
                    var1                var2        corr
4945 UniRef90_A0A075GGL3 UniRef90_A0A075GGW4 -0.12058932
4946 UniRef90_A0A075GGU1 UniRef90_A0A075GGW4 -0.01740142
4947 UniRef90_A0A075GGU4 UniRef90_A0A075GGW4  0.16400148
4948 UniRef90_A0A075GGV0 UniRef90_A0A075GGW4 -0.09698018
4949 UniRef90_A0A075GGV1 UniRef90_A0A075GGW4  0.22409572
4950 UniRef90_A0A075GGV8 UniRef90_A0A075GGW4  0.43184873

> tail(results[[2]])
                    var1                var2       corr
4945 UniRef90_A0A075GJW0 UniRef90_A0A075GKB8 -0.1059095
4946 UniRef90_A0A075GJW5 UniRef90_A0A075GKB8 -0.4336370
4947 UniRef90_A0A075GJX5 UniRef90_A0A075GKB8 -0.1875841
4948 UniRef90_A0A075GJY4 UniRef90_A0A075GKB8  0.2658149
4949 UniRef90_A0A075GJY8 UniRef90_A0A075GKB8 -0.2820792
4950 UniRef90_A0A075GJY9 UniRef90_A0A075GKB8 -0.2402827

I will bind these data.frames into only one. But that'll give a huge data.frame. That's why I would like to remove the string UniRef90_ in the columns var1 and var2 in order to reduce the size, before the binding.

Any help?

Answer 1

您可以在弯曲数据框之前在var1和var2上尝试此操作。

sub("UniRef90_","", dataframe$yourvariable)

Answer 2

We can loop through the list , and remove the substring with either substring or str_remove

library(tidyverse)
map_df(results, ~ .x %>%
                   mutate_at(vars(matches('^var\\d+$')),
              list(~ str_remove(., "^UniRef90_"))))
#     var1       var2        corr
#1  A0A075GGL3 A0A075GGW4 -0.12058932
#2  A0A075GGU1 A0A075GGW4 -0.01740142
#3  A0A075GGU4 A0A075GGW4  0.16400148
#4  A0A075GGV0 A0A075GGW4 -0.09698018
#5  A0A075GGV1 A0A075GGW4  0.22409572
#6  A0A075GGV8 A0A075GGW4  0.43184873
#7  A0A075GJW0 A0A075GKB8 -0.10590950
#8  A0A075GJW5 A0A075GKB8 -0.43363700
#9  A0A075GJX5 A0A075GKB8 -0.18758410
#10 A0A075GJY4 A0A075GKB8  0.26581490
#11 A0A075GJY8 A0A075GKB8 -0.28207920
#12 A0A075GJY9 A0A075GKB8 -0.24028270

data

results <- list(structure(list(var1 = c("UniRef90_A0A075GGL3", 
  "UniRef90_A0A075GGU1", 
"UniRef90_A0A075GGU4", "UniRef90_A0A075GGV0", "UniRef90_A0A075GGV1", 
"UniRef90_A0A075GGV8"), var2 = c("UniRef90_A0A075GGW4", 
 "UniRef90_A0A075GGW4", 
"UniRef90_A0A075GGW4", "UniRef90_A0A075GGW4", "UniRef90_A0A075GGW4", 
"UniRef90_A0A075GGW4"), corr = c(-0.12058932, -0.01740142, 0.16400148, 
-0.09698018, 0.22409572, 0.43184873)), class = "data.frame", row.names = c("4945", 
"4946", "4947", "4948", "4949", "4950")), 
 structure(list(var1 = c("UniRef90_A0A075GJW0", 
"UniRef90_A0A075GJW5", "UniRef90_A0A075GJX5", "UniRef90_A0A075GJY4", 
"UniRef90_A0A075GJY8", "UniRef90_A0A075GJY9"), var2 = c("UniRef90_A0A075GKB8", 
"UniRef90_A0A075GKB8", "UniRef90_A0A075GKB8", "UniRef90_A0A075GKB8", 
"UniRef90_A0A075GKB8", "UniRef90_A0A075GKB8"), corr = c(-0.1059095, 
-0.433637, -0.1875841, 0.2658149, -0.2820792, -0.2402827)),
class = "data.frame", row.names = c("4945", 
"4946", "4947", "4948", "4949", "4950")))