用R语言解析字符串

39 篇文章 9 订阅

        常见字符串的字符串操作:合并与分割。

1. 合并字符串

        paste函数用于合并字符串,其基本形式为 paste( <字符串>..., sep=" "),其中的参数如表2-13所示:


            示例代码如下:

> data <- "4分50秒"
> data <- paste("网站停留时间:","3小时",data,sep="")
> data
  [1] "网站停留时间:3小时4分50秒"


2. 分割字符串

      strsplit 函数可以依据特定字符串来把字符串分割为列表,其中用于分割的字符串将不再出现。下面,将把字符串“网站停留时间:3小时4分50秒”转化为用户停留时间的实数(以秒为单位)。

      详细代码,保存在test.R中,如下:

 data <- "4分50秒"
 data <- paste("网站停留时间:","3小时",data,sep="")


 data <- strsplit(strsplit(data,split=":")[[1]][2], split="小时"); 
 data <- unlist(data); 
 h <- as.numeric(data[1]); 

 min.sec <- data[2];
 min.sec <- unlist(strsplit(min.sec,split="分"))
 min <- as.numeric(min.sec[1])


 sec <- min.sec[2];
 sec <- unlist(strsplit(sec,split="秒"));
 sec <- as.numeric(sec[1])
 
 times <- 3600*h+60*min+sec
 list <- "times="
 print("times=")
 print(times)

    效果如下:








评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

sanqima

一键三连,多多益善

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值