从数字列向量中提取逗号之前的两位数

Question

我有一个模拟价格系列是列向量。由此，我需要在逗号前面提取我的两位数字，没有舍入，即价格为1,287.85的87和价格234.13的34，并将它们存储在另一个列向量中。

实施例

str2 <- c("87", "34")

期望的输出

def my_sum(lst):
    return sum(x for x in lst if x > 0)

Answer 1

我们可以使用str_extract

library(stringr)
as.numeric(str_extract(str1, "\\d{2}(?=\\.)"))
#[1] 87 34

数据

str1 <- c("1,287.85", "234.13")

Answer 2

您可以先使用as.integer(yournumber)删除小数部分，然后使用modulo 100操作：

a = 1287.54

as.integer(a) %% 100

#[1] 87