json - 如何在名称/值对中将 R 数据帧转换为 Json？

Question

我有以下 R 数据框:

        Values
Type1   123
Type2   4565
Type3   7812

我希望 JSON 输出是

{"Type1":123, "Type2":4565, "Type3":7812}

数字字段可以带引号

我用的是jsonlite toJSON，输出是:

[{"Values":123,"_row":"Type1"}, 
 {"Values": 4565,"_row":"Type2"}, 
 {"Values": 7812,"_row":"Type3"}]

Answer 1

使用 rjson 的解决方案:

df <- data.frame(Values = c(123, 4565, 7812))
rownames(df) <- paste0("Type", 1:3)

library(rjson)
toJSON(setNames(df$Values, rownames(df)))

[1] "{\"Type1\":123,\"Type2\":4565,\"Type3\":7812}"