我如何从数据子集中列

问题描述 投票:0回答:1

rankhospital <- function(state = factor(), outcome = factor(), num = factor()) {
        #read data
        caremeasures <- read.csv("D:/data science specialization/course stuff/rprogw3/outcome-of-care-measures.csv", na.strings = "NA", stringsAsFactors = FALSE)
        
        
        #separate required columns
        requiredOutcomes <- caremeasures[11, 17, 23]
        
        #assign columns names
        names(requiredOutcomes[3]) <- "heart attack"
        names(requiredOutcomes[4]) <- "heart failure"
        names(requiredOutcomes[5]) <- "pneumonia"
        
         
        arrangedData <- order(requiredOutcomes[caremeasures$State == state, c(caremeasures$Hospital.Name, outcome)])
        
        if (num == "best"){
            result <- arrangedData[1, 1]
            return(result)
                
                
        }
        else if (num == "worst"){
            result <- arrangedData[nrow(arrangedData[,1]),1]
            return(result)
            
        }
        else 
            result <- arrangedData[num, 1]
            return(result)
}       

此代码应该返回与该功能输入相对应的单个医院的名称,但是我收到一个错误说明:

Error in requiredOutcomes[caremeasures$State == state, c(caremeasures$Hospital.Name,  : 
  incorrect number of dimensions
r
1个回答
0
投票

我没有您的数据,所以我会推测导致问题的原因。

© www.soinside.com 2019 - 2024. All rights reserved.