从数据列中删除点

Question

我是处理 R 和字符串的初学者。我一直在尝试从数据中删除句点，但不幸的是我找不到解决方案。

这是我在数据帧 df 中处理的数据:

df <- read.table(text = " n   mesAno          receita
                 97   1/2009 3.812.819.062,06
                 98   2/2009 4.039.362.599,36
                 99   3/2009 3.652.885.587,18
                 100  4/2009 3.460.247.960,02
                 101  5/2009 3.465.677.403,12
                 102  6/2009 3.131.903.622,55
                 103  7/2009 3.204.983.361,46
                 104  8/2009 3.811.786.009,24
                 105  9/2009 3.180.864.095,05
                 106 10/2009 3.352.535.553,88
                 107 11/2009 5.214.148.756,95
                 108 12/2009 4.491.795.201,50
                 109  1/2010 4.333.557.619,30
                 110  2/2010 4.808.488.277,86
                 111  3/2010 4.039.347.179,81
                 112  4/2010 3.867.676.530,69
                 113  5/2010 6.356.164.873,94
                 114  6/2010 3.961.793.391,19
                 115  7/2010    3797656130.81
                 116  8/2010    4709949715.37
                 117  9/2010    4047436592.12
                 118 10/2010    3923484635.28
                 119 11/2010    4821729985.03
                 120 12/2010    5024757038.22", 
header = TRUE, 
stringsAsFactors = TRUE)

我的目标是将 receita 列转换为数字，因为它被存储为因子。但是应用像 as.numeric(as.factor(x)) 这样的转换函数在 97:114 区间内不起作用(它强制转换为 NA)。

我想这是因为此列中分隔十亿/百万/千的句点。只有当我有类似 3812819062.06 的 115:120 时，上述转换函数才会起作用。

我尝试改变数据集，添加另一列和建模。我真的不知道我在做什么，但我也尝试将异常数字提取到一个变量中，并对它们应用 sub/gsub 但没有成功。

是否有一些直接的方法可以做到这一点，即指示它删除 2 个第一次出现的“。”然后用'.'替换逗号？我非常有信心我需要的功能是 gsub 但我很难找到正确的用法。任何帮助将不胜感激。

编辑:我使用 dplyr::mutate() 的方法。丑陋但有效。

df <- df %>% 
mutate(receita_temp = receita) %>% 
mutate(dot_count = str_count(receita, '\\.')) %>% 
mutate(receita_temp = ifelse(dot_count == 3, 
                             gsub('\\.', '', as.factor(receita_temp)), 
                             gsub('\\,', '.',as.factor(receita_temp))
                             )) %>% 
mutate(receita_temp = ifelse(dot_count == 3,
                             gsub('\\,', '.',as.factor(receita_temp)),
                                  receita_temp)) %>% 
select(-c(dot_count, receita)) %>% 
rename(., receita = receita_temp)

Answer 1

我正在使用正则表达式和一些 stringr 函数来删除所有句点，但后跟两位数字和字符串结尾的句点除外。这样，像 3.811.786.009,24 中表示分隔的句点将被删除，但像 4821729985.03 中表示小数点开始的句点不会被删除。使用 str_remove_all 而不是 str_remove 让我不必担心重复删除匹配项或它的扩展性。然后用句点替换剩余的逗号，并将其设为数字​​。

library(tidyverse)

df2 <- df %>%
  mutate(receita = str_remove_all(receita, "\\.(?!\\d{2,}$)") %>% 
           str_replace_all(",", ".") %>%
           as.numeric())

print(head(df2), digits = 12)
#>     n mesAno       receita
#> 1  97 1/2009 3812819062.06
#> 2  98 2/2009 4039362599.36
#> 3  99 3/2009 3652885587.18
#> 4 100 4/2009 3460247960.02
#> 5 101 5/2009 3465677403.12
#> 6 102 6/2009 3131903622.55

由 reprex package 创建于 2018-09-04 (v0.2.0).