Basil's questions

我想使用 iris 数据集在四开本中动态创建标签。

每个物种一个标签，并在标签中打印该物种的表格。

这是我目前的四开本代码：

---
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')


    ```

:::

代码打印表格，但它们不在自己的选项卡中。

有人可以修复代码以便按照描述创建标签吗？

我正在尝试编写一个函数来删除 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
})

我可以运行这个，但是当我通过执行来检查级别时，levels(iris_df$Species)答案是[1] "setosa" "versicolor" "virginica" 我预计该setosa级别已被删除。任何人都可以更新代码来解决这个问题吗？

使用 iris 数据框，我想要列名称中包含“长度”的所有列的位置。

我可以使用下面的代码手动找到它们，但我想要一种方法，允许我只搜索单词“Length”，而不必指定确切的列名称。

iris_df <- iris

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

谁能建议任何代码来实现这一目标？

我有一个数据框，其中一列显示类别，另外 3 列（col1、col2 和 col3）。

我需要找出哪些类别只有 col1、col2 或 col3 的 NA（这是 cat1，因为 col3 和 cat3 中的 NA，因为 col1 中的 NA。cat2 在 col1、col2 和 col3 中的每个中包含 no 或 yes，因此不包括在内）。

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")

我希望结果显示为矢量，如上所示。

我有两个表称为dates和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) 

dfdates需要连接到itemsdf，其中 id 匹配，并且 df 的日期items位于 df 的起始日期和终止日期之间dates。数据end_result框显示了预期的结果。

有人对如何实现这一目标有任何建议吗？