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

我用R编写单词频率表,首选输出格式将是一个JSON文件. sth喜欢
   {
     “字”:“狗”,
     “频率”:12
   }
有没有办法将表直接保存到这种格式?我一直在使用write.csv()函数并将输出转换为JSON,但这是非常复杂和耗时的.
最佳答案
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.列表就够了给我一秒钟,我会更新我的答案.

编辑#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\"}}"

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

我希望这有一点帮助

转载注明原文:是否可以在R中以JSON格式将文件写入文件? - 代码日志