如何移除数据访问次数少于 2 次的患者

Question

我有一个纵向数据集，每次访问 1 行。
数字患者 ID 号表示唯一的患者。

如何从我的数据集中删除所有少于 2 个观察值的患者？

所以对于这个例子，我想删除带有患者 105 和 110.

的行

示例

Patient ID   Disease Score
101             5
101             2
101             2
105             1
110             5
115             1
115             1

Answer 1

dat <- read.table(text="Patient ID,Disease Score
101,5
101,2
101,2
105,1
110,5
115,1
115,1", stringsAs=FALSE, header=TRUE, sep=",")

# one way in base
dat[dat$Patient.ID %in% names(which(table(dat$Patient.ID)>2)),]

# one way in dplyr
library(dplyr)

dat %>% 
  group_by(Patient.ID) %>%
  mutate(n=n()) %>%
  ungroup() %>%
  filter(n>=2) %>%
  select(Patient.ID, Disease.Score)

如何移除数据访问次数少于 2 次的患者

How to Remove Patients with Less Than 2 Visits of Data

r

subset

panel-data