删除一组中只有一个观察的条目

在这里，我想删除按日期对给定城市只有一个条目的条目。例如，我想删除纽约和旧金山条目，因为它们在 4-11 和 4-12 上只有 1 个观察值。

day                          City                  age
4-10                        Miami                   30
4-10                        Miami                   23
4-11                        New York                24
4-12                        San Francisco           30

注意数据集称为DG

我尝试使用 for 循环来查找日期并了解每天每个分区的条目数，但我不确定如何在 R 中使用数组。 计数x=0

D = unique(DG$day)
for (i in 1:length(D))
{
    for (j in 1:length(DG$age))
    {
      if (DG$day[j] == D{i]
      {
      countx[j] = 1
      }
      else
      {
      countx[j] = 0
      }
    }
Binded <- cbind(countx, DG)

使用您的样本数据

DG <- read.csv(text="day,City,age
4-10,Miami,30
4-10,Miami,23
4-11,New York,24
4-12,San Francisco,30")

你可以用dplyr

library(dplyr)
DG %>% group_by(day,City) %>% filter(n()>1)

或碱基R

DG[ave(rep(1, nrow(DG)), DG$day, DG$City, FUN=length)>1,]

都返回

   day  City age
1 4-10 Miami  30
2 4-10 Miami  23

或者你可以使用data.table（按照@Frank的建议）

library(data.table)
setDT(DG)[,if (.N>1) .SD, by=.(City,day)]