r语言 - 通过查找"list"选择性地关注数据表

Question

我只想从json数据(data<-jsonlite:：read_json('…zdf.de/assets/data/senioren/districts.json'($districts(中提取一些地区的具体排名/数字(我有一个地区列表"01000&quot等(。我在语法上很吃力。有人能帮忙吗？

staedte_id= list("02000", "09162", "05315", "06412", "08111", "05111", "14713", 
"05913", "05113", "04011", "14612", "03241", "09564", "05112", "05911", "05124",
"05711", "05314", "05515", "08212", "08222", "09761", "06414", "05116")
x= data.frame()
for (i in staedte_id){

data <- jsonlite::read_json('https://deutschland-studie-senioren-familie.zdf.de/assets/data/senioren/districts.json')$districts$i

df <- map_df(data, function(x) {
data.frame(
name = x %>% {.$name},
verkehrssicherheit = x %>% {.$parts$si$indicators$si1}
) }
)
x = rbind(x,df)
}

Answer 1

将id添加为列，然后过滤目标列表上的数据帧

library(jsonlite)
library(tidyverse)
data <- jsonlite::read_json('https://deutschland-studie-senioren-familie.zdf.de/assets/data/senioren/districts.json')$districts
df <- map_df(data, function(x) {
data.frame(
name = x %>% {.$name},
rank = x %>% {.$overall$rank}
)
})
df$id <- names(data)
staedte_id <- list("02000", "09162", "05315", "06412", "08111", "05111", "14713", 
"05913", "05113", "04011", "14612", "03241", "09564", "05112", "05911", "05124",
"05711", "05314", "05515", "08212", "08222", "09761", "06414", "05116")

df <- df[which((df$id %in% staedte_id)==TRUE), ]
df <- df[order(df$rank),]

---

您也可以借用dplyr:中的函数

library(jsonlite)
library(tidyverse)
data <- jsonlite::read_json('https://deutschland-studie-senioren-familie.zdf.de/assets/data/senioren/districts.json')$districts
df <- map_df(data, function(x) {
data.frame(
name = x %>% {.$name},
rank = x %>% {.$overall$rank}
)
})
df$id <- names(data)
staedte_id <- list("02000", "09162", "05315", "06412", "08111", "05111", "14713", 
"05913", "05113", "04011", "14612", "03241", "09564", "05112", "05911", "05124",
"05711", "05314", "05515", "08212", "08222", "09761", "06414", "05116")
df <- dplyr::arrange(dplyr::filter(df, id %in% staedte_id), rank)