R"；由「；与自创“配对时返回空值的函数；nrow“；功能

我花了超过3个小时试图解决这个问题。我正在尝试获取每个id的实例数。我在“by”函数中创建了自己的函数，并测试了该函数，它为所有id组合获得了正确的计数。。。但当我运行以下代码时，它返回“NULL”：

使其成为一个更实用的概念。。如果我想知道每个患者在我的医疗机构进行了多少次“良好”+“实验室”检查，该怎么办：

dataset #<- this is the name of my dataset; each row is a visit.
id #<- this is the unique ID for each patient
event #<- this variable tells what type of visit it was

event == 1 #this is a 'well' visit
event == 2 #this is a lab visit 
event == 3 #this is a sick visit
event == 4 #this is an urgent care visit

by(dataset[,"event"], dataset[,"id"], function(dataset) {
nrow(subset(dataset["event"], (dataset["event"]==1 | dataset["event"]==2)))})

---

dataset#这就像一个符咒！非常感谢。我今天可以完成一些工作，不会再长出白发了！
table(subset(dataset, event %in% c(1, 2))$id)