将for循环与元字符相结合

我正在编写一个for循环，用于检查特定列中的值是否与预定义列表匹配

所以有点像这样：

 money <- read.csv2("money.csv", header = T)
 #set counter
 count_financial = 1

 #set list
 financial_items <- c("bank", "ABN Amro")

 for (i in 1:nrow(money)) {
  if(money$Description[i] in financial_items ) {
   count_financial = count_financial + 1
  }
 }

钱你可以试试

filtered <- money[grep("bank|ABN Amro",money$Description,ignore.case=TRUE),]
count_financial <- nrow(filtered)

过滤尝试：

但如果您打算使用循环：

for (i in 1:nrow(money)) {
  if(money$Description[i] %in% financial_items ) {
   count_financial = count_financial + 1
  }
 }

更新：

重新阅读问题后，我认为您正在寻找：

length(grep("bank|abn amro", money$Description, ignore.case=TRUE))

length(grep("bank|abn amro", money$Description, ignore.case=TRUE))