{"rsdb":{"rid":"179514","subhead":"","postdate":"0","aid":"130287","fid":"91","uid":"1","topic":"1","content":"<div id=\"cnblogs_post_body\">\n <p><span style=\"font-family: 'Microsoft YaHei';\"><span style=\"font-size: 14px;\"><strong>\u89e3\u51b3\u7684\u95ee\u9898\uff1a<\/strong><\/span>\u9700\u8981\u8bfb\u53d6\u67d0\u4e2a\u5927\u6587\u4ef6\u5939\u4e0b\u6240\u6709\u5b50\u6587\u4ef6\u5939\u4e2d\u7684excel\u6587\u4ef6\uff0c\u5e76\u6c47\u603b\uff0c\u6c47\u603b\u6587\u4ef6\u4e2d\u9700\u8981\u5305\u542b\u76842\u90e8\u5206\u7684\u4fe1\u606f\uff1a1.\u8be5\u6761\u6570\u636e\u6765\u6e90\u4e8e\u54ea\u4e2a\u5b50\u6587\u4ef6\u5939\uff1b2.\u8be5\u6761\u6570\u636e\u6765\u6e90\u4e8e\u54ea\u4e2aexcel\u6587\u4ef6\u3002\u6700\u7ec8\uff0c\u6309\u7167\u5b50\u6587\u4ef6\u5939\u5355\u72ec\u4fdd\u5b58\u6c47\u603b\u6587\u4ef6\uff0c\u6216\u8005\u53ea\u4fdd\u5b58\u6210\u4e00\u4e2a\u6c47\u603b\u6587\u4ef6\u3002<\/span><\/p> \n <p><span style=\"font-family: 'Microsoft YaHei';\"><span style=\"font-size: 14px;\"><strong>\u573a\u666f\u63cf\u8ff0\uff1a<\/strong><\/span>\u6293\u53d6\u4e86\u5404\u4e2aAPP\u7684\u4f7f\u7528\u6570\u636e\uff0c\u5206\u6563\u5730\u4fdd\u5b58\u5728\u5404\u4e2a\u6587\u4ef6\u5939\u4e2d\u3002\u6587\u4ef6\u683c\u5f0f\u5982\u4e0b\uff1a<\/span><\/p> \n <ul> \n  <li><span style=\"font-family: 'Microsoft YaHei';\">\u7b2c\u4e00\u7ea7\u5206\u7c7b\uff1a\u6587\u4ef6\u5939\u540d<\/span><\/li> \n <\/ul> \n <p><img style=\"font-family: 'Microsoft YaHei'; line-height: 1.5;\" src=\"https:\/\/www.cppentry.com\/upload_files\/article\/91\/1_1avi3__.png\" alt=\"\" \/><\/p> \n <ul> \n  <li> <p>\u7b2c\u4e8c\u7ea7\u5206\u7c7b\uff1a\u6587\u4ef6\u5939\u4e0bxlsx\u6587\u4ef6\u540d<\/p> <\/li> \n <\/ul> \n <p><img src=\"https:\/\/www.cppentry.com\/upload_files\/article\/91\/1_reyyt__.png\" alt=\"\" \/><\/p> \n <ul> \n  <li> <p>\u7b2c\u4e09\u7ea7\u5206\u7c7b\uff1a\u6bcf\u4e2axlsx\u6587\u4ef6\u4e2d\u6bcf\u884c\uff08\u5177\u4f53\u7684\u6bcf\u6761\u6570\u636e\uff09\uff0c\u4f46\u5176\u4e2d\u5e76\u6ca1\u6709\u8be5APP\u5c5e\u4e8e\u7684\u4e8c\u7ea7\u5206\u7c7b\u548c\u4e00\u7ea7\u5206\u7c7b\uff0c\u9700\u8981\u4e3a\u6bcf\u6761\u6570\u636e\u6dfb\u52a0\u4e8c\u7ea7\u5206\u7c7b\u548c\u4e00\u7ea7\u5206\u7c7b\uff0c\u5e76\u6700\u7ec8\u6c47\u603b\u5230\u4e00\u4e2a\u6587\u4ef6\u4e2d\u3002<\/p> <\/li> \n <\/ul> \n <p><img src=\"https:\/\/www.cppentry.com\/upload_files\/article\/91\/1_opkcu__.png\" alt=\"\" \/><\/p> \n <p><span style=\"font-size: 16px;\"><strong><span style=\"font-family: 'Microsoft YaHei'; line-height: 1.5;\">\u89e3\u51b3\u65b9\u6cd5\u4e00\uff1a<\/span><\/strong><\/span><\/p> \n <div class=\"cnblogs_Highlighter\"> \n  <pre class=\"brush:r;gutter:true;\">#\u4f5c\u7528\uff1a\u8bfb\u53d6\u6bcf\u4e2a\u6587\u4ef6\u5939\u4e0b\u7684excel\uff0c\u5e76\u5c06\u5176\u5408\u5e76\u6210\u4e00\u4e2a\u6587\u4ef6\u3002\r\n#\u5171\u67093\u7ea7\uff1a\u7b2c\u4e00\u7ea7\uff1a\u6587\u4ef6\u5939\u540d\uff0c\u7b2c\u4e8c\u7ea7\uff1a\u6587\u4ef6\u5939\u4e2d\u7684xlsx\u6587\u4ef6\u540d\uff0c\u7b2c\u4e09\u7ea7\uff1axlsx\u6587\u4ef6\u4e2d\u7684\u6bcf\u884c<br \/>#\u4ee3\u7801\u540e\u9762\u6ce8\u91ca\u4e2d\u82e5\u6709\uff1a\u3010\u4fee\u6539\u3011\u5b57\u6837\uff0c\u5219\u8868\u793a\u5982\u679c\u8981\u5728\u4f60\u673a\u5668\u4e0a\u8fd0\u884c\u8be5\u6bb5\u4ee3\u7801\u65f6\uff0c\u9700\u8981\u8fdb\u884c\u76f8\u5e94\u7684\u4fee\u6539\u3002\r\n\r\n##########\u65b9\u6cd5\u4e00\uff1a\u6700\u7ec8\u5355\u72ec\u4fdd\u5b58\u5728\u6bcf\u4e2a\u6587\u4ef6\u5939\u4e0b\r\nrm(list=ls())\r\nsetwd(&quot;E:\/cnblogs&quot;)                                    #\u8bbe\u5b9a\u5de5\u4f5c\u76ee\u5f55\u3010\u4fee\u6539\u3011\r\n\r\nlibrary(xlsx)\r\n\r\nfirst_category_name = list.files(&quot;APP\u6574\u7406&quot;)            #list.files\u547d\u4ee4\u5f97\u5230&quot;APP\u6574\u7406\u201d\u6587\u4ef6\u5939\u4e0b\u6240\u6709\u6587\u4ef6\u5939\u7684\u540d\u79f0\u3010\u4fee\u6539\u3011\r\ndir = paste(&quot;.\/APP\u6574\u7406\/&quot;,first_category_name,sep=&quot;&quot;)   #\u7528paste\u547d\u4ee4\u6784\u5efa\u8def\u5f84\u53d8\u91cfdir,\u7b2c\u4e00\u7ea7\u76ee\u5f55\u7684\u8be6\u7ec6\u8def\u5f84\u3010\u4fee\u6539\u3011\r\nn = length(dir)                                       #\u8bfb\u53d6dir\u957f\u5ea6\uff0c\u4e5f\u5c31\u662f\uff1a\u603b\u5171\u6709\u591a\u5c11\u4e2a\u4e00\u7ea7\u76ee\u5f55                                                     \r\n\r\nn_sub&lt;-rep(0,n)\r\nn_sub&lt;-as.data.frame(n_sub)\r\nn_sub&lt;-t(n_sub)\r\nhead(n_sub)                                          #n_sub\u662f\u6bcf\u4e2a\u4e00\u7ea7\u76ee\u5f55(\u6587\u4ef6\u5939)\u4e0b\u6709\u591a\u5c11\u4e2a\u6587\u4ef6\uff0c\u4e5f\u5c31\u662f\uff1a\u6709\u591a\u5c11\u4e2a\u4e8c\u7ea7\u76ee\u5f55\uff0c\u521d\u59cb\u5316\u4e3a0\uff0c\u7528\u4e8e\u540e\u9762\u7684\u64cd\u4f5c\r\n\r\n##########\r\nfor(i in 1:n){         #\u5bf9\u4e8e\u6bcf\u4e2a\u4e00\u7ea7\u76ee\u5f55(\u6587\u4ef6\u5939)\r\n  b=list.files(dir[i]) #b\u662f\u5217\u51fa\u6bcf\u4e2a\u4e00\u7ea7\u76ee\u5f55(\u6587\u4ef6\u5939)\u4e2d\u6bcf\u4e2axlsx\u6587\u4ef6\u7684\u540d\u79f0\r\n  n_sub[i]=length(b)   #\u5f97\u5230\u4e00\u7ea7\u76ee\u5f55(\u6587\u4ef6\u5939)\u4e0bxlsx\u7684\u6587\u4ef6\u4e2a\u6570:n_sub\r\n  \r\n  merge_1&lt;-read.xlsx(&quot;E:\/cnblogs\/APP\u6574\u7406\/xlsx\u6587\u4ef6\u6837\u4f8b.xlsx&quot;,sheetIndex=1,encoding='UTF-8')#\r\n  dim(merge_1)\r\n  names(merge_1)&lt;-c('\u5e8f\u53f7','APP','2016-01-11','2016-01-12','2016-01-13','2016-01-14','2016-01-15','2016-01-16','2016-01-17')#\u6211\u7684\u6587\u4ef6\u5217\u540d\uff0c\u6839\u636e\u4f60\u5177\u4f53\u60c5\u51b5\u4fee\u6539\u3010\u4fee\u6539\u3011\r\n  merge_1$second_category&lt;-'second_category'\r\n  merge_1$first_category&lt;-'first_category'\r\n  merge_1&lt;-merge_1[1,-1]    #\u8fd9\u4e00\u6bb5\u7684\u76ee\u7684\u662f\u8bfb\u53d6\u4e00\u4e2axlsx\u6587\u4ef6\u6837\u4f8b\uff0c\u5f97\u5230\u4e00\u4e2a\u521d\u59cb\u7684dataframe(\u4e0d\u542b\u6570\u636e)\uff0c\u514d\u9664\u4e86\u540e\u9762\u91cd\u65b0\u5efa\u7acbdatafram\u7684\u9ebb\u70e6\uff0c\u7528\u4e8e\u540e\u9762\u6587\u4ef6\u7684rbind\u62fc\u63a5\r\n  \r\n  for(j in 1:n_sub[i]){     #\u5bf9\u4e8e\u6bcf\u4e2a\u4e00\u7ea7\u76ee\u5f55(\u6587\u4ef6\u5939)\u4e0b\u7684\u6bcf\u4e2axlsx\u6587\u4ef6\r\n    new_1&lt;-read.xlsx(file=paste(dir[i],'\/',b[j],sep=''),sheetIndex=1,encoding='UTF-8') #\u8bfb\u53d6xlsx\u6587\u4ef6\r\n    names(new_1)&lt;-c('\u5e8f\u53f7','APP','2016-01-11','2016-01-12','2016-01-13','2016-01-14','2016-01-15','2016-01-16','2016-01-17')\u3010\u4fee\u6539\u3011\r\n    new_1&lt;-new_1[-1,-1]     #\u56e0\u4e3a\u5b9e\u9645\u6570\u636e\u9700\u8981\uff0c\u5220\u9664\u7b2c\u4e00\u884c\u548c\u7b2c\u4e00\u5217\uff08\u6839\u636e\u5b9e\u9645\u8bfb\u53d6xlsx\u6587\u4ef6\u7684\u60c5\u51b5\u8fdb\u884c\u4fee\u6539\uff09\r\n    new_1$second_category&lt;-substr(b[j],1,4)        #\u4e8c\u7ea7\u76ee\u5f55\u7684\u540d\u79f0\u662fxlsx\u7684\u6587\u4ef6\u540d\u3002\r\n    new_1$first_category&lt;-first_category_name[i]   #\u4e00\u7ea7\u76ee\u5f55\u7684\u540d\u79f0\u662f\u201c\u6587\u4ef6\u5939\u540d\u201d\r\n    merge_1&lt;-rbind(merge_1,new_1)\r\n  }\r\n  write.xlsx(merge_1,paste(dir[i],'\/merge.xlsx',sep=''),row.names = F,col.names= F)#\u5355\u72ec\u4fdd\u5b58\u5728\u6bcf\u4e2a\u6587\u4ef6\u5939\u4e0b\r\n}\r\n<\/pre> \n <\/div> \n <p><span style=\"font-size: 16px; font-family: 'Microsoft YaHei';\"><strong>\u89e3\u51b3\u65b9\u6cd5\u4e8c\uff1a<\/strong><\/span><\/p> \n <div class=\"cnblogs_Highlighter\"> \n  <pre class=\"brush:r;gutter:true;\"><span style=\"line-height: 1.5;\">##########\u65b9\u6cd5\u4e8c\uff1a\u6700\u7ec8\u5f97\u5230\u4e00\u4e2a\u6c47\u603b\u7684xlsx\u6587\u4ef6\uff0c\u5728\u6bcf\u4e2a\u6587\u4ef6\u5939\u4e0b\u5e76\u6ca1\u6709\u4fdd\u5b58\u5355\u72ec\u7684\u5408\u5e76\u6587\u4ef6<\/span><\/pre> \n  <pre class=\"brush:r;gutter:true;\">rm(list=ls())\r\nsetwd(&quot;E:cnblogs&quot;)      #\u8bbe\u5b9a\u5de5\u4f5c\u76ee\u5f55\u3010\u4fee\u6539\u3011\r\n\r\nlibrary(xlsx)\r\n\r\nfirst_category_name = list.files(&quot;APP\u6574\u7406&quot;)            #list.files\u547d\u4ee4\u5f97\u5230&quot;APP\u6574\u7406&quot;\u6587\u4ef6\u5939\u4e0b\u6240\u6709\u6587\u4ef6\u5939\u7684\u540d\u79f0\r\ndir = paste(&quot;.\/APP\u6574\u7406\/&quot;,first_category_name,sep=&quot;&quot;)   #\u7528paste\u547d\u4ee4\u6784\u5efa\u8def\u5f84\u53d8\u91cfdir,\u7b2c\u4e00\u7ea7\u76ee\u5f55\u7684\u8be6\u7ec6\u8def\u5f84\r\nn = length(dir)                                        #\u8bfb\u53d6dir\u957f\u5ea6\uff0c\u4e5f\u5c31\u662f\uff1a\u603b\u5171\u6709\u591a\u5c11\u4e2a\u4e00\u7ea7\u76ee\u5f55                                                     \r\n\r\nn_sub&lt;-rep(0,n)\r\nn_sub&lt;-as.data.frame(n_sub)\r\nn_sub&lt;-t(n_sub)\r\nhead(n_sub)        #n_sub\u662f\u6bcf\u4e2a\u4e00\u7ea7\u76ee\u5f55(\u6587\u4ef6\u5939)\u4e0b\u6709\u591a\u5c11\u4e2a\u6587\u4ef6\uff0c\u4e5f\u5c31\u662f\uff1a\u6709\u591a\u5c11\u4e2a\u4e8c\u7ea7\u76ee\u5f55\uff0c\u521d\u59cb\u5316\u4e3a0\uff0c\u7528\u4e8e\u540e\u9762\u7684\u64cd\u4f5c\r\n\r\nmerge_1&lt;-read.xlsx(&quot;E:\/cnblogs\/APP\u6574\u7406\/xlsx\u6587\u4ef6\u6837\u4f8b.xlsx&quot;,sheetIndex=1,encoding='UTF-8')\r\ndim(merge_1)\r\nnames(merge_1)&lt;-c('\u5e8f\u53f7','APP','2016-01-11','2016-01-12','2016-01-13','2016-01-14','2016-01-15','2016-01-16','2016-01-17')#\u6211\u7684\u6587\u4ef6\u7684\u5217\u540d\u3010\u4fee\u6539\u3011\r\nmerge_1$second_category&lt;-'second_category'\r\nmerge_1$first_category&lt;-'first_category'\r\nmerge_1&lt;-merge_1[1,-1]    #\u8fd9\u4e00\u6bb5\u7684\u76ee\u7684\u662f\u8bfb\u53d6\u4e00\u4e2axlsx\u6587\u4ef6\u6837\u4f8b\uff0c\u5f97\u5230\u4e00\u4e2a\u521d\u59cb\u7684dataframe(\u4e0d","orderid":"0","title":"[R\u8bed\u8a00]\u8bfb\u53d6\u6587\u4ef6\u5939\u4e0b\u6240\u6709\u5b50\u6587\u4ef6\u5939\u4e2d\u7684excel\u6587\u4ef6\uff0c\u5e76\u6839\u636e\u5206\u7c7b\u5408\u5e76\u3002(\u4e00)","smalltitle":"","mid":"0","fname":"R\u8bed\u8a00","special_id":"0","bak_id":"0","info":"0","hits":"10093","pages":"2","comments":"0","posttime":"2017-10-10 12:10:26","list":"1507608626","username":"admin","author":"","copyfrom":"","copyfromurl":"","titlecolor":"","fonttype":"0","titleicon":"0","picurl":"https:\/\/www.cppentry.com\/upload_files\/article\/91\/1_1avi3__.png","ispic":"1","yz":"1","yzer":"","yztime":"0","levels":"0","levelstime":"0","keywords":"<A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%D3%EF%D1%D4' target=_blank>\u8bed\u8a00<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%B6%C1%C8%A1' target=_blank>\u8bfb\u53d6<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%CE%C4%BC%FE%BC%D0' target=_blank>\u6587\u4ef6\u5939<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%CB%F9%D3%D0' target=_blank>\u6240\u6709<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=excel' target=_blank>excel<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%CE%C4%BC%FE' target=_blank>\u6587\u4ef6<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%B8%F9%BE%DD' target=_blank>\u6839\u636e<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%B7%D6%C0%E0' target=_blank>\u5206\u7c7b<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%BA%CF%B2%A2' target=_blank>\u5408\u5e76<\/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\u8bed\u8a00]\u8bfb\u53d6\u6587\u4ef6\u5939\u4e0b\u6240\u6709\u5b50\u6587\u4ef6\u5939\u4e2d\u7684excel\u6587\u4ef6\uff0c\u5e76\u6839\u636e\u5206\u7c7b\u5408\u5e76\u3002","lastview":"1714783549","digg_num":"6394","digg_time":"0","forbidcomment":"0","ifvote":"0","heart":"","htmlname":"","city_id":"0"},"page":"1"}