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

一种可能是：

SELECT DISTINCT tblPreviousExport.[Month Reported], tblPreviousExport.[Employee SSN],   
                tblPreviousExport.[Employee First Name], tblPreviousExport.[Employee Last Name], 
                tblPreviousExport.Pool, tblPreviousExport.OpCo, tblPreviousExport.Paygroup, 
                tblPreviousExport.[Effective Date], tblPreviousExport.[Medical Plan], 
                tblPreviousExport.[Coverage Level], tblPreviousExport.Type, 
                tblPreviousExport.[Tier Change Effective Date], tblPreviousExport.[Num Eligible Months], 
                tblPreviousExport.[Employee Ongoing Contribution], 
                tblPreviousExport.[Full Employer Contribution], 
                tblPreviousExport.[Prorated Employer Contribution],
                tblPreviousExport.[ER Contribution Already Received], 
                tblPreviousExport.[Total Contribution], tblPreviousExport.[Max Contribution]
FROM tblPreviousExport;

此处将原始字符串分割为空白，将第二个元素转换为阿拉伯数字，然后将两个元素粘贴回去。

Answer 2

您可以将函数直接传递给replacement的{{1}}参数：

str_replace

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

2 个答案: