我想为以四开本呈现为 HTML 的句子中的单词着色。在 R Markdown 中，我只需添加一个 css 标签，但我不知道如何在四开本中执行此操作。quarto文档说可以编写内联 css，但没有示例。有一个超链接显示了 R Markdown 示例：
```{css, echo=FALSE}
body {
color: red;
}
```
当我这样做时，四开将代码显示为代码块并且不使用 CSS。
如何将 CSS 代码块添加到四开文档？
我想让一个单词出现在使用 quarto 以 Revealjs 格式渲染的幻灯片中。
我知道我可以在下一行出现一个单词，如下所示：
---
title: "Thoughts on Quarto"
format:
revealjs
---
## Why do I use Quarto?
Because Excel
:::{.fragment}
stinks
:::
但我希望新单词出现在同一行。如果不制作两张几乎相同的幻灯片（也许使用auto-animate=true），这可能吗？
scales::label_percent()在 mutate 函数中使用的语法很不寻常，因为它使用双括号：
label_percent()(an_equation_goes_here)
我认为我以前没有见过()()R 中的语法，而且我不知道如何查找它，因为我不知道它叫什么。我尝试过?`()()`，??`()()`但都没有帮助。双括号语法称为什么？有人可以推荐一个阅读相关内容的地方吗？
这是上下文的示例：
\nlibrary(tidyverse)\nmembers <- \n read_csv(\n paste0(\n "https://raw.githubusercontent.com/rfordatascience/tidytuesday/", \n "master/data/2020/2020-09-22/members.csv"\n ), \n show_col_types = FALSE)\n\n\nmembers %>%\n count(success, died) %>%\n group_by(success) %>%\n # old syntax:\n # mutate(percent = scales::percent(n / sum(n))) \n # new syntax:\n mutate(percent = scales::label_percent()(n / sum(n))) \n#> # A tibble: 4 \xc3\x97 4\n#> # Groups: success [2]\n#> success died n percent\n#> <lgl> <lgl> <int> <chr> \n#> 1 FALSE FALSE 46452 98% …我正在开发的包中的一个函数使用acs::包（fips.state对象）中的数据集。我可以通过以下方式将这些数据加载到我的工作环境中
data(fips.state, package = "acs"),
但我不知道为我的函数加载这些数据的正确方法。我试过了
@importFrom acs fips.state,
但不会导出数据集。我不想复制数据并将其保存到我的包中，因为这似乎是一种糟糕的开发实践。
我都对着http://r-pkgs.had.co.nz/namespace.html，http://kbroman.org/pkg_primer/pages/docs.html和https://cran.r-project.org /doc/manuals/r-release/R-exts.html#Data-in-packages，但它们不包括有关从一个包到另一个包共享数据集的任何信息。
基本上，我如何制作另一个包中的函数所需的数据集，供我的包中的函数使用？
我正在使用lm()包含多项式的训练数据集。当我提前进行子集化时，与在函数调用中[ ]使用参数相比，我得到了不同的系数。为什么？subsetlm()
library(ISLR2)
set.seed (1)
train <- sample(392, 196)
auto_train <- Auto[train,]
lm.fit.data <- lm(mpg ~ poly(horsepower, 2), data = auto_train)
summary(lm.fit.data)
#>
#> Call:
#> lm(formula = mpg ~ poly(horsepower, 2), data = auto_train)
#>
#> Residuals:
#> Min 1Q Median 3Q Max
#> -12.8711 -2.6655 -0.0096 2.0806 16.1063
#>
#> Coefficients:
#> Estimate Std. Error t value Pr(>|t|)
#> (Intercept) 23.8745 0.3171 75.298 < 2e-16 ***
#> poly(horsepower, 2)1 -89.3337 4.4389 -20.125 …如果我使用 RStudio IDE 中的控制台打印小标题，NA 值将显示为红色。当我在 xaringan 幻灯片上打印表格时，表格为黑白，并且 NA_character_ 值显示为<NA>。有没有办法让 xaringan 幻灯片上的输出看起来像控制台输出（不使用屏幕截图）？
这是一个例子：
---
title: "x"
output:
xaringan::moon_reader
---
```{r}
library(tibble)
example <- tribble(
~name, ~age,
"Fran", 2,
"Bob", NA,
NA, NA
)
example
```
我想将当前正在执行的四开文件的名称添加到报告中，而不对其进行硬编码。我正在 RStudio IDE 中使用 R。两者`r scriptName::current_filename()`并`r commandArgs()`返回/Applications/quarto/share/rmd/rmd.R。有没有办法获取 Quarto 脚本的名称，而不是 knitr 正在处理的 R 文件的名称？
我想用一个简单的方程注释一个 ggplot 图。下面的代码做了它，但它会抛出一个关于应用 is.na() 的警告：
library(ggplot2)
ggplot() +
annotate(geom = "text", x = 1, y = 1,
label = expression(paste(beta, pi, "(1-" , pi, ")")),
hjust = "left")
Warning message:
In is.na(x) : is.na() applied to non-(list or vector) of type 'expression'
在没有警告的情况下包含表达式的正确语法是什么？
为什么这不会使警告消失？
suppressWarnings(
ggplot() +
annotate(geom = "text", x = 1, y = 1,
label = expression(paste(beta, pi, "(1-" , pi, ")")),
hjust = "left")
)
我正在使用 R 版本 4.0.2 和 ggplot2 版本 3.3.2
我想dplyr::summarise()与该dplyr::across()函数一起使用来生成一个表，该表包含非缺失值的数量、几个变量的均值和标准差。我可以使用 purrr 建模语法获取有关缺失值和平均值的信息，但我无法弄清楚如何在不使用多个汇总调用的情况下将汇总放入单个表中，然后bind_cols()
iris %>%
group_by(Species) %>%
summarise(across(starts_with("Sepal"), ~sum(!is.na(.))))
iris %>%
group_by(Species) %>%
summarise(across(starts_with("Sepal"), ~mean(., na.rm = TRUE)))
有没有办法组合列表语法：
iris %>%
group_by(Species) %>%
summarise(across(starts_with("Sepal"), list(mean = mean, sd = sd)))
使用purrr上面显示的函数语法一次获得未缺失值的数量，均值和标准差？
我想将我的子标题之一居中，而不是其下方的文本。我尝试了下面的代码，它将副标题以及小节中的文本居中。
---
title: "how do I center only a title"
format: html
---
### Something
something not centered
### A Centered Subheading {style="text-align: center;"}
Blah blah
- Blah
- More blah
- still more blah
### Somethingelse
not centered
仅将字幕居中的正确方法是什么？