从csv文件读取,附加到基于条件的列表

时间:2015-06-30 15:10:58

标签: r

r的新用户,我想我理解如何从csv文件中读取,但我不确定的是r如何构建其数据模型,所以我是在尝试根据某些条件创建列表时感到困惑。这是我从另一个脚本调用的代码......

getData <- function(){
  #grabs the *whole* data frame, but we only want specific rows/columns...
  csvData <- read.csv(file="..//database2.csv", header=TRUE, sep=",")

  #only return the columns/rows we're interested in
  returnData <- data[c(3:1816),c(4,11)]  #data[rows,columns]
  returnData
}



pacOnly <- function(data){
  lst <- list()
  xR = nrow(data)
  i <- 1
    for(r in 1:xR){
      if(is.na(data[r,1])){
        next
      }
      if(data[r,1] == "PAC"){
        tmp <- list(dat=data[r,])
        lst[i] <- tmp
        i <- i + 1
      }      
    }
  print(lst)
}

但是,当我打印我的lst对象时,它看起来像这样(缩短了)......

[[393]]
     Location N2N6
1798      PAC    X

[[394]]
     Location N2N6
1799      PAC    X

我想看到/创造的东西(可能是我误解的东西)是......

[[393]]
     PAC X
[[394]]
     PAC X

..等等,以便我以后可以填充UI组件。

0 个答案:

没有答案