How to remove everything before values starting after underscore from column values of an R data frame?

If a column in an R data frame contain string values that are separated with an underscore and stretches the size of the column values that also contain common values then it would be wise to remove underscore sign from all the values at once along with the values that is common. This will help us to read the data properly as well as analysis will become easy. For this purpose, we can use gsub function

Consider the below data frame −

Example

 Live Demo

set.seed(191) ID<-c("ID_1","ID_2","ID_3","ID_4","ID_5","ID_6","ID_7","ID_8","ID_9","ID_10","ID_11","ID_12","ID_13","ID_14","ID_15","ID_16","ID_17","ID_18","ID_19","ID_20") Salary<-sample(20000:50000,20) df1<-data.frame(ID,Salary) df1

Output

   ID   Salary 1  ID_1  33170 2  ID_2  22747 3  ID_3  42886 4  ID_4  22031 5  ID_5  45668 6  ID_6  32584 7  ID_7  34779 8  ID_8  20471 9  ID_9  38689 10 ID_10 29660 11 ID_11 49664 12 ID_12 24284 13 ID_13 36537 14 ID_14 37693 15 ID_15 30265 16 ID_16 36004 17 ID_17 48247 18 ID_18 20750 19 ID_19 27400 20 ID_20 20553

Removing everything before and including underscore sign from ID values in column ID −

Example

df1$ID<-gsub("^.*\_","",df1$ID) df1

Output

   ID Salary 1  1  48769 2  2  26002 3  3  37231 4  4  24437 5  5  43311 6  6  47494 7  7  21029 8  8  28069 9  9  41108 10 10 29363 11 11 23371 12 12 25898 13 13 42434 14 14 22210 15 15 48969 16 16 21640 17 17 36175 18 18 21210 19 19 43374 20 20 29367

Let’s have a look at another example −

Example

 Live Demo

Group<-c("GRP_1","GRP_2","GRP_3","GRP_4","GRP_5","GRP_6","GRP_7","GRP_8","GRP_9","GRP_10","GRP_11","GRP_12","GRP_13","GRP_14","GRP_15","GRP_16","GRP_17","GRP_18","GRP_19","GRP_20")  Ratings<-sample(0:10,20,replace=TRUE) df2<-data.frame(Group,Ratings) df2

Output

 Group Ratings 1  GRP_1  6 2  GRP_2  9 3  GRP_3  7 4  GRP_4 10 5  GRP_5 10 6  GRP_6  9 7  GRP_7  9 8  GRP_8  3 9  GRP_9  2 10 GRP_10 0 11 GRP_11 3 12 GRP_12 7 13 GRP_13 6 14 GRP_14 10 15 GRP_15 1 16 GRP_16 3 17 GRP_17 10 18 GRP_18 2 19 GRP_19 9 20 GRP_20 0

Removing everything before and including underscore sign from GRP values in column Group −

Example

df2$Group<-gsub("^.*\_","",df2$Group) df2

Output

   Group Ratings 1   1     4 2   2     8 3   3     7 4   4     0 5   5    10 6   6    10 7   7     5 8   8     4 9   9     3 10 10     7 11 11     4 12 12     4 13 13     3 14 14 10 15 15 7 16 16 2 17 17 3 18 18 8 19 19 9 20 20 5