导入为 data.frame 数字并选择 json 变量

Question

我有一个 .csv 文件，其中包含两个数字列和一个 json 格式的列。我想从 json 列中导入数字列以及一些变量。 json 列有数百个变量，其中许多具有相同的名称，我只对其中几个感兴趣：有没有办法从 json 中使用它们的编号位置导入选定数量的变量？

 address    |  zip  |  response
 102 N8 st    11248   {"Building Lat": "74.91", "Lon": "31.21", "Front Lat": "75.93", "Lon": "32.20"}
 76 Hope st   14258   {"Building Lat": "75.82", "Lon": "29.18", "Front Lat": "76.89", "Lon": "28.12"}

当我导入为 read_csv 时，我得到一个类似于上面示例的 tibble：假设我想在 R 中将地址和 zip 导入为 data.frame，以及来自 json 响应变量的前两个变量 (建筑经纬度）。

这与this question 有点相关，但无法在此示例中复制该答案。我已经尝试过 Jsonlite 包，但无法绕过它。

Answer 1

这是你想要的吗？

require(jsonlite)

df <- data.frame(address = c("102 N8 st", "76 Hope st"),
                 zip = c(11248, 14258),
                 response = c('{"Building Lat": "74.91", "Lon": "31.21", "Front Lat": "75.93", "Lon": "32.20"}',
                              '{"Building Lat": "75.82", "Lon": "29.18", "Front Lat": "76.89", "Lon": "28.12"}'),
                 stringsAsFactors = FALSE)

x1 <- sapply(df$response, FUN = function(x) {as.numeric(fromJSON(x)[[1]])})
x2 <- sapply(df$response, FUN = function(x) {as.numeric(fromJSON(x)[[2]])})

names(x1) <- NULL
names(x2) <- NULL

new_df <- data.frame(address = df$address,
                     zip = df$zip,
                     x1 = x1, 
                     x2 = x2)