子集数据帧，基于min（）

Question

我正在尝试建立一个函数，该函数使用y参数对数据框进行子集设置，然后计算yp列的最小值。 然后，将yp列的最小值用于关于c列的同一数据帧的子集。

b <- function (y) {
    df<- read.csv("C:/../.csv", colClasses="character")
    y.p<-paste("d",y, sep=".")
    minimum=min(min.outcome<-as.numeric(data.frame[,y.p]),na.rm=T)
    df[df$y.p==minimum,"c"]
}

这是数据框的一部分： https : //www.dropbox.com/s/y3152d1ki1ot232/Classeur2.csv

运行该函数后，结果是character(0) ！

我已经逐行测试了功能，并且错误似乎在最后一行。

您能帮我解决这个问题吗？

谢谢，

Answer 1

好的，说实话，很难说出要完成的任务，但是我认为，如果要读取的数据具有以d.开头的多列，则希望将字符值传递给y 。 d. ？ 无论如何，如果这是不正确的，请逐步完成您尝试做的事情。

Foo <- function(y){
  df <- read.csv(
    file="G:/Classeur2.csv",
    header=TRUE,
    colClasses=c(
      'numeric',
      rep('character',4))
  )
  ##
  df[,3:5] <- sapply(3:5, function(X){
    df[,X] <- as.numeric(
      gsub("Not Available",NA,df[,X])
    ) 
  })
  ##
  y.p <- paste("d",y,sep=".")
  ypCol <- match(y.p,names(df))
  ##
  minimum <- min(
    df[,ypCol],
    na.rm=TRUE
  )
  ##
  dOut <- df[df[,ypCol]==minimum,"c"]
  dOut <- dOut[!is.na(dOut)]
  return(dOut)
}
##
Foo(y="y")
## [1] "HOSPITAL SYSTEM"