是否可以将一个或多个前导零添加或保留到一个数字而不将结果转换为字符?我找到的每个添加前导零的解决方案都会返回一个字符串,包括:paste
、、、和。formatC
format
sprintf
例如,可以x
是0123
or00123
等,而不是123
and 仍然是数字?
x <- 0123
编辑
这不是必需的。我只是在玩下面的代码,最后两行给出了错误的答案。我只是想也许如果我可以使用数字格式的前导零获得正确的答案会更容易。
a7 = c(1,1,1,0); b7=c(0,1,1,1); # 4
a77 = '1110' ; b77='0111' ; # 4
a777 = 1110 ; b777=0111 ; # 4
length(b7[(b7 %in% intersect(a7,b7))])
R - 计算一个字符串的字符与另一个字符之间的匹配,没有替换
keyword <- unlist(strsplit(a77, ''))
text <- unlist(strsplit(b77, ''))
sum(!is.na(pmatch(keyword, text)))
ab7 <- read.fwf(file = textConnection(as.character(rbind(a777, b777))), widths = c(1,1,1,1), colClasses = rep("character", 2))
length(ab7[2,][(ab7[2,] %in% intersect(ab7[1,],ab7[2,]))])