2
我有一些JSON数据，这是其中一个片段：导入从HTML页面JSONP数据，然后输出到CSV
{"sweater":"15", "localtime":"7:14 PM", "xcoord":-61,
"desc":"John Smith SHOT on Jack Jones", "teamid":10,"strength":701,
"pid":8465200,"formalEventId":"TOR8", "period":1, "type":"Shot", "p3name":"",
"eventid":8, "p2name":"Jack Jones", "ycoord":21, "pid3":"", "time":"00:38",
"playername":"John Smith", "p1name":"John Smith",
"video":"2_26_ott_tor_0910_TOR8_save_800K_16x9.flv", "pid2":8469461, "pid1":8465200}
我想抓住从一个HTML URL这种格式，这个信息：
http://foo.com/data/20092010/20090xxxxx/PxP.jsonp
其中xxxxx是一个5位游戏代码，我希望从列表中插入（通过循环）。
我最需要的数据是：毛衣，xcoord，teamid，力量，周期，类型，ycoord，时间，玩家名和将游戏代码（xxxxx）插入为列。
因此，这将是：
Gamecode，毛衣，XCOORD，teamid，强度，期限，种类，YCOORD，时间，playername
然后，把它导出所有信息为一（1）CSV文件。
任何人都可以帮助指出我在正确的方向吗？
编辑：
我试图导入JSON文件为本地文件，使用下面的代码：
#libraries
library(RCurl)
library(rjson)
library(bitops)
#fetch data
j <- getURL("file:///Desktop/test.jsonp")
#grab JSON
j.list <- fromJSON(j)
#get each data item
j.df <- data.frame(playername = sapply(j.list, function(x) x$sweater))
j.df <- data.frame(xcoord = sapply(j.list, function(x) x$xcoord))
j.df <- data.frame(ycoord = sapply(j.list, function(x) x$ycoord))
j.df <- data.frame(type = sapply(j.list, function(x) x$type))
write.csv(j.df, file="fooPxP.csv")
，并得到一个空的CSV文件。任何想法我做错了什么？
下面是一些实际的数据文件从beginining：提前
loadPlayByPlay({"data":{"refreshInterval":0,"game":{"awayteamid":9,"awayteamname":"Ottawa Senators","hometeamname":"Toronto Maple Leafs","plays":{"play":[{"sweater":"11","localtime":"7:14 PM","xcoord":76,"desc":"Daniel Alfredsson HIT on Tomas Kaberle","teamid":9,"strength":701,"pid":8460621,"formalEventId":"TOR51","period":1,"type":"Hit","p3name":"","eventid":51,"p2name":"Tomas Kaberle","ycoord":-40,"pid3":"","time":"00:16","playername":"Daniel Alfredsson","p1name":"Daniel Alfredsson","pid2":8465200,"pid1":8460621},{"sweater":"15","localtime":"7:14 PM","xcoord":-61,"desc":"Tomas Kaberle SHOT on Pascal Leclaire","teamid":10,"strength":701,"pid":8465200,"formalEventId":"TOR8","period":1,"type":"Shot","p3name":"","eventid":8,"p2name":"Pascal Leclaire","ycoord":21,"pid3":"","time":"00:38","playername":"Tomas Kaberle","p1name":"Tomas Kaberle","video":"2_26_ott_tor_0910_TOR8_save_800K_16x9.flv","pid2":8469461,"pid1":8465200}}})
谢谢！
太棒了，谢谢！所以对于“强度”，它会是：j.df < - data.frame（strength = sapply（j.list，function（x）x $ strength））？ – NeilG 2011-02-11 01:52:07