你的数据看起来很大，所以虽然你的头脑给出了数据的样子，但它并不好用（因为它看起来像是一个位置的一只鸟的六个时间戳）。所以我创建了我自己的，希望仍然相似：

library(tidyverse)
set.seed(0)

df <- data.frame(
    bird_id = rep(1:10, each = 10),
    territory_id = sample(LETTERS[1:10], 100, replace = TRUE),
    timestamp =  ymd_hms("2023-01-01 12:00:00") + sample(1:10000000, 100, replace = TRUE))

> head(df)
  bird_id territory_id           timestamp
1       1            I 2023-03-05 03:57:14
2       1            D 2023-01-01 21:06:37
3       1            G 2023-03-01 07:23:02
4       1            A 2023-02-23 01:09:48
5       1            B 2023-03-29 22:41:45
6       1            G 2023-01-29 03:29:01

因此，虽然我很清楚你想分析你的数据集，但我不确定你具体想做什么。所以这里有一些你可能想要的东西，以及你如何做到这一点：

# 1. get the number of birds you have seen at any point in each territory
df |>
  distinct(territory_id, bird_id) |>
  count(territory_id)

# 2. count the number of rows in your dataset for each territory
count(df, territory_id)

# 3. count the number of rows in your dataset for each territory and bird

count(df, territory_id, bird_id)

型

是的！这就是我想知道的！非常感谢！基本上我已经看了你提供的第一个代码：

df |>
distinct(territory_id, bird_id) |>
count(territory_id)

字符串
它返回的结果是这样的：

territory_id     n
  <chr>        <int>
  1 GR002            2
  2 GR009            1
  3 GR011            1

型
等等
但在这里，我想知道属于该领土的individualID（也许然后我把它改为）：

df |>
distinct(territory_id, bird_id) |>
count(territory_id, bird_id)

型
它还给了我：

<chr>        <chr>                    <int>
  1 GR002        individual1 (eobs 5860)          1
  2 GR002        individual2 (eobs 5861)          1
  3 GR009        individual3 (eobs 6483)          1

型
这就给了我我想要的。所以我只需要使用计数功能...谢谢！