R 将列按行转换为 JSON

Question

我有数据框

df <- data.frame(a = c(1,3),b = c(2,4))

  a b
1 1 2
2 3 NA

我想接收这样的数据框:

  a  b           json
1 1  2 {"a":1, "b":2}
2 3 NA        {"a":3}

我想知道是否有一种方法可以有效地得到这个结果

df <- df %>% dplyr::mutate(json = ?())

我自己没有粘贴值。在 Postgres 中有一个函数 json_strip_nulls(row_to_json(*)) 来获取它。 R 中是否有任何等效项？

Answer 1

你可以这样做:

library(jsonlite)
library(dplyr)

df <- data.frame(a = c(1,3),b = c(2,NA))

df %>%
  rowwise() %>%
  mutate(json = toJSON(across())) %>%
  ungroup()

# A tibble: 2 x 3
      a     b json           
  <dbl> <dbl> <json>         
1     1     2 [{"a":1,"b":2}]
2     3    NA [{"a":3}]