使用R中的openxlsx从excel表中读取一列R

Question

我正尝试使用R中的Openxls读取特定列。问题是来自列的数据不在一起。 以下是我的代码：

library("openxlsx") 
    excel0111 <- loadWorkbook("C:\\path\\0111F.xlsx") 
    sheet_names <- names(excel0111) 
    c0111 <- read.xlsx(excel0111, sheet = sheet_names[1],cols = 2, rows = c(4:27)) # reading data from (B4:B27) 

但是输出看起来是这样的：

213 
1 188 
2 183 
3 260 
4 389 
5 680 
6 1614 
7 2044 
8 1544 
9 1261 
10 1040 
11 991 
12 999 
13 1045 
14 1133 
15 1183 
16 1238 
17 1334 
18 1122 
19 690 
20 607 
21 524 
22 366 
23 390 

我想要的输出如下：

1 213 
2 188 
3 183 
4 260 
5 389 
6 680 
7 1614 
8 2044 
9 1544 
10 1261 
11 1040 
12 991 
13 999 
14 1045 
15 1133 
16 1183 
17 1238 
18 1334 
19 1122 
20 690 
21 607 
22 524 
23 366 
24 390 

最后，我将使用一个循环来获得从excel文件的所有表格中选择相同的列如下：

for (i in 1:212) { 


    c0111[i] <- read.xlsx(excel0111, sheet = sheet_names[i], skipEmptyRows = FALSE,cols = c(2), rows = c(4:27)) 
} 

谢谢！

Answer 1

默认情况下，colNames参数设置为TRUE。将其设置为FALSE，并且您的read.xlsx函数调用不会将第一行解释为列标题：

c0111 <- read.xlsx(excel0111, sheet = sheet_names[1], colNames = FALSE, cols = 2, rows = c(4:27))