用R读取Excel的新方法（转）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

  还在纠结用如何用R读取Excel的同学有福了。昨天逛CRAN的时候发现了一个xlsx包，它给出的介绍是可以读取、写入Excel 2007/2003文件并支持格式的设置。简单地来说，将Excel读取为数据框，以及将数据框写入为Excel文件都不是问题，而更加强大的是它能处理 Excel中的格式，比如合并单元格，设置列的宽度，设置字体和颜色等等。

     如果只需要基本的读取/写入操作，那么其中的read.xlsx()和write.xlsx()应该就能满足大部分的需求了，其用法也很简单，看看帮助文档就了解了。此外，还有两个相应的函数read.xlsx2()和write.xlsx2()，按作者的话说，这两个函数使用了不同的实现方式，效率上会更高一些。

    除了基本的读写操作之外，如之前所说，xlsx包还能进行格式方面的设置。
    下面是一个简单的例子，说明了如何创建工作簿和工作表，如何操作单元格等。感兴趣的朋友不妨运行一下下面的例子，看看最终的效果。

1. ind = read.table(url("http://yixuan.cos.name/cn/wp-content/uploads/2012/01/ind.txt"),
   
2.                  sep = "\t");
   
3. 
   
4. library(xlsx);
   
5. # Create a new workbook
   
6. wb = createWorkbook();
   
7. # Create a new sheet with a name
   
8. sheet1 = createSheet(wb, "第一页");
   
9. # Set the zoom ratio when you open the Excel file
   
10. setZoom(sheet1, 50, 100);
    
11. # Set the width of columns
    
12. setColumnWidth(sheet1, 1:100, 2.8);
    
13. 
    
14. # Create rows
    
15. rows = createRow(sheet1, 1:40);
    
16. # Create cells for each row
    
17. cells = createCell(rows, 1:73);
    
18. # Merge the first row into one cell
    
19. addMergedRegion(sheet1, 1, 1, 1, 73);
    
20. # Create the style for title cell
    
21. title_cell_style = CellStyle(wb,
    
22.     alignment = Alignment(horizontal = "ALIGN_CENTER"),
    
23.     font = Font(wb, "blue", 50, isBold = TRUE));
    
24. # Create the style for black cells
    
25. black_cell_style = CellStyle(wb,
    
26.     border = Border(),
    
27.     fill = Fill(foregroundColor= "black"));
    
28. # Get the first row
    
29. first_row = getRows(sheet1, 1);
    
30. # Get the title cell from first row
    
31. title_cell = getCells(first_row, 1)[[1]];
    
32. # Set the value of the title cell
    
33. setCellValue(title_cell, "Read/Write Excel!");
    
34. # Set the style of the title cell
    
35. setCellStyle(title_cell, title_cell_style);
    
36. # Set the style of black cells
    
37. tmp = mapply(function(x, y) setCellStyle(cells[[x, y]], black_cell_style),
    
38.        ind[, 1] 3, ind[, 2] 5);
    
39. # Save the workbook into a file
    
40. saveWorkbook(wb, "test.xlsx");

复制代码

     总的来说，xlsx包是我目前见过的功能最全的操作Excel的R包，它只依赖于Java环境和rJava、xlsxjars两个包，在多种平台下 都能运行，

      局限是写操作只支持Excel 2007格式（*.xlsx），对于机器上只有MS Office 2003的人来说可能会有些不便。（LibreOffice和OpenOffice.org都可以打开Excel 2007文件）

扫码加我 拉你入群

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

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

分享0 收藏8 回帖

关键词：EXCEL xcel exce cel 新方法 Excel Excel转化 R语言

shawnmichaels 发表于 2015-3-4 12:48
还在纠结用如何用R读取Excel的同学有福了。昨天逛CRAN的时候发现了一个xlsx包，它给出的介绍是可以 ...

谢谢分享！

很好的材料