R min函数未返回最小值

第一次在这里发布，非常感谢您的帮助。 我在Coursera上做数据科学专业的R编程作业，但有一部分我很难完成

best <- function(state, outcome) {
  directory <- setwd("/Users/SParikh3/Desktop/rprog-data-ProgAssignment3-data")
  data <- read.csv("outcome-of-care-measures.csv", colClasses = "character")
  table <- data.frame(cbind(data[,2], data[,7], data[,11], data[,17],   data[,23]))
  colnames(table) <- c("Hospital", "State", "Heart Attack", "Heart Failure", "Pneumonia")

  if(!state %in% table[,"State"]){
    stop("Invalid state")
  }
  else if (!outcome %in% c("Heart Attack", "Heart Failure", "Pneumonia")) {
    stop("Invalid outcome")
  }
  else {
    table <- subset(table, State == state, select = c(outcome, "Hospital"))
    x <- as.numeric(table[,outcome])
    minimum <- min(x, na.rm = TRUE)
    result <- table[, "Hospital"][which(x == minimum)]
    output <- result[order(result)]
  }
  return(output[1])
}

---

最好我认为您的列都是
data.frame中的
factor
s（cbind（..
步骤，因为
cbind
将其转换为
矩阵，矩阵只能容纳一个类。将其更改为
data.frame（data[，2]，data[，7]，data[，11]，data[，17]，data[，23]）
或简而言之
表1无论是谁教了你
数据帧（cbind（…）
范式，都应该概括地说……语言上的损失……我能说些什么来表达一种不涉及不可接受的暴力的极端制裁？我刚想出来。我必须用as.numeric（as.character（））来排列我的结果…为什么data.frame（cbind）如此可怕？因为上面说的是
akrun
。
cbind
首先发生，它将数据转换成一个矩阵，将所有数据转换成同一个类，这通常会导致错误。在大多数情况下，
data.frame（…）
工作正常，
data.frame（cbind（…）
效果很差。
cbind（）
在（大多数）
data.frame（cbind（…）
调用中所做的唯一事情就是添加问题。我认为您的列都是
data.frame（cbind）中的
因子（..
步骤，如
cbind
将其转换为
矩阵，矩阵只能容纳一个类。将其更改为
data.frame（data[，2]、data[，7]、data[，11]、data[，17]、data[，23]）
或简明地将
表1更改为
data.frame（cbind（…）
范例应该是总结性的…文字的损失…我能说什么来传达一种不涉及不可接受的暴力的极端制裁？我刚想出来。我不得不用as.numeric（as.character（））来排列我的结果…为什么是data.frame（cbind）（太可怕了？因为上面的
akrun
所说的。
cbind
首先发生，它将您的数据转换成一个矩阵，将所有数据转换成同一个类，这通常会导致错误。在大多数情况下，
data.frame（…）
效果很好，
data.frame（cbind（…）
效果很差。唯一的是
cbind（）
在（大多数）
data.frame（cbind（…）
调用是添加问题。