2

我想将来自 HTTP 请求的数据转换为数据框。

viahttr返回的数据格式如下，包含列标题和类型等元数据。

我想将其转换为相应的数据框： Columns based on data$columnHeaders- 从一组定义的规则中解析（基于data$columnHeaders$dataType或data$columnHeaders$name

似乎问题已经解决了，但是我找不到经过验证的、快速有效的解决方案。

dput()结果data：_

data <- structure(list(columnHeaders = list(structure(list(name = "ga:date", 
    columnType = "DIMENSION", dataType = "STRING"), .Names = c("name", 
"columnType", "dataType")), structure(list(name = "ga:visitors", 
    columnType = "METRIC", dataType = "INTEGER"), .Names = c("name", 
"columnType", "dataType"))), rows = list(c("20120912", "26121"
), c("20120913", "32003"), c("20120914", "38348"), c("20120915", 
"26679"), c("20120916", "26249"), c("20120917", "29867"), c("20120918", 
"31572"), c("20120919", "27576"), c("20120920", "26730"), c("20120921", 
"28598"), c("20120922", "25319"), c("20120923", "27428"), c("20120924", 
"33255"), c("20120925", "32071"), c("20120926", "28272"))), .Names = c("columnHeaders", 
"rows"))
4

2 回答 2

1

感谢您提供可重现的示例。我在评论中建议的答案或多或少是我在这里提出的：

out <- as.data.frame(do.call("rbind", data[["rows"]]))
names(out) <- make.names(sapply(data[["columnHeaders"]], "[[", 1))


str(out)
#-----
'data.frame':   15 obs. of  2 variables:
 $ ga.date    : Factor w/ 15 levels "20120912","20120913",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ ga.visitors: Factor w/ 15 levels "25319","26121",..: 2 12 15 4 3 10 11 7 5 9 ...
head(out,3)
#-----
   ga.date ga.visitors
1 20120912       26121
2 20120913       32003
3 20120914       38348

请注意，我曾经make.names()确保列名是有效的 R 名称...否则您的列名中会出现冒号，这将在下游出现问题。

我还将在这里阅读两行之间的内容，并假设您的第一列应该代表一个日期，第二列应该代表一个数字。您会注意到 R 目前认为这两个都是factor变量。以下是我如何将它们转换为适当的数据类型：

#Date column
out$ga.date <- as.Date(out$ga.date, format = "%Y%m%d")
#Numeric column
out$ga.visitors <- as.numeric(as.character(out$ga.visitors))

str(out)
#-----
'data.frame':   15 obs. of  2 variables:
 $ ga.date    : Date, format: "2012-09-12" "2012-09-13" "2012-09-14" ...
 $ ga.visitors: num  26121 32003 38348 26679 26249 ...

现在我认为你有一些有用的东西可以做一些分析。有关格式化日期和日期/时间对象的详细信息，请参阅?as.Date和。?strptime

于 2012-10-01T17:45:20.473 回答
0

我试图（a）复制您的数据，（b）将复制的数据转换为数据框。

#(a) Replicating data 
a<-c("20120912", "26121")
b<-c("20120913", "32003") 
c<-c("20120914", "38348")
data<-rbind(a,b,c)
colnames(data)<-c("date","visitors")

#(b) Converting to data frame
str(data) #chr [1:3, 1:2]
data<-data.frame(data)
str(data) #'data.frame':   3 obs. of  2 variables

这是否回答了您的问题，还是我对您的理解有误？祝你好运！

于 2012-10-01T13:49:21.607 回答