我已经尝试了几个小时才能找到解决方案,但我失败了。
我有一个包含3个不同字符('I','R' & 'O')
的字符串,长度从1到6。
例如
IRRROO
RRORRR
IIR
RIRRO
每个字符代表一个数字
I=1,R=2,O=3
我需要将此字符串转换为一个数字,与位置相乘并求和。例如IRRROO ---> (1*1)+(2*2)+(2*3)+(2*4)+(3*5)+(3*6) =52
IIR ---> (1*1)+(1*2)+(2*3) =9
在此先感谢您的帮助。
最佳答案
因子具有数值等价物。您可以很好地利用此示例:
# original
x1 <- "IRRROO"
# 1 2 3
levs <- c("I", "R", "O")
# split the string and convert to factors, then to numeric
x1f <- as.numeric(factor(strsplit(x1, "")[[1]], levels=levs))
# tally it up
sum(x1f * seq_along(x1f))
或作为一个不错的单行函数:
sumValue <- function(x, levs=c("I", "R", "O"))
sum(seq.int(nchar(x)) * as.numeric(factor(strsplit(x, "")[[1]], levels=levs)))
sumValue("IRRROO")
# [1] 52
sumValue("IIR")
# [1] 9
关于r - 将字符串转换为一位数字并求和,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15893737/