小编sha*_*fee的帖子

我必须定期运行两个科目（数学和阅读）的降价报告。目前，我必须在 Markdown 标题、输出文件名（.html 文件）中以及在 R 代码块中设置主题变量以进行数据处理。我想设置一次这个变量并调整标题、输出文件和分析。有没有办法做到这一点？

我知道标题可以通过paramsYAML 标头动态化，但这对输出文件名或 R 代码块内没有帮助。

请参阅下面我当前代码的一部分。请注意，读取变量被指定了 3 次（标题、输出文件名以及“预设”下的 R 代码块内。我想指定一次“读取”（最好在脚本顶部）。

---
title: Reading Investigation"
author: "xxx"
date: "`r format(Sys.time(), '%B %d, %Y')`"
output:
  html_document:
    code_folding: hide
    depth: 3
    fig_height: 10
    fig_width: 12
    highlight: tango
    number_sections: no
    theme: cerulean
    toc: yes
    toc_float: yes
    
knit: (function(inputFile, encoding) 
{ rmarkdown::render(inputFile, encoding = encoding, 
output_file = paste0('folder/reading_output_', Sys.Date(), '.html') )}) 
---

```{r, message=FALSE, echo=FALSE, warning=FALSE, results='hide', comment="", fig.height=10, fig.width=12}

# Libraries ------------------------------------------------------------------

library(RODBC)
library(tidyverse)
library(ggplot2)
library(kableExtra)

# …

我有一个四开 html 页面，带有侧边栏和目录（即 3 列页面）。我想增加内容列（中心列）的默认宽度，现在固定为 ~950px。我怎么做？

四开.yml

project:
  type: website

website:
  title: "Big Center Section"
  sidebar:
    style: "docked"
    search: false
    contents:
      - section: "Sidebar"
        contents:
          - text: "Item 1"
            url:  ./somewhere.html

format:
  html:
    theme:
      - flatly
      - custom.scss
    css: styles.css
    toc: true

jupyter ipynb 页面

---
title: "Big wide middle section"
jupyter: python3
format:
    html:
        code-fold: true
        code-line-numbers: true
---


Second cell:

# SOME REALLY REALLY REALLY LONG HEADING I WANT 2000px WIDE.....

scales::label_percent()在 mutate 函数中使用的语法很不寻常，因为它使用双括号：

label_percent()(an_equation_goes_here)

我认为我以前没有见过()()R 中的语法，而且我不知道如何查找它，因为我不知道它叫什么。我尝试过?`()()`，??`()()`但都没有帮助。双括号语法称为什么？有人可以推荐一个阅读相关内容的地方吗？

这是上下文的示例：

library(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% …

我正在尝试将一些相关的悬停信息添加到 echarts4r 图的工具提示中。我想制作一个箱线图，向用户显示异常值的名称（或一些其他信息）。这与向工具提示饼图 echarts4r 添加额外变量和向工具提示饼图 echarts4r 添加额外变量有些相关，但这些解决方案不起作用，因为bind不适用于e_boxplot。

这就是我到目前为止所拥有的

library(echarts4r)

df <- data.frame(
    my_name = letters[1:11],
    x = c(1:10, 25),
    y = c(1:10, -6)
)

df |>
    e_charts() |>
    e_boxplot(y, outliers = TRUE) |>
    e_boxplot(x, outliers = TRUE) |>
    e_tooltip(
      formatter = htmlwidgets::JS("
        function(params)
        {
          return `<strong>${params.name}</strong>
            <br/>val: ${params.value[1]}
          <br/>name: ${params.my_name}`
        }
      "))

我在这里掌握了 pytorch，并决定实现非常简单的 1 对 1 线性回归，从身高到体重。

获得数据集： https: //www.kaggle.com/datasets/mustafaali96/weight-height，但任何其他数据集都可以。

让我们导入有关女性的库和信息：

import torch
from torch.utils.data import Dataset
from torch.utils.data import DataLoader
import pandas as pd
import matplotlib.pyplot as plt
import numpy as np
df = pd.read_csv('weight-height.csv',sep=',')
#https://www.kaggle.com/datasets/mustafaali96/weight-height
height_f=df[df['Gender']=='Female']['Height'].to_numpy()
weight_f=df[df['Gender']=='Female']['Weight'].to_numpy()
plt.scatter(height_f, weight_f, c ="red",alpha=0.1)
plt.show()

这给出了测量的女性的良好分散性：

到目前为止，一切都很好。

让我们制作数据加载器：

class Data(Dataset):
  def __init__(self, X: np.ndarray, y: np.ndarray) -> None:
    # need to convert float64 to float32 else
    # will get the following error
    # RuntimeError: expected scalar type Double but found Float …

我在 R 中有一个数据框。我想匹配并保留该行，如果

• “女人”是第一个或
• 句子中的第二个单词，或
• 如果它是句子中的第三个单词，并且前面有“不”、“不”或“从不”等词。

phrases_with_woman <- structure(list(phrase = c("woman get degree", "woman obtain justice", 
"session woman vote for member", "woman have to end", "woman have no existence", 
"woman lose right", "woman be much", "woman mix at dance", "woman vote as member", 
"woman have power", "woman act only", "she be woman", "no committee woman passed vote")), row.names = c(NA, 
-13L), class = "data.frame")

在上面的示例中，我希望能够匹配除“she be Woman”之外的所有行。

这是我到目前为止的代码。我有一个积极的环视（(?<=woman\\s)\\w+"），似乎在正确的轨道上，但它与太多前面的单词匹配。我尝试使用{1}仅匹配前面的一个单词，但这种语法不起作用。

matches <- phrases_with_woman %>%
  filter(str_detect(phrase, "^woman|(?<=woman\\s)\\w+")) 

感谢帮助。

我正在使用 Quarto 使用 RStudio 制作一些 Revealjs 幻灯片，并一直在使用该code-line-numbers选项来选择性地突出显示代码行。例如：

```{r, echo = TRUE}
#| code-line-numbers: "1|3"
x <- 1
y <- 2
x + y
x * y
```

允许我突出显示演示文稿中的第一行和第三行代码。

我还希望能够突出显示输出中的某些行。例如，如果我只想突出显示x+y但不突出显示结果x*y，有没有办法这样做？我想知道是否有一个选项output-line-number或类似的选项可以达到预期的效果，但找不到这样的东西。

任何指示表示赞赏！

有人找到了一种方法来突出显示 quarto html 文档中的特定代码行（类似于 Reveal.js 代码突出显示选项？）。例如，在下面的示例中，我想突出显示新添加的group_by()代码行：

---
format: html
---

```{r}
library(dplyr)
iris |> 
  summarize(mean(Sepal.Length))
