用r聚合和总结字符对象

Question

我有一个育种生产力数据集：

df1
    # Nest.box Obs.type individual.number Clutch Chick.status
    # 1 Nest1 Egg 1 First NA
    # 2 Nest1 Egg 2 First NA
    # 3 Nest1 Egg 3 First NA
    # 4 Nest2 Egg 1 First NA
    # 5 Nest2 Egg 2 First NA
    # 6 Nest2 Egg 1 First NA
    # 7 Nest1 Chick 1 First Dead
    # 8 Nest1 Chick 2 First Fledged
    # 9 Nest2 Chick 1 First Fledged
    # 10 Nest2 Chick 2 First Fledged
    # 11 Nest2 Chick 1 Second Fledged
    # 12 Nest2 Chick 2 Second UNK

我想通过 Nest.box 和 Clutch 聚合来总结这些数据（按 Nest.box 显示“Fledged”的数量，按离合器）

想要的输出将是这样的：

output
        # Nest.box Clutch Fledged
        # 1 Nest1 First 1
        # 2 Nest2 First 2
        # 3 Nest2 Second 1

Answer 1

另一种选择是过滤，然后使用计数：

library(tidyverse)

df %>% 
  filter(Chick.status == "Fledged") %>% 
  count(Nest.box, Clutch)

输出

  Nest.box Clutch n
1    Nest1  First 1
2    Nest2  First 2
3    Nest2 Second 1

数据

df <- structure(list(Nest.box = c("Nest1", "Nest1", "Nest1", "Nest2", 
"Nest2", "Nest2", "Nest1", "Nest1", "Nest2", "Nest2", "Nest2", 
"Nest2"), Obs.type = c("Egg", "Egg", "Egg", "Egg", "Egg", "Egg", 
"Chick", "Chick", "Chick", "Chick", "Chick", "Chick"), individual.number = c(1L, 
2L, 3L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L), Clutch = c("First", 
"First", "First", "First", "First", "First", "First", "First", 
"First", "First", "Second", "Second"), Chick.status = c(NA, NA, 
NA, NA, NA, NA, "Dead", "Fledged", "Fledged", "Fledged", "Fledged", 
"UNK")), class = "data.frame", row.names = c("1", "2", "3", "4", 
"5", "6", "7", "8", "9", "10", "11", "12"))

Answer 2

这是一个潜在的解决方案：

library(dplyr)

df <- read.table(text = "Nest.box Obs.type individual.number Clutch Chick.status
1 Nest1 Egg 1 First NA
2 Nest1 Egg 2 First NA
3 Nest1 Egg 3 First NA
4 Nest2 Egg 1 First NA
5 Nest2 Egg 2 First NA
6 Nest2 Egg 1 First NA
7 Nest1 Chick 1 First Dead
8 Nest1 Chick 2 First Fledged
9 Nest2 Chick 1 First Fledged
10 Nest2 Chick 2 First Fledged
11 Nest2 Chick 1 Second Fledged
12 Nest2 Chick 2 Second UNK", header = TRUE)

df %>%
  group_by(Nest.box, Clutch) %>%
  summarise(Fledged = sum(Chick.status == "Fledged", na.rm = TRUE))

#> # A tibble: 3 × 3
#> # Groups:   Nest.box [2]
#>   Nest.box Clutch Fledged
#>   <chr>    <chr>    <int>
#> 1 Nest1    First        1
#> 2 Nest2    First        2
#> 3 Nest2    Second       1

^{在2022-04-04创建的 reprex package （v2.0.1.1） ）}

Answer 3

library(dplyr)    
df2 <- df1 %>%
  distinct() %>%
  group_by(Next.box, Clutch) %>%
  tally() %>%
  ungroup()

Answer 4

使用 data.table：

library(data.table)
setDT(df)[Chick.status=="Fledged", .N, by=.(Nest.box, Clutch)]

##    Nest.box Clutch N
## 1:    Nest1  First 1
## 2:    Nest2  First 2
## 3:    Nest2 Second 1

这会将 df 转换为 data.table (setDT(df))，对 Chick.status=='Fledged' 进行过滤>，并对按 Nest.box 和 Clutch 分组的行进行计数 (.N)。