如何修正“匹配中的错误”(x，table，nomatch = 0L)：“匹配”需要向量参数“？

Question

当我运行这段代码时

url <- "https://github.com/midas-network/covid19-scenario-modeling-hub/blob/master/data-processed/Karlen-pypm/2021-05-30-Karlen-pypm.zip?raw=true"
temp <- tempfile()
download.file(url, temp)
karlen_model <- read.csv(unz(temp, "2021-05-30-Karlen-pypm.csv")) 
unlink(temp)

#karlen_model <- fread("/Karlen-pypm/2021-05-30-Karlen-pypm.csv")
karlen_ca <- karlen_model[location %in% "06"]

我知道错误：

"Error in match(x, table, nomatch = 0L) : 
  'match' requires vector arguments"

我试过这个解决办法：

karlen_ca <- karlen_model[location == "06"]

但另一个错误是：

Error in location == "06" : 
  comparison (1) is possible only for atomic and list types

请注意：

由于我正在下载公开可用的数据，因此示例是reproducible;

• The object karlen_model是一个数据框架；and

• class(karlen_model$location)返回factor.

非常感谢，大卫

Answer 1

您正在尝试的语法是一个有效的data.table语法，而不是一个有效的基R语法。

在基本R中，需要使用$或[[显式引用dataframe列。

所以这两种方法都能奏效-

karlen_ca <- karlen_model[karlen_model$location %in% "06", ]

或

karlen_ca <- karlen_model[karlen_model$location == "06", ]

您的代码可以使用with，但是它需要在行选择后添加一个逗号。

karlen_ca <- with(karlen_model, karlen_model[location == "06", ])

Answer 2

您可以在基R中使用子集：

# some data as an example
dat <- data.frame(something = letters[1:4], 
                  location = c("06", "03", "01", "06"))

# use subset
subset(dat, location == "06")
#R>   something location
#R> 1         a       06
#R> 4         d       06

# or with the the new pipe in R 4.1.0
dat |> subset(location == "06")
#R>   something location
#R> 1         a       06
#R> 4         d       06

Answer 3

我确实找到了一个成功的解决办法--即使用dplyr的过滤器：

karlen_ca <- karlen_model %>% filter(location == "06")

所以，这更多的是一个好奇的问题，而不是任何事情，但是为什么前两行(使用括号和基R)中的任何一行都不起作用？如何才能修正它们，特别是在基本R框架内？

感谢你，大卫