Início / coding / Perguntas / 79575345
Accepted
Bugsy
Asked: 2025-04-15 22:04:23 +0800 CST

Ocorrências de contagem de R dplyr que estão em múltiplas condições

  • 772

Sou novo no dplyr e gostaria de saber uma maneira rápida de obter esses dados:

EU IA Idade AnoMorreu
100 2 2005
102 4 N / D
103 1 N / D
106 5 2002
108 1 N / D
109 1 N / D
110 4 N / D
112 3 N / D

Para esses dados (contando cada sobrevivente por idade, ou seja, se um ID tem 5 anos, ele passou das idades 1, 2, 3, 4, 5, enquanto um ID de 2 passa apenas de 2 idades (1, 2) (isso faz sentido?):

Idade Número do Sobrevivente
1 8
2 5
3 4
4 3
5 1

Também é possível combinar o resultado anterior com estes (número de IDs na categoria)?:

Idade Número atual de IDs
1 3
2 1
3 1
4 2
5 1

Este foi meu código inicial para o último caso:

groupedDf <- inputDf %>%
               count(Age)  %>%
               group_by(Age = case_when(Age == 1 ~ '1',
                                          TRUE ~ as.character(Age))) %>%
               group_by(Age = case_when(Age == 2 ~ '2',
                                          TRUE ~ as.character(Age))) %>%
               group_by(Age = case_when(Age == 3 ~ '3',
                                          TRUE ~ as.character(Age))) %>%
               group_by(Age = case_when(Age == 4 ~ '4',
                                          TRUE ~ as.character(Age))) %>%
               group_by(Age = case_when(Age == 5 ~ '5',
                                          TRUE ~ as.character(Age))) %>%
               summarise(n = sum(n))  %>%
               arrange(nchar(Age), Age)

2 respostas

  1. Best Answer

    É mais fácil obter a tabela de contagem primeiro e depois gerar SurvivorNumber por meio de "soma cumulativa reversa":

    df %>%
  group_by(Age) %>%
  reframe(`Current Number of IDs`=n()) %>%
  mutate(SurvivorNumber=rev(cumsum(rev(`Current Number of IDs`))))

# A tibble: 5 × 3
    Age `Current Number of IDs` SurvivorNumber
  <int>                   <int>          <int>
1     1                       3              8
2     2                       1              5
3     3                       1              4
4     4                       2              3
5     5                       1              1
    • 3

  2. Base R

    local({
  i = tapply(X$Age, X$Age, FUN=length)
  data.frame(age = names(i), count = i, survivor = rev(cumsum(rev(i))))
})

      age count survivor
1   1     3        8
2   2     1        5
3   3     1        4
4   4     2        3
5   5     1        1

    Dados

    X = data.frame(
  ID = c(100, 102, 103, 106, 108, 109, 110, 112),
  Age = c(2, 4, 1, 5, 1, 1, 4, 3),
  YearDied = c(2005, NA, NA, 2002, NA, NA, NA, NA))
    • 1

relate perguntas