如何从数据中子集列

Question

 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) }

此代码应该返回与提供给 function 的输入相对应的单个医院的名称，但我收到一条错误消息：

Error in requiredOutcomes[caremeasures$State == state, c(caremeasures$Hospital.Name,  : 
  incorrect number of dimensions

Answer 1

我没有你的数据，所以我会预测我认为导致问题的原因。

对caremeasures[11, 17, 23]的引用可能没有做你需要的事情，因此它返回了你不期望的东西。 试试caremeasures[,c(11, 17, 23)] 。

我将尝试展示使用mtcars发生了什么：

requiredOutcomes <- mtcars[1,2,3]
requiredOutcomes
# [1] 6
requiredOutcomes[1,2]
# Error in requiredOutcomes[1, 2] : incorrect number of dimensions

因为mtcars是一个data.frame ，所以您的[索引在后台使用[.data.frame 。 这翻译成类似

# equivalent
mtcars[1, 2]
`[.data.frame`(mtcars, 1, 2)

“参数”（是的，它只是一个常规函数）是：

str(formals(`[.data.frame`))
# Dotted pair list of 4
#  $ x   : symbol 
#  $ i   : symbol 
#  $ j   : symbol 
#  $ drop: language if (missing(i)) TRUE else length(cols) == 1

这意味着您的11, 17, 23 arguments 有效

`[.data.frame`(requireOutcomes, 11, 17, 23)

应用于 arguments 为

`[.data.frame`(x = requireOutcomes, i = 11, j = 17, drop = 23)

好的，所以x=有意义（数据）。 i=给出您的行选择 (11)，而j=给出列选择。 但是，当 R 期望为logical时，任何不为零的都被认为是TRUE ，所以这是有效的

`[.data.frame`(x = requireOutcomes, i = 11, j = 17, drop = TRUE)

通过返回一个标量（单个值，R中长度为1的向量）完全失去了你的意图（我怀疑）。 旁注：如果您使用0或FALSE ，那么您将返回一个具有 1 行和 1 列的data.frame 。

这是一种调试正在发生的事情的方法，以便您下次能够自己找到它。

myfunc <- function(x) {
  res <- x[1,2,3]
  return(res[1:3,])
}
myfunc(mtcars)
# Error in res[1:3, ] (from #3) : incorrect number of dimensions

好的，我们看到了同样的错误。 我们将使用debug(myfunc) （无论您的 function 名称是什么），尽管您可以通过将browser()放在 function 中的特定位置来获得类似的结果。

debug(myfunc)
myfunc(mtcars)
# debugging in: myfunc(mtcars)
# debug at #1: {
#     res <- x[1, 2, 3]
#     return(res[1:3, ])
# }
# Browse[2]> 

我们现在在 R 的调试器中，为我们提供了步骤执行跟踪。 键入n执行n行； 您可以使用?browser阅读更多命令。

n
# debug at #2: res <- x[1, 2, 3]
# Browse[2]> 
n
# debug at #3: return(res[1:3, ])
# Browse[2]> 
res
# [1] 6

（“debug at”显示要执行的下一行，所以我们还没有运行return(...) 。）这样，我们可以看到res我们认为应该是一个data.frame只是一个号码。 嗯。 现在回头看看代码并弄清楚发生了什么。 对我来说（在这个简单的例子中），很明显x[1,2,3]是个问题。