r - 将文本美元值转换为 R 中的常规数值

Question

我有一个写为“$164.72k”或“$1.72m”的美元值，我想将它们分别转换为通常的数值 164720 和 1072000。完成这项任务最简单的方法是什么？

Answer 1

我觉得应该可以

library(tidyverse)


exsample_data <- tibble(values = c("$164.72k","$1.72m"))
exsample_data %>% 
  mutate(millions=str_detect(values,"m"), #Get indicator variable if number is in millions
         thousands=str_detect(values,"k"),
         values=str_remove(values,"k|m"),
         values=str_remove(values,"\\$"), #Remove the k, m and dollar sign
         values=as.numeric(values), #Convert from character to numeric
         values=ifelse(millions==TRUE,values*1000000,values), #Multiply by approrate amount to make it regular number, depending on whether it had a k or m
         values=ifelse(thousands==TRUE,values*1000,values))