Basil's questions

Quero criar guias dinamicamente no quarto usando o conjunto de dados iris.

Uma aba para cada espécie e imprima a tabela para essa espécie na aba.

Aqui está meu código quarto até agora:

---
title: iris tabset
format: 
  html:
    df-print: paged
knitr:
  opts_chunk: 
    echo: false
---

 ```{r}
#| label: setup
#| include: false
# Libraries
library(tidyverse)

    ```

::: {.tabset}

```{r} 
#| output: asis 

res <- purrr::map_chr(unique(iris$Species), \(species) {
    knitr::knit_child(text = c(
      "## `r species`",
      "", 
      "```{r}",
      "#| echo: false",
      "iris %>%",
      "  filter(Species == species) ",
      
      "```",
      "",
      ""
    ), envir = environment(), quiet = TRUE)
  })

cat(res, sep = '\n')


    ```

:::

O código imprime as tabelas, mas elas não estão em suas próprias guias.

Alguém pode corrigir o código para que as guias sejam criadas conforme descrito?

Estou tentando escrever uma função para remover um determinado nível em uma coluna em R

iris_df <- iris
iris_df$Species2 <- iris_df$Species

purrr::map(.x=c("Species","Species2"),variable="setosa", .f=function(x, variable){
  levels(iris_df[,x])[levels(iris_df[,x]) == variable] <- NA
})

Posso executar isso, mas quando verifico os níveis, levels(iris_df$Species)a resposta é que [1] "setosa" "versicolor" "virginica" eu esperava que o setosanível tivesse sido removido. Alguém pode atualizar o código para corrigir isso?

Usando o dataframe da íris, quero a posição de todas as colunas com "Comprimento" no nome da coluna.

Posso encontrá-los manualmente usando o código abaixo, mas quero um método que me permita pesquisar apenas a palavra "Comprimento" sem precisar especificar o nome exato da coluna.

iris_df <- iris

which(colnames(iris_df) == "Sepal.Length") # returns 1
which(colnames(iris_df) == "Petal.Length") # returns 3

Alguém pode sugerir algum código para conseguir isso?

Eu tenho um dataframe com uma coluna mostrando categorias e outras 3 colunas (col1, col2 e col3).

Preciso descobrir quais categorias só têm NA para col1, col2 ou col3 (que é cat1 por causa dos NA em col3 e cat3 por causa dos NA em col1. cat2 incluiu não ou sim em cada um de col1, col2 e col3 e, portanto, não estão incluídos).

col1 <- c("yes","no","yes","no",NA,NA,NA)
col2 <- c(NA,NA,"yes","no","yes","no",NA)
col3 <- c(NA,"yes",NA,"no","yes","no","yes")

cat <- c("cat1","cat2","cat1","cat2","cat3","cat3","cat3")

df <- data.frame(cat,col1,col2,col3)

end_result <-c("cat1","cat3")

Quero que o resultado seja exibido como um vetor conforme mostrado acima.

Eu tenho duas tabelas chamadas datese items:

#dates table
from <- c(as.Date("2022/1/1"), as.Date("2022/3/1"), as.Date("2022/5/1"))
to <- c(as.Date("2022/1/25"), as.Date("2022/3/17"), as.Date("2022/5/30"))
id <- c(1,1,2)
dates <- data.frame(from, to, id)

#items table
item_id <- c(1, 1, 2)
date <- c(as.Date("2022/1/5"), as.Date("2022/3/4"), as.Date("2022/1/4"))
items <-data.frame(item_id, date)

#end result
from <- c(as.Date("2022/1/1"), as.Date("2022/3/1"), NA)
to <- c(as.Date("2022/1/25"), as.Date("2022/3/17"), NA)

end_result <- data.frame(item_id, date, from, to) 

O datesdf precisa se juntar ao itemsdf onde o ID corresponde e também onde a data do itemsdf está entre as datas de e para do datesdf. O end_resultdataframe mostra os resultados esperados.

Alguém tem alguma sugestão sobre como conseguir isso?