使用R中的正则表达式捕获特定的JSON-LD属性

library(jsonlite)

# 从字符串中加载JSON数据
json_data <- '{"@context": "http://schema.org", "@type": "Person", "name": "John Doe", "jobTitle": "Software Engineer"}'

# 或者从文件中加载JSON数据
json_data <- fromJSON(file = "data.json")

parsed_data <- fromJSON(json_data)

# 捕获所有以"name"开头的属性
name_attributes <- names(parsed_data)[grep("^name", names(parsed_data))]

# 捕获所有以"jobTitle"开头的属性
job_title_attributes <- names(parsed_data)[grep("^jobTitle", names(parsed_data))]

# 打印捕获到的"name"属性
cat("Name attributes:", name_attributes, "\n")

# 打印捕获到的"jobTitle"属性
cat("Job title attributes:", job_title_attributes, "\n")