Regex để loại bỏ các số 0 đứng đầu trong R, trừ khi ký tự cuối cùng (hoặc duy nhất) bằng không

gsub("(?<![0-9])0+", "", c("005", "0AB", "000", "0"), perl = TRUE)
#> [1] "5"  "AB" ""   ""
gsub("(^|[^0-9])0+", "\\1", c("005", "0AB", "000", "0"), perl = TRUE)
#> [1] "5"  "AB" ""   ""

Biểu thức chính quy ở trên là từ luồng SO này giải thích cách loại bỏ tất cả các số 0 đứng đầu khỏi một chuỗi trong R. Do đó, biểu thức chính quy này cả "000" và "0" được chuyển thành "". Thay vào đó, tôi muốn xóa tất cả các số 0 đứng đầu khỏi một chuỗi các ký tự, ngoại trừ các trường hợp khi ký tự cuối cùng bằng 0 hoặc ký tự duy nhất bằng 0.

"005" would become "5"
"0AB" would become "AB"
"000" would become "0"
"0"   would become "0"

Chủ đề SO khác này giải thích cách thực hiện những gì tôi muốn, nhưng tôi không nghĩ rằng tôi đang nhận được cú pháp khá chính xác, áp dụng giải pháp trong R. Và tôi không thực sự hiểu sự khác biệt giữa giải pháp 1 và 2 bên dưới ( nếu họ thực sự làm việc).

gsub("s/^0*(\d+)$/$1/;", "", c("005", "0AB", "000", "0"), perl = TRUE)  # 1st solution
# Error: '\d' is an unrecognized escape in character string starting ""s/^0*(\d"
gsub("s/0*(\d+)/$1/;", "", c("005", "0AB", "000", "0"), perl = TRUE)    # 2nd solution
# Error: '\d' is an unrecognized escape in character string starting ""s/0*(\d"

Regex thích hợp trong R để có được những gì tôi muốn là gì?

Bạn có thể xóa tất cả các số không từ đầu chuỗi nhưng không xóa chuỗi cuối:

sub("^0+(?!$)", "", x, perl=TRUE)

Xem bản demo regex .

Chi tiết

• ^ - bắt đầu một chuỗi
• 0+ - một hoặc nhiều số không
• (?!$) - giao diện phủ định không khớp nếu có kết thúc vị trí chuỗi ngay bên phải vị trí hiện tại

Xem bản demo R :

x <- c("005", "0AB", "000", "0")
sub("^0+(?!$)", "", x, perl=TRUE)
## => [1] "5"  "AB" "0"  "0"

Chúng ta có thể thêm một điều kiện nữa với giao diện regex để kiểm tra mọi giá trị khác không sau một hoặc nhiều số không ( 0+)

sub("(?<![0-9])0+(?=[^0])", "", sub("^0+$", "0", v1), perl = TRUE)
#[1] "5"  "AB" "0"  "0" 

dữ liệu

v1 <- c("005", "0AB", "000", "0")

Bằng cách sử dụng một ranh giới không từ . Xem bản demo này tại regex101 hoặc bản demo R tại tio.run . \B

sub("^0+\\B", "", s)

Điều này sẽ không khớp với số 0 cuối cùng, bởi vì bên phải của nó không có ký tự từ .

Bạn có thể sử dụng xen kẽ để khớp tất cả các số 0 trong chuỗi trong một nhóm bắt hoặc khớp với tất cả các số 0 từ đầu chuỗi.

Trong nhóm sử dụng thay thế 1.

^0*(0)$|^0+

Bản giới thiệu Regex | Bản demo R

Ví dụ

sub("^0*(0)$|^0+", "\\1", c("005", "0AB", "000", "0"))

Đầu ra

[1] "5"  "AB" "0"  "0"

Hoặc thậm chí tốt hơn như nhận xét của Wiktor Stribiżew , bạn có thể sử dụng bắt một số 0 trong một nhóm và lặp lại chính nhóm đó để ghi lại trường hợp cuối cùng của số không.

^(0)+$|^0+

Bản demo Regex

Một regexlựa chọn khác :

^0*(.+)$

Đây là bản demo regex .

Sử dụng base::subtrong R:

sub("^0*(.+)$", "\\1", c("005", "0AB", "000", "0"))  

 ## [1] "5"  "AB" "0"  "0" 

Dưới đây là một bản demo R .

Hoặc mở rộng trên câu trả lời của @ akrun :

sub("^$", "0", sub("^0+", "", c("005", "0AB", "000", "0")), perl = TRUE)