我正试图以一种漂亮的格式从大型棒球数据库中获取一些数据。这是一个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"
由于每个列表中有两列不同长度的列,是否有一种简单的方法可以将所有这些列堆叠到矩阵/数据帧中?我尝试过很多事情都没有成功。
谢谢!