网站设计 品牌设计,个人做外贸哪个平台好,软文发布平台与板块,wordpress部署到外网前段时间看到plotnine库(封装的R语言ggplot2)作的图太美了#xff0c;有点想重新拾起R语言^_^R语言代码略带凌乱#xff0c;讲真的还是更喜欢Python代码简洁。不过好几年不琢磨R语言#xff0c;对R语言代码的凌乱美有些新奇#xff0c;很好玩#xff0c;这也许就是久别胜新…前段时间看到plotnine库(封装的R语言ggplot2)作的图太美了有点想重新拾起R语言^_^R语言代码略带凌乱讲真的还是更喜欢Python代码简洁。不过好几年不琢磨R语言对R语言代码的凌乱美有些新奇很好玩这也许就是久别胜新欢吧。而且R语言的文本分析生态也挺全的Python与R结合起来完美~R语言读写操作本章文件读写用到的包有readtextreadrreadxlwritexl其中readr、readxl均为tidyverse内的子包做数据分析一般绕不开tidyversetidyverse含有的包library(tidyverse)tidyverse::tidyverse_packages()## [1] broom cli crayon dbplyr dplyr## [6] forcats ggplot2 haven hms httr## [11] jsonlite lubridate magrittr modelr pillar## [16] purrr readr readxl reprex rlang## [21] rstudioapi rvest stringr tibble tidyr## [26] xml2 tidyverse预备知识: tibble包tibble比R内置的数据框的易用默认不会将字符串转化为因子型。选择tibble数据的子集返回的结果仍是tibble类型创建数据框: tibble()强制转化数据框: as_tibble()创建数据框#tibble::tibble意识是导入tibble包的tibble函数df x c(1,2,3,4),namec(张三, 李四, 王五, 赵六),agec(25, 23, 30, 18))dfcolnames(df)## [1] x name agerownames(df)## [1] 1 2 3 4读写实战安装install.packages(c(readtext,readr,readxl, writexl))读取文件相关操作读取包代码功能txtreadtextreadtext()读取txt文件csvreadrread_csv()读取csv文件excelreadxlread_excel()读取xls、xlsx文件读取csv默认csv文件为utf-8编码#读取csvdf #为了展示的更好看一些df df读取excel文件df2 df2读txtdocument document#全部显示#document[text]#显示前200个字符substr(document[text], 1, 200)## [1] \n------------\n\n第1章 科学边界(1)\n\n 恋上你看书网 630bookla 最快更新三体(全集)最新章节\n\n 汪淼觉得来找他的这四个人是一个奇怪的组合两名警察和两名军人如果那两个军人是武警还算正常但这是两名陆军军官。\n\n 汪淼第一眼就对来找他的警察没有好感。其实那名穿警服的年轻人还行举止很有礼貌但那位便衣就让人讨厌了。这人长得五大三粗一脸横肉穿document[[doc_id]]## [1] 三体.txt#全部显示#document[[text]]#显示前200个字符substr(document[[text]], 1, 200)## [1] \n------------\n\n第1章 科学边界(1)\n\n 恋上你看书网 630bookla 最快更新三体(全集)最新章节\n\n 汪淼觉得来找他的这四个人是一个奇怪的组合两名警察和两名军人如果那两个军人是武警还算正常但这是两名陆军军官。\n\n 汪淼第一眼就对来找他的警察没有好感。其实那名穿警服的年轻人还行举止很有礼貌但那位便衣就让人讨厌了。这人长得五大三粗一脸横肉穿导入多个txt文件list.files() 某路径下多个文件#获取文件列表files head(files)## [1] data/txts/三孚股份2017.txt data/txts/三棵树2017.txt## [3] data/txts/三江购物2017.txt data/txts/上海九百2017.txt## [5] data/txts/上海机电2017.txt data/txts/上海物贸2017.txttexts doc_ids for (file in files) {document doc_ids texts #texts }df doc_idsdoc_ids,texts texts)head(df)写入文件相关操作写入包代码功能csvreadrwrite_csv()将数据写入csv文件excelwritexlwrite_excel()将数据写入excel存入excel使用writexl包的write_xlsx(x, path)x: tibble表数据path: xlsx文件路径#写入xlsxwritexl::write_xlsx(df, output/reports.xlsx)存入csv使用readr包的write_csv(x, path)x: tibble表数据path: csv件路径#写入csvreadr::write_csv(df, output/reports.csv)
