R 问题,csv 文件中的 JSON 个对象,每个单元格一个:
R problem, JSON objects in csv file, one per cell:
{"received":1588687345,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687345,"sensor":[{"type":"temp","unit":"degc","value":20}]}}
{"received":1588687346,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687344,"sensor":[{"type":"temp","unit":"degc","value":22}]}}
{"received":1588687346,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687346,"sensor":[{"type":"temp","unit":"degc","value":22}]}}
{"received":1588687348,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687347,"sensor":[{"type":"temp","unit":"degc","value":28}]}}
{"received":1588687349,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687347,"sensor":[{"type":"temp","unit":"degc","value":-667}]}}
所有数据都在csv文件的第一列。我想转换为可读格式,例如数据帧,并用 write.csv() 保存?谢谢你的帮助
library(jsonlite)
df <- read.csv("example.csv", header = FALSE)
jsonlite::stream_in(textConnection(gsub("\n", "", df)))
{"received":1588687345,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687345,"sensor":[{"type":"temp","unit":"degc","value":20}]}}
{"received":1588687346,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687344,"sensor":[{"type":"temp","unit":"degc","value":22}]}}
{"received":1588687346,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687346,"sensor":[{"type":"temp","unit":"degc","value":22}]}}
{"received":1588687348,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687347,"sensor":[{"type":"temp","unit":"degc","value":28}]}}
{"received":1588687349,"guid":"0CA2F400004","eventtype":"sensor","payload":{"time":1588687347,"sensor":[{"type":"temp","unit":"degc","value":-667}]}}
所有数据都在csv文件的第一列。我想转换为可读格式,例如数据帧,并用 write.csv() 保存?谢谢你的帮助
library(jsonlite)
df <- read.csv("example.csv", header = FALSE)
jsonlite::stream_in(textConnection(gsub("\n", "", df)))