R loại bỏ một phần của chuỗi

Question

Làm thế nào để loại bỏ một phần của sting? như ATGAS_1121. Trong ví dụ này, tôi muốn xóa mọi thứ trước khi _

Có ai có thể giúp tôi không? Cảm ơn!

Answer 1

Sử dụng cụm từ thông dụng. Trong trường hợp này, bạn có thể sử dụng gsub:

gsub("^.*?_","_","ATGAS_1121") 
[1] "_1121" 

biểu thức chính quy này phù hợp với đầu của chuỗi (^), bất kỳ ký tự lặp đi lặp lại không hay nhiều lần (*) và dấu gạch dưới (_) (.). Các ? làm cho trận đấu "lười biếng" để nó chỉ phù hợp là xa như gạch dưới đầu tiên. Trận đấu đó được thay thế bằng một dấu gạch dưới. Xem ?regex để biết thêm chi tiết và tài liệu tham khảo

Answer 2

Bạn có thể sử dụng một built-in cho điều này, strsplit:

> s = "TGAS_1121" 
> s1 = unlist(strsplit(s, split='_', fixed=TRUE))[2] 
> s1  
[1] "1121" 

strsplit lợi nhuận cả phần của chuỗi phân tích cú pháp trên split Tham số dưới dạng danh sách . Đó có thể không phải là những gì bạn muốn, vì vậy hãy thực hiện cuộc gọi theo số không công khai, sau đó chỉ mục mảng đó sao cho chỉ thứ hai của hai phần tử trong vectơ được trả lại.

Cuối cùng, tham số cố định phải được đặt thành TRUE để cho biết tham số chia tách không phải là cụm từ thông dụng, nhưng là ký tự khớp với chữ.

Answer 3

Đây là giải pháp strsplit nếu s là một vector:

> s <- c("TGAS_1121", "MGAS_1432") 
> s1 <- sapply(strsplit(s, split='_', fixed=TRUE), function(x) (x[2])) 
> s1 
[1] "1121" "1432" 

Answer 4

Dưới đây là giải pháp strsplit cho một dataframe sử dụng dplyr gói

col1 = c("TGAS_1121", "MGAS_1432", "ATGAS_1121") 
col2 = c("T", "M", "A") 
df = data.frame(col1, col2) 
df 
     col1 col2 
1 TGAS_1121 T 
2 MGAS_1432 M 
3 ATGAS_1121 A 

df<-mutate(df,col1=as.character(col1)) 
df2<-mutate(df,col1=sapply(strsplit(df$col1, split='_', fixed=TRUE),function(x) (x[2]))) 
df2 

    col1 col2 
1 1121 T 
2 1432 M 
3 1121 A 

Answer 5

Nếu bạn là một loại Tidyverse của người, đây là Giải pháp stringr:

R> library(stringr) 
R> strings = c("TGAS_1121", "MGAS_1432", "ATGAS_1121") 
R> strings %>% str_replace(".*_", "_") 
[1] "_1121" "_1432" "_1121" 
# Or: 
R> strings %>% str_replace("^[A-Z]*", "") 
[1] "_1121" "_1432" "_1121"