Bugsy's questions

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

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?):

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

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)

Sou novo em R e queria saber como usar uma maneira inteligente de primeiro aplicar uma função em duas colunas de um dataframe e depois filtrar por determinados critérios.

Então a lista inicial fica assim:

e eu quero que fique assim:

Eu também tenho uma matriz:

paraVerificar <- [100, 200]

O que eu quero fazer:

1º) Basta pegar o primeiro número da string (até o _) de ambas as strings nas colunas "Sample1" e "Sample2"

2º) Verifique se os números estão no array "toCheck"

3º) Mantenha todas as linhas que tenham um número em cada uma dessas colunas

Tentei muitas coisas e não sei se o piping é a opção correta: (Escrevi uma função que apenas pega o primeiro número da string)

qq <-  df %>% 
  df $Sample1 <-lapply(df $Sample1, functionToJustTakeTheFirstNumber)
  df $Sample2 <-lapply(df $Sample2, functionToJustTakeTheFirstNumber)
  filter(Sample1 %in% toCheck && Sample2 %in% toCheck ) 

Eu sempre recebo mensagens de erro engraçadas como

Erro em match.fun(FUN) :

'df$Sample2' não é uma função, caractere ou símbolo