Преобразование римских цифр в числа в R

В R есть отличная функция as.roman в самой базовой настройке:

as.roman(79)
# [1] LXXIX

Существует ли обратная функция, преобразующая римские цифры в числа?

(Я знаю, что могу написать это сам, но я предпочитаю использовать уже готовые или предпочтительно стандартные функции, к сожалению, не могу найти. Стандартная библиотечная или пакетная функция является предпочтительным решением)


r roman-numerals
person Tomas    schedule 14.01.2014    source источник

Ответы (3)


arrow_upward
36
arrow_downward

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
person gung - Reinstate Monica    schedule 14.01.2014

arrow_upward
10
arrow_downward

Из кода 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
person Jilber Urbina    schedule 14.01.2014

arrow_upward
6
arrow_downward

Числа roman в R соответствуют документам. :

объекты класса "roman", которые внутренне представлены как целые числа и имеют подходящие методы для печати, форматирования, подмножества и приведения к character.

Поэтому вы должны иметь возможность вернуть целочисленное значение, используя as.integer():

as.integer(as.roman(79)+as.roman(12))
person jonrsharpe    schedule 14.01.2014