luoyexuge的专栏

今天刚刚好了解到，看看吧：： for (i in 1:nrow(iris)) eval(parse(text=paste(paste('a',i,sep=''), '= iris[',i,',]$Sepal.Length')))

这个函数是在stringr包下面的一个函数，在做数据清洗的时候还是很有用的，大概用法就是去提取一个字符串下的某种内容，按照一些自己想要的规则，具体用法如下：x str_extract_all(x,"[f0-9]")[[1]][1] "f" "1" "2"> str_extract_all(x,"[f0-9]{1,3}")[[1]][1] "f12"> str

中文分词一直是一个不大容易解决的问题，Rwordseg包是一个很不错的包，之前的tm包效果实际不是很理想，当然还出现了一个jiebaR的包，这个跟python中的jieba有点像，不说了，具体上代码看看先把，下面的代码也是网上到处凑在一起整合的成的资料，基本上涵盖了Rwordseg包的使用方法：options(warn=-1)library(rJava)library(Rwordseg)

对于一个软件来讲，若是开源其发展速度是很快的，在R软件中，去年年底就发布了jiebaR分词包，上学的那会jieba包总是出现在python中，没想到在R软件中也用的到，这不全几天接了点私活，正好要用到R软件做分词，正好学习下这个包，总体来讲这个包还是蛮强大的，中文分词很准确，能快速的上手，直接上代码：library(jiebaRD)library(jiebaR)# library(

下午在床上睡觉，听朋友说要说ggvis包，之前都没怎么用过啊，赶紧起来查查，原来是Hadley开发的一个包，Hadley绝对是个牛人，对R软件的贡献学R的人都知道，到官网上去找了这个包的安装文档，依赖于shiny包的，再去cos论坛看Hadley的采访，原来这玩意寄以重任，看做是下一代ggplot2，ggplot2已经很优秀了，ggvis在中国显得默默无名，不多说，在官网上找了点资料，动手写了写了

上午用R处理写了一些代码，做了一些数据处理工作，代码很快就写完，最后要把生成的目标表插入mysql数据库中出现了点问题，折腾了好一会:conn <- dbConnect(MySQL(), dbname = "analyse", username="root", password="Pa123456!",host="202.69.27.239",port=8443)# dbSendQuery(

昨天晚上查看了下用python怎么调用R语言，方法有三种，选择了其中一种比较简单实用的方法记录下来，废话不多说，直接看怎么做：第一：   easy_install   PypeR    这个包不需要依赖于其他的包，很快就能安装上第二：直接运行代码#coding:utf-8'''Created on 2015年9月10日@author: ZHOUMEIXU204''

工作中经常要ggplot各种图形，下面是这几个月用ggplot画图的一些代码，最经常碰到的情况就是各个类别下的频率，在柱状图中每个分类上显示百分比，各个类别对应的字体要倾斜，各个图的颜色什么的，总之一大堆的事情，下面就是ggplot包中的针对这些技巧的代码，数据用的R软件自带的mpg数据  以字段class为例，class是汽车的类型，具体上代码：library(ggplot2)librar

python调用R的方法有很多，有的用人rpy2  ，有的用pyper，还有一些其他包，本人选取的是用pyper包来调用R语言，下面给出一个例子：#coding:utf-8'''Created on 2015年9月10日@author: ZHOUMEIXU204'''# execfile(u"D:\\Users\\zhoumeixu204\\Desktop\\zhongch

今天快下班的时候，业务临时提出了个需求，想看到网站跳出率分析数据，不得不在用气ggplot2快速画了几个图，中途还出了点差错，reshape包中的melt函数太久没用，忘了，耽误不少时间，不说，直接上ggplot的代码，代码实现的是散点连线图，有很多细节方面的东西，有心情的话看看：library(RMySQL)library(ggplot2)library(reshape)# 文件操作

我们知道无论是java和python都有错误处理机制，java是try。。。catch之类的形式，python是try。。。except的形式，这种抓错的形式是很好的，在R中也有类似的东西，那就是tryCatch函数，刚刚开始是不知道，后来把R机器学习实战那本书的代码写了一遍才知道，具体看看怎么用的把：（1）抓取错误tryCatch(libray(xx),error=function(e)

(1)获取当前日期有两个函数一个是Sys.Date()，另外一个是Sys.time(),获得向前向后的时间 t<-Sys.time() t[1] "2015-09-22 18:53:56 CST"t是一种长整形的数据自1970-01-01年开始，用unclass()函数得到，时间单位是秒> unclass(t)[1] 1442919236获取一个小时前的日期as.P

先看显卡:root@image-ubuntu:/home/zhoumeixu/credit-textclassify-deeplearning# nvidia-smi Fri Jul 14 08:00:24 2017 +----------------------------------------------------------------------------