Question

我正在尝试编写一个将中文数字转换为阿拉伯语的函数。我们的想法是获取一组scaled_digit向量和一组scale_factor向量，将它们相乘并相加以生成所需的输出。

digit=c('〇'=0,'一'=1,'二'=2,'三'=3,'四'=4,'五'=5,'六'=6,'七'=7,'八'=8,'九'=9)
scale=c('十'=10^1,'百'=10^2,'千'=10^3,'萬'=10^4,'億'=10^8,'兆'=10^12)

我遇到的一个问题是：

当我的数字是几百10^4 s（万）和几千10^12 s（兆）时，我留下了一个比例因子矢量，如下所示：

scale_factor=
structure(c(1000, 1e+12, 100, 10, 10000, 1000, 100, 10), .Names = c("千", 
"兆", "百", "十", "萬", "千", "百", "十"))

   [千]     兆    [百]    [十]    萬    千    百    十 
  [1e+03] 1e+12 [1e+02] [1e+01] 1e+04 1e+03 1e+02 1e+01

要调整的比例因子已标记为[]。

可以使用以下代码找到基数scale_factors的位置：

cardinal_scale_factor=which(diff(scale_factor)>=0, T)+1

兆 萬 
 2  5

我如何编码，以便scale_factor[1]和scale_factor[3:4]可以分别乘以scale_factor[2]和[5]？

预期结果：

   [千]     兆    [百]    [十]    萬    千    百    十 
  [1e+15] 1e+12 [1e+06] [1e+05] 1e+04 1e+03 1e+02 1e+01

Answer 1

可能的解决方案：

w1 <- which(rev(cummax(rev(scale_factor)) > rev(scale_factor)))

grp <- cumsum(c(1,diff(w1)) > 1) + 1

w2 <- aggregate(w1, list(grp), max)[[2]] + 1

scale_factor[w1] <- scale_factor[w1] * scale_factor[w2][grp]

给出：

> scale_factor
   千    兆    百    十    萬    千    百    十 
1e+15 1e+12 1e+06 1e+05 1e+04 1e+03 1e+02 1e+01

这是做什么的：

使用cummax(rev(scale_factor))，您可以获得反转比例的累积最大值。
将其与反转比例（cummax(rev(scale_factor)) > rev(scale_factor)）进行比较，得出逻辑向量。
随后将rev和which中的步骤2中的逻辑向量包裹起来，得到一个不符合递减条件的位置w1的索引向量。
使用cumsum(c(1,diff(w1)) > 1) + 1，您可以对示例数据中的第3和第4个值进行分组。
使用aggregate(w1, list(grp), function(x) max(x) + 1)[[2]]确定乘数的位置。
最后，您将scale_factor中确定的w1中的值乘以w2的乘数。您需要使用w2中的组编号对grp编号。

根据特定规则调整矢量子集值

1 个答案: