根据 R 中 2 列中的值选择特定行

Question

我有一个 GPS 项圈位置的大型数据集，每天都有不同数量的位置。我想仅分离出收集了单个位置的日期，并创建一个包含所有信息的新数据框。

month    day    easting    northing    time    ID
  6       1     #######    ########    0:00    ##
  6       2     #######    ########    6:00    ##
  6       2     #######    ########    0:00    ##
  6       3     #######    ########    18:00   ##
  6       3     #######    ########    12:00   ##
  6       4     #######    ########    0:00    ##
  6       5     #######    ########    6:00    ##

目前我已经将一些东西散列在一起，但无法完全进入下一步。

library(plyr)
dog<-count(data1,vars=c("MONTH","day"))
datasub1<-subset(dog,freq==1)

这给了我一个读数，看起来

    MONTH day freq
1       6  29    1
7       7   5    1
8       7   6    1
10      7   8    1
12      7  10    1

我正在尝试使用月份和日期的值从主数据集中提取包含它们的行，以便我可以制作一个仅包含频率为 1 的点的数据框，但包含所有关联数据。我已经到了这一点：

sis<-c(datasub1$MONTH)
bro<-c(datasub1$day)
datasub2<-subset(data1,MONTH==sis&day==bro)

...但这并没有给我任何东西，就我个人而言，它应该对包含 bro 和 sis 值的行进行子集化，这具有直观意义（R 初学者）。

任何帮助将不胜感激。

Answer 1

修订：

datasub2<-subset(data1, paste(month,day,sep=".") %in% paste(datasub1$MONTH, datasub1$day,sep=".") )

任何特定的 MONTH 项目不太可能（而且很可能不可能）完全等于该子集。您可能更感兴趣的是“Month.Day”的组合是否位于 datasub1 中“Month.Day”的组合集中。如果标题如图所示，则您已经混淆了从 count() 函数返回的大小写。

> dog
  month day freq
1     6   1    1
2     6   2    2
3     6   3    2
4     6   4    1
5     6   5    1
> datasub1
  month day freq
1     6   1    1
4     6   4    1
5     6   5    1
> datasub2
  month day easting northing time ID
1     6   1 ####### ######## 0:00 ##
6     6   4 ####### ######## 0:00 ##
7     6   5 ####### ######## 6:00 ##

Answer 2

之后：

library(plyr)
dog<-count(data1,vars=c("MONTH","day"))

尝试这个：

indx = which(dog$freq==1)
data1[indx,]

Answer 3

data1[rownames(datasub1), ]

这是OP最初想法的延伸，但可能不是他们所追求的，实际上正是Wesley建议的，但又进一步推进了OP最初的步骤（减去兄弟部分，这让我有点困惑，因为......好吧出于同样的原因 DWin 说:)）。您所追求的是行名，而不是这些列中的值。您已经获得了该信息。行名称将该信息带回原始数据集。

n <- 100
data1 <- data.frame(
    Accuracy = round(runif(n, 0, 5), 1),
    MONTH    = sample(1:5, n, replace=TRUE),
    day      = sample(1:28, n, replace=TRUE),
    Easting  = rnorm(n),
    Northing = rnorm(n),
    Etc      = rnorm(n)
)


library(plyr)
dog<-count(data1,vars=c("MONTH","day"))
datasub1<-subset(dog,freq==1)

data1[rownames(datasub1), ]