{"rsdb":{"rid":"179521","subhead":"","postdate":"0","aid":"130291","fid":"91","uid":"1","topic":"1","content":"
\n

\u6709\u51e0\u4e2aexcel\u8868\uff0c\u4f46\u662f\u6bcf\u4e2a\u8868\u4e2d\u7684\u6570\u636e\u90fd\u4e0d\u4e00\u6837\uff0c\u6240\u4ee5\u8bfb\u8fdbR\u91cc\u9762\u8fdb\u884c\u7b80\u5355\u7684\u5904\u7406\u3002\u8fc7\u7a0b\u5f88\u7b80\u5355\uff0c\u57fa\u672c\u662f\u6570\u636e\u7b5b\u9009\uff0c\u91cd\u547d\u540d\uff0c\u6dfb\u52a0\u5217\u8fd8\u6709\u5408\u5e76\u3002\u8fd8\u5305\u542b\u4e86\u8bfb\u53d6\u8868\u548c\u5b58\u50a8\u8868\u7684\u6ce8\u610f\u4e8b\u9879\u3002<\/p> \n

#\u767e\u5ea6
setwd("e:\/baidu")#\u8bbe\u7f6e\u5de5\u4f5c\u76ee\u5f55
a<-read.table("20151125.csv",sep=",",fill=T,skip=7,header = T)#\u8bfb\u53d6\u6587\u4ef6\uff0c\u8df3\u8fc7\u7a7a\u767d
a[,3]<-"baidu"#\u4fee\u6539\u7b2c\u4e09\u5217\u7684\u5185\u5bb9
b<-read.table("20151125(1).csv",sep=",",fill=T,skip=7,header = T)
b[,3]<-"baixingwang"
c<-rbind(a,b)#\u5408\u5e76\u4e24\u8868
baidu<-data.frame(c$\u65e5\u671f,c$\u8d26\u6237,c$\u63a8\u5e7f\u8ba1\u5212,c$\u5c55\u73b0,c$\u70b9\u51fb,c$\u6d88\u8d39)#\u6311\u9009\u6709\u7528\u53d8\u91cf<\/p> \n

colnames(baidu)=c("\u65e5\u671f","\u8d26\u6237","\u63a8\u5e7f\u8ba1\u5212","\u5c55\u73b0","\u70b9\u51fb","\u6d88\u8d39")#\u91cd\u65b0\u547d\u540d
#\u641c\u72d7
setwd("e:\/sogou")
d<-read.table("[\u641c\u72d7\u63a8\u5e7f\u670d\u52a1]\u5b9a\u5236\u62a5\u544a-\u641c\u72d7\u63a8\u5e7f\u62a5\u544a-2015-11-25_\u5168\u8bbe\u5907.csv",sep=",",fill=T,header = T)
d<-d[-1,]
sogou<-data.frame(d$\u65e5\u671f,d$\u8d26\u6237,d$\u63a8\u5e7f\u8ba1\u5212,d$\u5c55\u793a\u6570,d$\u70b9\u51fb\u6570,d$\u6d88\u8017)
sogou[,2]<-"sogou"
colnames(sogou)=c("\u65e5\u671f","\u8d26\u6237","\u63a8\u5e7f\u8ba1\u5212","\u5c55\u73b0","\u70b9\u51fb","\u6d88\u8d39")
#360\u70b9\u775b
setwd("e:\/360")
e<-read.table("2015-11-24\u63a8\u5e7f\u8ba1\u5212\u6570\u636e\u62a5\u544a.csv",sep=",",fill=T,header = T)
\u65e5\u671f<-c(1:length(e$\u63a8\u5e7f\u8ba1\u5212))
\u8d26\u6237<-c(1:length(e$\u63a8\u5e7f\u8ba1\u5212))
e<-data.frame(e,\u65e5\u671f,\u8d26\u6237)
e$\u65e5\u671f<-"2015\/11\/24"
e$\u8d26\u6237<-"360\u70b9\u775b"
dianjing<-data.frame(e$\u65e5\u671f,e$\u8d26\u6237,e$\u63a8\u5e7f\u8ba1\u5212,e$\u5c55\u793a\u6b21\u6570,e$\u70b9\u51fb\u6b21\u6570,e$\u603b\u8d39\u7528)
dianjing[,2]<-"360"
colnames(dianjing)=c("\u65e5\u671f","\u8d26\u6237","\u63a8\u5e7f\u8ba1\u5212","\u5c55\u73b0","\u70b9\u51fb","\u6d88\u8d39")
#\u795e\u9a6c=============
setwd("e:\/shenma")
library(xlsx)
f<-read.xlsx("\u8ba1\u5212\u63a8\u5e7f\u62a5\u544a-2015-11-25~2015-11-25#2015-11-26+15-46-38.xlsx",1,encoding='UTF-8')
f<-f[,1:6]
shenma<-data.frame(f)
shenma[,2]<-"shenma"
colnames(shenma)=c("\u65e5\u671f","\u8d26\u6237","\u63a8\u5e7f\u8ba1\u5212","\u5c55\u73b0","\u70b9\u51fb","\u6d88\u8d39")
#\u5408\u5e76============
all<-rbind(baidu,sogou,dianjing,shenma)#\u7eb5\u5411\u5408\u5e76
setwd("e:\/output")
write.csv(all,"\u56db\u6e20\u9053",row.names = FALSE)
#\u4e0e\u56db\u6e20\u9053\u5408\u5e76
setwd("e:\/ga")
#quote="\/""\u8ba4\u4e3a\u53ea\u6709\u53cc\u5f15\u53f7\u624d\u5206\u9694\uff0c\u8fd9\u6837Xi\u2019an\u53ef\u4ee5\u5728\u4e00\u8d77<\/span>
g<-read.table("Analytics \u5168\u7ad9\u6570\u636e \u4e8c\u624b\u623f\u6574\u7ad9\u9875 \uff08\u8ba1\u5212\uff09 20151030-20151129.csv",sep=",",fill=T,header = T,skip=6,quote = "\\"")
m<-merge(g,all,by="\u63a8\u5e7f\u8ba1\u5212",all=T)
setwd("e:\/output")
write.csv(m,"\u56db\u6e20\u9053\u5339\u914d.csv")
#\u8bfb\u53d6GA\u6570\u636e=============================================
#\u5168\u7ad9pv\u5bfc\u822a============================
setwd("e:\/ga")
b<-read.table("Analytics \u5168\u7ad9\u6570\u636e PV \u5bfc\u822a 20151116-20151122.csv",fill=T,sep=",",header = F,skip=7)
b<-b[1:(which(b$V1=="")[1]-1),]#\u6839\u636e\u7b2c\u4e00\u5217\u7684\u957f\u5ea6\u6765\u622a\u53d6\u6570\u636e\u3002\u56e0\u4e3a\u8fd9\u4e2a\u8868\u7b14\u8bb0\u7279\u6b8a\uff0c\u4e0a\u9762\u662f\u56db\u5217\uff0c\u4e0b\u9762\u4e24\u5217\uff0c\u4e24\u5217\u7684\u6570\u636e\u7528\u4e0d\u5230\u3002<\/span>
colnames(b)=c("\u6765\u6e90","\u4f1a\u8bdd","\u65b0\u4f1a\u8bdd\u767e\u5206\u6bd4","\u65b0\u7528\u6237","\u8df3\u51fa\u7387","\u6bcf\u6b21\u4f1a\u8bdd\u6d4f\u89c8\u9875\u6570","\u5e73\u5747\u4f1a\u8bdd\u65f6\u957f","\u7528\u6237\u6570","\u6d4f\u89c8\u91cf")

<\/p>\n<\/div>","orderid":"0","title":"R\u521d\u5b66\uff0c\u8fb9\u5b66\u8fb9\u5199\u535a\u5ba2\u3002\u65e5\u5e38\u5c0f\u5e94\u7528\u3002R\u5904\u7406exel\u3002","smalltitle":"","mid":"0","fname":"R\u8bed\u8a00","special_id":"0","bak_id":"0","info":"0","hits":"4710","pages":"1","comments":"0","posttime":"2017-10-10 12:10:39","list":"1507608639","username":"admin","author":"","copyfrom":"","copyfromurl":"","titlecolor":"","fonttype":"0","titleicon":"0","picurl":"https:\/\/www.cppentry.com\/upload_files\/","ispic":"0","yz":"1","yzer":"","yztime":"0","levels":"0","levelstime":"0","keywords":"\u521d\u5b66<\/A> \u8fb9\u5b66\u8fb9<\/A> \u535a\u5ba2<\/A> \u65e5\u5e38<\/A> \u5e94\u7528<\/A> \u5904\u7406<\/A> exel<\/A>","jumpurl":"","iframeurl":"","style":"","template":"a:3:{s:4:\"head\";s:0:\"\";s:4:\"foot\";s:0:\"\";s:8:\"bencandy\";s:0:\"\";}","target":"0","ip":"113.108.110.181","lastfid":"0","money":"0","buyuser":"","passwd":"","allowdown":"","allowview":"","editer":"","edittime":"0","begintime":"0","endtime":"0","description":"R\u521d\u5b66\uff0c\u8fb9\u5b66\u8fb9\u5199\u535a\u5ba2\u3002\u65e5\u5e38\u5c0f\u5e94\u7528\u3002R\u5904\u7406exel\u3002","lastview":"1713873256","digg_num":"8419","digg_time":"0","forbidcomment":"0","ifvote":"0","heart":"","htmlname":"","city_id":"0"},"page":"1"}