R根据字符串值重新编码列

Question

我有一个数据框如下

date     volume
1-1-90    1.1M
2-1-90     200
3-1-90     0.5M
4-1-90    100
5-1-90     1M

M的值表示百万。 我想检测其中带有字母M或m的值，并将这些值转换为数值等效项

date     volume
1-1-90    1100000
2-1-90     200
3-1-90     500000
4-1-90    100
5-1-90    10000000

在R中有一种不错的方法吗？

我使用了ifelse条件，如下所示

(df)[, Volumes := ifelse(volume %in% c("m", "M"),volume * 1000000,0)]

但这似乎不起作用。 我肯定忽略了那一定是微不足道的。

Answer 1

> dat$volume <- ifelse( grepl("M|m" ,dat$volume), 
                             1e6*as.numeric(sub("M|m","", dat$volume)), 
                             as.numeric(as.character(dat$volume) ) )
> dat
    date  volume
1 1-1-90 1100000
2 2-1-90     200
3 3-1-90  500000
4 4-1-90     100
5 5-1-90 1000000

Answer 2

在我看来，就像你有一个data.table对象有（或者也许你错误地使用data.table在语法data.frame ？）

无论如何，如果df是一个data.table对象，我会选择

df[grepl("m", volume, ignore.case = T), 
   volume2 := as.numeric(gsub("m", "", volume, ignore.case = T)) * 1e6]
df[is.na(volume2), volume2 := as.numeric(as.character(volume))][, volume := NULL]
df
#      date volume2
# 1: 1-1-90 1100000
# 2: 2-1-90     200
# 3: 3-1-90  500000
# 4: 4-1-90     100
# 5: 5-1-90 1000000

Answer 3

stringr包也可以在这里工作：

require(stringr)

dat$volume <- ifelse(str_sub(dat$volume, -1) == "M"
                     ,as.numeric(str_sub(dat$volume, 0, nchar(dat$volume)-1))*1000000
                     ,dat$volume)