如何把一个带有数字和字母的字符串转化为可用于计算的公式

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如图所示，如何将带有数字和字母的字符串，转化为一个可用于计算不同字母变量的公式？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：字符串 如图所示

1. library(stringr)
   
2. V1 <- c("-100.2+60.3*A1", "-78.675+74.888*B1","-33.63+143.234*B1") #示例向量
   
3. M <- matrix(c(as.numeric(str_extract(V1, "-\\d+.\\d+")),
   
4.               as.numeric(str_extract(V1, "\\+\\d+.\\d+")),
   
5.               str_extract(V1, "^*[A-Z]\\d+")), length(V1)) #提取分解
   
6. #     [,1]      [,2]     [,3]
   
7. #[1,] "-100.2"  "60.3"   "A1"
   
8. #[2,] "-78.675" "74.888" "B1"
   
9. #[3,] "-33.63"  "143.234" "B1"
   
10. M[which(M[, 3] == "A1"), 3] <- 3 #把矩阵中字母元素换成数值
    
11. M[which(M[, 3] == "B1"), 3] <- 4 #有几个就换几个
    
12. res <- cbind(M, as.numeric(M[, 1]) + as.numeric(M[, 2]) * as.numeric(M[, 3]))#矩阵第4列是结果
    
13. #     [,1]      [,2]     [,3] [,4]     
    
14. #[1,] "-100.2"  "60.3"   "3"  "80.7"   
    
15. #[2,] "-78.675" "74.888" "4"  "220.877"
    
16. #[3,] "-33.63"  "143.234" "4"  "539.306"

复制代码