JSON鍵，使用R的值格式/選擇列作為鍵，另一列作為值

Question

我有一個數據框gscSocial ，我試圖轉換為JSON：

  Date       totalReach
  2018-01-01       1069
  2018-01-02       3075
  2018-01-03       2674
  2018-01-04        876

這就是我在做的事情：

   gscSocialTotalReach   <- gscSocial %>%
                         as.tibble()%>%
                         gather(key=Date, value=totalReach) %>%
                         jsonlite::toJSON(auto_unbox = TRUE)

結果是這樣的：

[{"Date":"2018-01-01","totalReach":1069},{"Date":"2018-01-02","totalReach":3075},{"Date":"2018-01-03","totalReach":2674},{"Date":"2018-01-04","totalReach":876}]

但我想這樣做：

[{"2018-01-01":1069,"2018-01-02":3075,"2018-01-03":2674,"2018-01-04":876}]

我怎樣才能做到這一點？ 謝謝

Answer 1

根據@thelatemail建議代碼是：

toJSON(setNames(as.list(gscSocial$totalReach), gscSocial$Date),  auto_unbox = TRUE)