如何將一串數字轉換爲一個數字向量然後求和？

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