0

我正在尝试以一种不错的格式从大型棒球数据库中获取一些数据。这是一个 MySQL 数据库,所以我使用 RMySQL 来访问它。

问题是,检索我需要的数据的最简单方法是使用 sapply,因为我需要更改索引:

myf <- function(ab){
search <- paste('select pitch_type, des from pitches where ab_id=', ab)
query <- dbSendQuery(con2,search)
return(fetch(query,n=-1))
}

pitches <- sapply(players$ab_id,myf,simplify="array")

但是很难访问这些数据,因为它返回一个列表列表:

> mode(pitches[,1])
>[1] "list"

由于我在每个列表中有两列不同长度的列,是否有一种简单的方法可以将所有这些列堆叠到矩阵/数据框中?我尝试了很多事情都没有成功。

谢谢!

4

0 回答 0