r - 有没有一种快速的方法可以将字符串中的罗马数字转换为 R 中的阿拉伯数字？

Question

我正在尝试将字符串中的罗马数字转换为阿拉伯数字。

我试过用stringr::str_sub选择对应的字符，用as.numeric(as.roman())转换，但是比我想象的还要乱.

A <- c("Case I", "Big Case II", "Not a Case", "This is Case IV")

我希望输出是:

"Case 1" "Big Case 2" "Not a Case" "This is Case 4"

Answer 1

一种可能是:

sapply(sapply(A, function(x) strsplit(x, " ", fixed = TRUE), USE.NAMES = FALSE), 
       function(x) paste(x[1], as.numeric(as.roman(x[2])), collapse = " "))

[1] "Case 1" "Case 2" "Case 3" "Case 4"

这里它将原始字符串拆分为一个空格，将第二个元素转换为阿拉伯数字，然后将这两个元素粘贴回一起。