```

Add `group_by()`:

```{r}
iris |> 
  group_by(Species) |> 
  summarize(mean(Sepal.Length))
```

然而，我发现这个包仅适用于 RMarkdown。非常感谢任何提示！:)

我是否可以在四开演示文稿中设置字体以根据幻灯片的文本窗口对象自动调整大小？我开始组织一次演讲，向公司的每个人展示它有多么出色{quarto}，但我担心render --> check font size --> adjust font --> check again每张幻灯片上的每个窗口都要确保我的文本不会溢出可视区域。

当您在字段中键入文本时，PowerPoint 会自动执行此操作。

下面的示例quarto-pptx-resize-text.qmd，作为参考template.pptx，引用的是默认呈现的 pptx，并在主幻灯片中添加了我公司的文字标记。

---
title: "quarto-pptx-resize-text"
author: "M. Wood"
format: 
    pptx: 
        reference-doc: template.pptx
---

## A Few Lines (4)

- the quick brown fox jumped over the lazy dog
- the quick brown fox jumped over the lazy dog
- the quick brown fox jumped over the lazy dog
- the quick brown fox jumped over the lazy dog

## …

我对 Quarto 和 GitHub 比较陌生，在使用/安装我开发的 Quarto 扩展时遇到问题。这是一个 Revealjs 模板。为了创建它，我遵循了Quarto 官方文档中提供的说明。quarto create我使用shell 中的命令创建了扩展。然后我将所有文件推送到GitHub 存储库。当我从根渲染 template.qmd 文件时，该扩展工作正常。当我尝试在另一个 R 项目中使用我的新模板时，问题就出现了。当我输入quarto use template giuliomela/rse_ppt或quarto add giuliomela/rse_ppt收到以下消息时：Extension not found in local or remote sources因为该存储库是私有的，但它确实是公共的。我猜我的 GitHub 有问题，因为我可以毫无问题地使用和安装其他 Quarto 扩展，例如 Grant McDermott 的clean template。我究竟做错了什么？

我正在使用 R Studio

RStudio 2023.06.0+421 "Mountain Hydrangea" 
Release (583b465ecc45e60ee9de085148cd2f9741cc5214, 2023-06-05) for windows
Mozilla/5.0 (Windows NT 10.0; Win64; x64) 
AppleWebKit/537.36 (KHTML, like Gecko) 
RStudio/2023.06.0+421 Chrome/110.0.5481.208 Electron/23.3.0 Safari/537.36

R version 4.2.3 …