如何将一串数字转换为一个数字向量然后求和？

Question

我想将字符串中的一些数字转换为单个数字，然后对其进行求和。我试过如下：

a <- as.character("100 + 100 + 50,00 + 100 + 50 + 5,000 + 
     100 + 100 + 100 + 100 + 100 + 100 + 
     20,000 + 3,000 + 20,000 + 100 + 1,300") 


#remove comma 
b <- gsub(",", "", a) 

# replace + with comma 
c <- gsub("+", "," , b, fixed = T) 

#sum it 
d <- as.numeric(c) 

警告消息： 来港受到胁迫

Answer 1

介绍去除逗号后，我们就可以使用eval与parse直接评估的字符串。

a <- as.character("100 + 100 + 50,00 + 100 + 50 + 5,000 + 
     100 + 100 + 100 + 100 + 100 + 100 + 
        20,000 + 3,000 + 20,000 + 100 + 1,300") 

b <- gsub(",","",a) 

eval(parse(text = b)) 
55350