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的值現在似乎已轉換為character：

 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

代替將數據轉換為matrix和matrix只能具有單個類的apply ，請使用split

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

如果我們需要JSON輸出，則可以使用toJSON將數據集直接轉換為JSON 。

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

基於與OP的對話，數據集作為需要轉換為JSON格式的命名list傳遞

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