将 JSON 列添加到 R 数据框
Add JSON column to R dataframe
我有一个数据框,想添加一个额外的列,其中包含 JSON 格式的每行数据。
在这个例子中:
dfr = data.frame(name = c("Andrew", "Mathew", "Dany", "Philip", "John", "Bing", "Monica"), age = c(28, 23, 49, 29, 38, 23, 29))
dfr %>% mutate(Payload = jsonlite::toJSON(dfr))
我想得到
Andrew 28 {"name":"Andrew","age":28}
Mathew 23 {"name":"Mathew","age":23}
相反,我每行获取完整数据框的 JSON 字符串。
我用 apply
试过,但没能达到 运行。
每行尝试 运行:拆分每一行,然后应用 toJSON 函数:
dfr$Payload <- sapply(split(dfr, seq(nrow(dfr))), toJSON)
dfr
# name age Payload
# 1 Andrew 28 [{"name":"Andrew","age":28}]
# 2 Mathew 23 [{"name":"Mathew","age":23}]
# 3 Dany 49 [{"name":"Dany","age":49}]
# 4 Philip 29 [{"name":"Philip","age":29}]
# 5 John 38 [{"name":"John","age":38}]
# 6 Bing 23 [{"name":"Bing","age":23}]
# 7 Monica 29 [{"name":"Monica","age":29}]
我有一个数据框,想添加一个额外的列,其中包含 JSON 格式的每行数据。 在这个例子中:
dfr = data.frame(name = c("Andrew", "Mathew", "Dany", "Philip", "John", "Bing", "Monica"), age = c(28, 23, 49, 29, 38, 23, 29))
dfr %>% mutate(Payload = jsonlite::toJSON(dfr))
我想得到
Andrew 28 {"name":"Andrew","age":28}
Mathew 23 {"name":"Mathew","age":23}
相反,我每行获取完整数据框的 JSON 字符串。
我用 apply
试过,但没能达到 运行。
每行尝试 运行:拆分每一行,然后应用 toJSON 函数:
dfr$Payload <- sapply(split(dfr, seq(nrow(dfr))), toJSON)
dfr
# name age Payload
# 1 Andrew 28 [{"name":"Andrew","age":28}]
# 2 Mathew 23 [{"name":"Mathew","age":23}]
# 3 Dany 49 [{"name":"Dany","age":49}]
# 4 Philip 29 [{"name":"Philip","age":29}]
# 5 John 38 [{"name":"John","age":38}]
# 6 Bing 23 [{"name":"Bing","age":23}]
# 7 Monica 29 [{"name":"Monica","age":29}]