Regex untuk menghapus nol di awal R, kecuali karakter akhir (atau hanya) nol

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" ""   ""

Ekspresi reguler di atas berasal dari utas SO ini yang menjelaskan cara menghapus semua nol di awal dari string dalam R. Sebagai konsekuensi dari ekspresi reguler ini, "000" dan "0" ditransformasikan menjadi "". Alih-alih, saya ingin menghapus semua nol di awal dari serangkaian karakter, kecuali untuk kasus-kasus ketika karakter akhir menjadi nol, atau satu-satunya karakter adalah nol.

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

Utas SO lainnya ini menjelaskan cara melakukan apa yang saya inginkan, tetapi saya rasa saya tidak mendapatkan sintaks yang benar, menerapkan solusi dalam R. Dan saya tidak terlalu memahami perbedaan antara solusi 1 dan 2 di bawah ini ( jika mereka memang bekerja).

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"

Apa regex yang tepat dalam R untuk mendapatkan apa yang saya inginkan?

Anda dapat menghapus semua nol dari awal string tetapi bukan yang terakhir:

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

Lihat demo regex .

Detail

• ^ - mulai dari sebuah string
• 0+ - satu atau lebih nol
• (?!$) - lookahead negatif yang gagal cocok jika ada akhir posisi string segera di sebelah kanan lokasi saat ini

Lihat demo R :

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

Kami dapat menambahkan satu kondisi lagi dengan pencarian regex untuk memeriksa nilai-nilai tidak nol setelah satu atau lebih nol ( 0+)

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

data

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

Dengan menggunakan batas non kata . Lihat demo ini di regex101 atau demo R di tio.run . \B

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

Ini tidak akan cocok dengan nol terakhir, karena di sana tidak ada karakter kata .

Anda bisa menggunakan pergantian untuk mencocokkan semua nol di string dalam grup penangkap atau mencocokkan semua nol dari awal string.

Dalam penggantian gunakan grup 1.

^0*(0)$|^0+

Demo Regex | R demo

Sebagai contoh

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

Keluaran

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

Atau bahkan lebih baik seperti yang dikomentari oleh Wiktor Stribiżew , Anda dapat menggunakan capture 0 tunggal dalam grup dan ulangi grup itu sendiri untuk menangkap instance terakhir dari nol.

^(0)+$|^0+

Demo Regex

regexOpsi lain :

^0*(.+)$

Inilah demo regex .

Menggunakan base::subdalam R:

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

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

Berikut ini adalah demo R .

Atau memperluas pada jawaban @ akrun :

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