我需要将一个字符串从字符串右边分成4个字符的组，并用逗号分隔。

示例： "5707559" 需要显示为0570,7559，如果字符串是奇数（3个字符），则添加前导零。

原始字符串（需要分隔的字符串）具有来自dataframe列的可变长度：

Strings Fixed_Strings

5707559 0570, 7559

7502 7502

302 0302

解决办法：可以试试这个：

split_by_n <- function(string, n = 4) {

missing_zeros_number <- (n - nchar(string)) %% n

extended_string_with_zeros <- paste0(

c(numeric(missing_zeros_number), string),

collapse = "")

total_length <- nchar(extended_string_with_zeros)

substring(

extended_string_with_zeros,

seq(1, total_length, n),

seq(n, total_length, n)

)

}

split_by_n("foo")

split_by_n("foobar")