R利用 openxlsx操作xlsx文件

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

第一步，查看R语言版本

打开GUI界面，在出现的信息中第一行，这里安装的是3.2.3版本

第二步，安装Rtools，安装R的时候只是安装了base包，没有安装Rtools，Rtools用于在windows本机构建R或R的package。Rtools下载地址为:

https://cran.rstudio.com/

点Download Rfor Windows ，在弹出的界面中单击Rtools，选择与当前R版本一致的Rtools下载安装。Rtools安装方法如下：

1、双击Rtools.exe文件，选择english，点ok

点两个next后出现

选择安装路径，并记住它，选完后点next，出现，默认即可

点next出现，勾选上edit the system path，（如果没勾选上，看下面备注）点next-next-install，完成。

备注：如果edit the system path没勾选上，在安装完成后找到Rtools安装路径，并把Rtools\bin跟Rtools\gcc-4.6.3\bin添加到环境变量中，例如本机：C:\Rtools\bin跟C:\Rtools\gcc-4.6.3\bin ，添加方法如下：右击我的电脑，选择属性-高级系统设置-高级-环境变量-系统变量中找到Path-点编辑，在变量值的最前面添加C:\Rtools\bin;注意后面要用英文分号分隔开，同样的方法添加C:\Rtools\gcc-4.6.3\bin，也要注意用英文分号分隔开。添加完成后点确定-确定-确定。

第三步，安装openxlsx包

install.packages("openxlsx")

第三步，查看openxlsx的帮助文档，执行命令help.start()后，在打开的网页里面找到Packages，并点进去，找到openxlsx，点进去，有openxlsx的所有函数使用说明跟example

help.start()

第四步，测试，爽一把

例1、将数据框iris的数据导入到工作目录的iris.xlsx文件中，只需用到一个函数write.xlsx()就解决，同时用函数openXL()打开iris.xlsx文件。

library(openxlsx)    write.xlsx(x = iris,file =  "iris.xlsx")    openXL("iris.xlsx")

例2、读取桌面2016-01-11的股票交易数据，并封装到数据框stock中，只需用到函数

read.xlsx()搞定。read.xlsx还可以指定读取哪个表格跟指定读取范围，具体可查看openxlsx的帮助文档。

library(openxlsx)    stock <- read.xlsx(xlsxFile =  file.choose())    dim(stock)    names(stock)

例3、创建一个空白hello.xlsx文件，并保存到工作目录里面。

wb <- createWorkbook()    saveWorkbook(wb,file =  "hello.xlsx",overwrite = T)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏6 回帖

关键词：xlsx文件 xlsx Open xls Pen Download 下载地址 Windows windows english

ryoeng 发表于 2016-2-29 23:13
这个openxlsx比xlsx轻松多了，而且还能调整格式哦！

xlsx用到了apache poi，但感觉很多坑，找个时间自己写个

非常好

确实非常强大了，可是感觉代码不够简洁。

1. library(tidyverse)
   
2. library(openxlsx)
   
3. 
   
4. mydata=read.xlsx("datasets.xlsx",sheet = "mtcars")
   
5. mydata %>% mutate(mpgpwt=mpg/wt)->mydata
   
6. 
   
7. #加载一个Excel文件，并定义对象为wbdatasets
   
8. wbdatasets=loadWorkbook("datasets.xlsx")
   
9. 
   
10. #为对象增加工作表，名字为data
    
11. addWorksheet(wbdatasets, "data")
    
12. 
    
13. #在对象为wbdatasets的第五个工作表里写入mydata数据框
    
14. writeData(wbdatasets,5,mydata)
    
15. 
    
16. #保存对象wbdatasets，文件名为datasets.xlsx,如果已有同名文件则覆盖
    
17. saveWorkbook(wbdatasets,file="datasets.xlsx",overwrite = TRUE)
    
18. 
    
19. #打开datasets.xlsx文件
    
20. openXL("datasets.xlsx")

复制代码

> library(openxlsx)
错误: package or namespace load failed for ‘openxlsx’ in loadNamespace(i, c(lib.loc, .libPaths()), versionCheck = vI[[i]]):
找不到对象'vI'


您好，不知道为什么，我用这个openxlsx经常报错，您知道怎么解决吗？

rabbit0515 发表于 2020-3-21 01:08
> library(openxlsx)
错误: package or namespace load failed for ‘openxlsx’ in loadNamespace(i, c(l ...

可能是版本不符吧，建立下载到本地手动安装，或者下载最新的R再安装。