将罗马数字转换为R中的数字

时间:2014-01-14 15:03:15

标签: r roman-numerals

在R中,在基本设置中有一个很棒的函数as.roman

as.roman(79)
# [1] LXXIX

是否有将罗马数字转换为数字的反函数?

(我知道我可以自己编写,但我更喜欢使用已经准备好或最好是标准函数,不幸的是找不到一个。标准库或包函数是首选解决方案)

3 个答案:

答案 0 :(得分:29)

as.roman()返回类 roman 的对象,因此R会识别它。您可以使用as.numeric()直接将其重新转换为阿拉伯数字。如果您的字符串符合条件,使其可以是有效的罗马数字,则可以使用as.roman()将其强制转换为类罗马对象,然后通过组合强制函数将其强制转换为阿拉伯数字。考虑一下:

> as.roman(79)
[1] LXXIX
> x <- as.roman(79)
> x
[1] LXXIX
> str(x)
Class 'roman'  int 79
> as.roman("LXXIX")
[1] LXXIX
> as.numeric(as.roman("LXXIX"))
[1] 79

答案 1 :(得分:10)

as.roman代码中,您可以找到.roman2numeric,如果您运行getAnywhere(".roman2numeric")

,则可以看到其代码

代码是:

function (x) 
{
  romans <- c("M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", 
              "IX", "V", "IV", "I")
  numbers <- c(1000L, 900L, 500L, 400L, 100L, 90L, 50L, 40L, 
               10L, 9L, 5L, 4L, 1L)
  out <- integer(length(x))
  ind <- is.na(x)
  out[ind] <- NA
  if (any(!ind)) {
    y <- toupper(x[!ind])
    y <- gsub("CM", "DCCCC", y)
    y <- gsub("CD", "CCCC", y)
    y <- gsub("XC", "LXXXX", y)
    y <- gsub("XL", "XXXX", y)
    y <- gsub("IX", "VIIII", y)
    y <- gsub("IV", "IIII", y)
    ok <- grepl("^M{,3}D?C{,4}L?X{,4}V?I{,4}$", y)
    if (any(!ok)) {
      warning(sprintf(ngettext(sum(!ok), "invalid roman numeral: %s", 
                               "invalid roman numerals: %s"), paste(x[!ind][!ok], 
                                                                    collapse = " ")), domain = NA)
      out[!ind][!ok] <- NA
    }
    if (any(ok)) 
      out[!ind][ok] <- sapply(strsplit(y[ok], ""), function(z) as.integer(sum(numbers[match(z, 
                                                                                            romans)])))
  }
  out
}

您可以访问.roman2numeric并将罗马数字转换为十进制数字,就像@rawr在他/她的评论中所建议的那样。

> utils:::.roman2numeric("III")
[1] 3
> utils:::.roman2numeric("XII")
[1] 12
> utils:::.roman2numeric("LXXIX")
[1] 79

答案 2 :(得分:6)

根据the docs,R中的roman数字是

  

"roman"的对象,它们在内部表示为整数,并且具有适合打印,格式化,子集化和强制到character的方法。

因此,您应该能够使用as.integer()

返回整数值
as.integer(as.roman(79)+as.roman(12))