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)

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

3 个答案: