是否可以在R中以JSON格式将表写入文件？

Question

我用R制作字频表,首选输出格式是JSON文件.......像{"word":"dog","frequency":12}有没有办法将表格直接保存为这种格式？我一直在使用write.csv()函数并将输出转换为JSON,但这非常复杂且耗时.

Answer 1

set.seed(1)
( tbl <- table(round(runif(100, 1, 5))) )

## 1  2  3  4  5 
## 9 24 30 23 14 

library(rjson)
sink("json.txt")
cat(toJSON(tbl))
sink()

file.show("json.txt")
## {"1":9,"2":24,"3":30,"4":23,"5":14}

甚至更好:

set.seed(1)
( tab <- table(letters[round(runif(100, 1, 26))]) )

a b c d e f g h i j k l m n o p q r s t u v w x y z 
1 2 4 3 2 5 4 3 5 3 9 4 7 2 2 2 5 5 5 6 5 3 7 3 2 1 

sink("lets.txt")
cat(toJSON(tab))
sink()
file.show("lets.txt")
## {"a":1,"b":2,"c":4,"d":3,"e":2,"f":5,"g":4,"h":3,"i":5,"j":3,"k":9,"l":4,"m":7,"n":2,"o":2,"p":2,"q":5,"r":5,"s":5,"t":6,"u":5,"v":3,"w":7,"x":3,"y":2,"z":1}

然后验证它http://www.jsonlint.com/得到漂亮的格式化.如果你有多维表,你必须解决它有点...

编辑:

哦,现在我明白了,您希望将数据集特征下沉到JSON文件中.没问题,只需给我们一个示例数据,我会稍微研究一下代码.实际上,您需要将数据转换为所需的格式,从而将其转换为JSON.list应该足够了.给我一点,我会更新我的答案.

编辑#2:嗯,时间是相对的...这是一个常识...在这里你去:

( dtf <- structure(list(word = structure(1:3, .Label = c("cat", "dog", 
"mouse"), class = "factor"), frequency = c(12, 32, 18)), .Names = c("word", 
"frequency"), row.names = c(NA, -3L), class = "data.frame") )

##   word frequency
## 1   cat        12
## 2   dog        32
## 3 mouse        18

如果dtf是一个简单的数据框,是的,data.frame,如果不是,则强制它!长话短说,你可以这样做:

toJSON(as.data.frame(t(dtf)))
## [1] "{\"V1\":{\"word\":\"cat\",\"frequency\":\"12\"},\"V2\":{\"word\":\"dog\",\"frequency\":\"32\"},\"V3\":{\"word\":\"mouse\",\"frequency\":\"18\"}}"

我虽然我需要一些melt这个,但简单的t做法.现在,您只需要在转置data.frame后处理列名称.t将data.frames强制转换为矩阵,因此您需要将其转换回data.frame.我用过as.data.frame,但你也可以使用toJSON(data.frame(t(dtf)))- 你会得到X而不是V作为变量名.或者,您可以使用regexp来清理JSON文件(如果需要),但这是一个糟糕的做法,尝试通过准备data.frame来解决它.

我希望这有点帮助......