如何在r中创建新的键值对

我有两个数组，周期和计数如下

period <- c("01-12-2017", "01-01-2018", "01-02-2018", "01-03-2018" ,"01-04-2018" ,"01-05-2018")

这样就可以（使用包

jsonlite）

这样就可以（使用包

jsonlite）

---

可以使用

paste0（句号“：”，计数）

可以使用

paste0（句号“：”，计数）

非常简单。但是，您还需要在值周围加引号，以匹配questionNice和simple中的预期输出。但您还需要在值周围加引号，以匹配问题中的预期输出

count <- c(13, 11, 8, 11, 13, 10)

{"01-12-2017":"13","01-01-2018":"11","01-02-2018":"8","01-03-2018":"11","01-04-2018":"13","01-05-2018":"10"}

# convert count to character as that is the expected value in desired output
jsonlite::toJSON(as.list(setNames(as.character(count), period)), 
                 auto_unbox = TRUE, pretty = TRUE)
# {
#   "01-12-2017": "13",
#   "01-01-2018": "11",
#   "01-02-2018": "8",
#   "01-03-2018": "11",
#   "01-04-2018": "13",
#   "01-05-2018": "10"
# }