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

Question

在这里，我想删除按日期对给定城市只有一个条目的条目。例如，我想删除纽约和旧金山的条目，因为它们在 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)

Answer 1

使用您的样本数据

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)]