R：将 as.list 应用于数据框将数字转换为字符

Question

当尝试将数据框转换为类似于嵌套字典的列表时，我尝试使用以下命令：

 df = data.frame(col1 = c('a', 'b'), col2 = c(1, 2))
 df[,1] = as.character(df[,1])

 ls1 = apply(df, 1, as.list)
 print(ls1)

但是，现在 ls1 中 col2 的值似乎被转换为字符：

 class(ls1[[2]]$col2)
 # [1] "character"

这种解决方法有效，但我很好奇是否有人知道，为什么结果与以前的代码不同？

 ls2 = as.list(df[1,])
 for(i in 2:nrow(df)){
   ls2 = list(ls2, as.list(df[i,]))
 }
 print(ls2)

 class(ls1[[2]]$col2)
 # [1] "numeric"

Answer 1

而不是apply，它将数据转换为matrix 和matrix 只能有一个类，使用split

lst1 <- unname(split(df, seq_len(nrow(df))))

如果我们需要JSON的输出，数据集可以直接用toJSON转换成JSON

jsonlite::toJSON(df)
#[{"col1":"a","col2":1},{"col1":"b","col2":2}] 

根据与 OP 的对话，dataset 作为命名list 传递，需要转换为 JSON 格式

toJSON(list(listName = df))
#{"listName":[{"col1":"a","col2":1},{"col1":"b","col2":2}]}