使用R將字符插入字符串

Question

我想在字符串中插入一次，兩次或三次冒號字符。例如我想要

G*2413 => G*24:13 
G*15122 => G*15:122 
G*010101 => G*01:01:01 
G*02010102 => G*02:01:01:02 

我該如何使用R來做到這一點？

have <- c('G*2413', 'G*15122', 'G*010101', 'G*02010102') 
want <- c('G*24:13', 'G*15:122', 'G*01:01:01', 'G*02:01:01:02') 

Answer 1

我們還可以使用正環視

gsub("(\\d{2})(?=\\d{2})", "\\1:", have, perl = TRUE) 
#[1] "G*24:13"  "G*15:122"  "G*01:01:01" "G*02:01:01:02" 

Answer 2

你可以嘗試用(\\d{2}(?!\\d?$))gsub，除了它後面是字符串的結束或後跟一位數字的字符串的結尾每兩個數字與自身後跟一個冒號字符替換。 ?!是超前的負面看語法，這使得一定要匹配後面沒有其他圖案的模式：

gsub("(\\d{2}(?!\\d?$))", "\\1:", "G*02010102", perl=T) 
# [1] "G*02:01:01:02" 

gsub("(\\d{2}(?!\\d?$))", "\\1:", "G*010101", perl=T) 
# [1] "G*01:01:01" 

gsub("(\\d{2}(?!\\d?$))", "\\1:", "G*15122", perl=T) 
# [1] "G*15:122" 

gsub("(\\d{2}(?!\\d?$))", "\\1:", "G*2413", perl=T) 
# [1] "G*24:13"