在R中的第二个数字后添加逗号

Question

我有一个简单的问题，我无法回答： 我想在数字的第二个数字后添加一个逗号。 变换＆＃34; 12345678＆＃34;进入＆＃34; 12,345678＆＃34;

Answer 1

使用sub：

num <- "12345678"
sub("^(\\d{2})", "\\1,", num)
[1] "12,345678"

请注意sub的行为是，如果没有匹配项，它将返回整个输入字符串。这在这里工作得很好，因为大概是在像abc123这样的字符串的情况下，你只想恢复整个字符串。

Demo

Answer 2

您可以尝试gsub：

gsub("^(\\d{2})(\\d+)","\\1,\\2",x)

或其他方式可能是：

paste0(substr("12345678",1,2),",",substr("12345678",3,nchar("12345678")))