我有一个循环,可为数据框中的每一列创建一个json字符串,以便将该数据作为文本存储在单独的数据库中。我更喜欢非循环方法,但是我一直遇到问题。什么是更有效的方法?
library(tidyverse)
library(jsonlite)
df <- tibble(id1 = paste('ID',1:10),
id2 = paste('ID',1:10))
for(r in 1:nrow(df)) {
df[r,'combo'] <- toJSON(df[r,])
}
一种选择 pmap
library(purrr)
library(dplyr)
df %>%
mutate(combo = pmap(., ~toJSON(c(...))))
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句