关闭

疑难杂症

140人阅读 评论(0) 收藏 举报

1.获取经纬度

a<-"鹰潭"

get_geo_position(a)

a<-unique(main_uprovince$origin)

get_geo_position(a)


2.正则匹配,并提取数据

pattern<-'没有..'

data<-c("昨天傍晚没有下雨,所有没有带伞出去",
        "这周太忙了,所有这些任务都没有按时做",
        "电脑没能装好")
regout <-regexpr(pattern,data)
regmatches(data,regout)

gregout <- gregexpr(pattern,data)
substr(data[1],gregout[[1]][2],gregout[[1]][2]+attr(gregout[[1]],'match.length')[2]-1)
length(gregout[[1]])


3.分组排序

library(plyr)
case2_data<-case_data
case2_data$product<-"动物园"
case_data$product[1]<-"动物园"
data<-rbind(case_data,case2_data)
data
sp<-split(data,data$product)
sp_order<-lapply(sp,FUN=function(x) rank(x$cash))


sp_total<-do.call(rbind.fill,sp) 
sp_order<-do.call(c,sp_order)
sp_total$order<-sp_order
sp_total









0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:21397次
    • 积分:461
    • 等级:
    • 排名:千里之外
    • 原创:25篇
    • 转载:3篇
    • 译文:0篇
    • 评论:3条
    文章分类
    最新评论