将 Excel .xlsx 转换为 R 中的向量列表

Question

将 .xlsx 文件导入 R（readxl 包）后，如何从中制作矢量列表（第一列作为矢量名称）？

.xlsx 输入示例（注意每行的列数可变）：

row_1 | A | B |
row_2 | C | D | E |
row_3 | F | G | H | I |

我试图获得的输出：

$`row_1`
[1] "A" "B"

$`row_2` 
[1] "C" "D" "E" 

$`row_3`
[1] "F" "G" "H" "I" 

到目前为止我的尝试：

xcel <- read_excel("my_data.xlsx", col_names=F)
df <- scan(xcel)

我尝试了不同风格的命令行，但最终要么出现“文件错误（文件，“r”）：无效的“描述”参数”或“扫描错误（xcel）：“文件”必须是一个字符字符串或连接”，取决于我是否将“xcel”转换为数据框。

Answer 1

你可以在read_excel的返回值上使用apply和na.omit来得到你想要的：

xcel <- read_excel("my_data.xlsx", col_names=FALSE)
xl <- apply(xcel,1,function(r)as.vector(na.omit(r))[-1])
names(xl) <- xcel[[1]]

xl 看起来像：

$row_1
[1] "A" "B"

$row_2
[1] "C" "D" "E"

$row_3
[1] "F" "G" "H" "I"