我试图遍历一些json数据,但是在访问它时遇到问题:
library(tidyverse)
df_tidy <- df %>%
# Step 1
gather(col, value, -key) %>%
separate(col, into = c("grp", "num"), 2) %>%
spread(num, value) %>%
# Step 2
mutate(`0` = `0` + `5`) %>%
# Step 3, which is just the inverse of Step 1.
gather(num, value, -key, - grp) %>%
unite(col, c("grp", "num")) %>%
spread(col, value)
df_tidy
key ab_0 ab_1 ab_5 bc_0 bc_1 bc_5 df_0 df_1 df_5
1 1 2 0 1 0 2 0 1 1 1
2 2 0 2 0 3 0 2 0 0 0
3 3 0 1 0 1 0 1 0 3 0
4 4 0 0 0 2 0 0 1 0 0
5 5 2 0 1 1 0 1 6 0 6
对象包含一个称为“事件”的顶级元素,然后在该元素下组织了正确的数据。立即我想访问$ data-> events,但是我在显示任何内容时遇到问题。
答案 0 :(得分:4)
如果要将解码的json用作数组,则需要将第二个参数设置为 true
http://php.net/manual/en/function.json-decode.php
$data = json_decode($body, true);