最近处理数据遇到了分数表示的字符串，希望其能变成小数，现找到如下一些解法
例如，有如下分数字符串，要把它转变为小数
options(stringsAsFactors = F)
a <- c("1/2","6/11","13/21","71/132","136/555")
a <- data.frame(name=a)
第一种方法
b <- apply(a,1,function(x) eval(parse(text=x)))
利用eval(parse())函数，不多说
第二种方法
library(stringr)
b <- as.data.frame(apply(str_split(a$name,"/",simplify = T),2,as.numeric))
b <- b[,1]/b[,2]
利用stringr包中的字符串拆分函数str_split()将其拆分并简化
第三种方法
b <- lapply(str_split(a$name,"/"),as.numeric)
b <- sapply(b,function(x) temp=x[[1]]/x[[2]] )
同样利用str_split()函数但不简化，之后使用sapply()函数简化
第四种方法
library(DOSE)
b <- parse_ratio(a$name)
直接使用DOSE包中现成的函数
第五种方法
temp1 <- as.numeric(sub("(\\d+)/\\d+","\\1",a$name))
temp2 <- as.numeric(sub("\\d+/(\\d+)","\\1",a$name))
b <- temp1/temp2
利用sub()函数查找并保留想要的部分
第六种方法
index <- str_locate(a$name,"/")[,1]
temp1 <- as.numeric(str_sub(a$name,1,index-1))
temp2 <- as.numeric(str_sub(a$name,index+1,nchar(a$name)))
b <- temp1/temp2
利用str_locate()函数定位“\”符号，之后使用str_sub()函数进行字符串截取
