min（）无法按预期工作

Question

I am trying to get the minimum of aa column.

The data has been split into groups using the "abbr" factor. My objective is to return the data in column 2 corresponding to the minimum in column number passed in the argument. If it helps , this is a part of the coursera R programming introductory course.

The minimum is supposed to be somewhere around 8, it shows 10.

Please help me here.

here's the link to the csv file on which i used read.csv

https://drive.google.com/file/d/0Bxkj3-FNtxqrLW14MFZCeEl6UGc/view?usp=sharing

best <- function(abbr, outvar){

    ## outcome is a dataframe consisting of a column labelled "State" (one of many)
    ## outvar is the desired column number

    statecol <- split(outcome, outcome$State) ##state is a factor which will be inputted as abbr

    dislist <- statecol[[abbr]][,2][statecol[[abbr]][, outvar] == 
                        min(statecol[[abbr]][, outvar])] ##continuation of prev line
    dislist
}

Answer 1

In my opinion you are messing up with NA, make sure to specify na as not available and na.rm=TRUE in min..

filedata<-read.table(file.choose(),quote='"',sep=",",dec=".",header=TRUE,stringsAsFactors=FALSE, na.strings="Not Available")
   f<-function(df,abbr,outVar,na.rm=TRUE){
      outlist<-split(df,df["State"])
      tempCol<-outlist[[abbr]][outVar]
      outlist[[abbr]][,2][which(tempCol==min(tempCol,na.rm=na.rm))]
    }
    f(filedata,"AK",44)