从 .JSON 导入 plot_ly table 到 R
importing plot_ly table from .JSON to R
我使用plot_ly()
创建了一个table,然后将其转换into.JSON并保存在本地。
现在,我想在 R 中打开保存的文件以检查创建的 tables,但我不知道如何打开这样的文件?
这就是我导出文件的方式。
tab <- plot_ly(
# creates table
))
然后我写成 .JSON:
tab <- plotly_json(tab, FALSE)
tabName <- paste0("summary.json" )
write(tab, paste0(directory, "/", tabName))
如何将此文件导入回 R?
你可以,例如使用 jsonlite::fromJSON
。 Here您可以找到其他选项。
请检查以下内容:
library(plotly)
library(datasets)
library(jsonlite)
tab <- plot_ly(
type = 'table',
columnwidth = c(100, 100),
columnorder = c(0, 1),
header = list(
values = c("Cut","Price"),
align = c("center", "center"),
line = list(width = 1, color = 'black'),
fill = list(color = c("grey", "grey")),
font = list(family = "Arial", size = 14, color = "white")
),
cells = list(
values = rbind(head(diamonds)$cut, head(diamonds)$price),
align = c("center", "center"),
line = list(color = "black", width = 1),
font = list(family = "Arial", size = 12, color = c("black"))
))
tab_json <- plotly_json(tab, FALSE)
write(tab_json, "summary.json")
tab_data <- fromJSON("summary.json", flatten = TRUE)
tab_data$data$cells.values[[1]]
我使用plot_ly()
创建了一个table,然后将其转换into.JSON并保存在本地。
现在,我想在 R 中打开保存的文件以检查创建的 tables,但我不知道如何打开这样的文件?
这就是我导出文件的方式。
tab <- plot_ly(
# creates table
))
然后我写成 .JSON:
tab <- plotly_json(tab, FALSE)
tabName <- paste0("summary.json" )
write(tab, paste0(directory, "/", tabName))
如何将此文件导入回 R?
你可以,例如使用 jsonlite::fromJSON
。 Here您可以找到其他选项。
请检查以下内容:
library(plotly)
library(datasets)
library(jsonlite)
tab <- plot_ly(
type = 'table',
columnwidth = c(100, 100),
columnorder = c(0, 1),
header = list(
values = c("Cut","Price"),
align = c("center", "center"),
line = list(width = 1, color = 'black'),
fill = list(color = c("grey", "grey")),
font = list(family = "Arial", size = 14, color = "white")
),
cells = list(
values = rbind(head(diamonds)$cut, head(diamonds)$price),
align = c("center", "center"),
line = list(color = "black", width = 1),
font = list(family = "Arial", size = 12, color = c("black"))
))
tab_json <- plotly_json(tab, FALSE)
write(tab_json, "summary.json")
tab_data <- fromJSON("summary.json", flatten = TRUE)
tab_data$data$cells.values[[1]]