小编nic*_*las的帖子

RStudio 文本编辑器是否有一种简单的自动化方法来转换它：

c(
"097",
"085",
"041",
"055"
)

对此：c("097", "085", "041", "055")？

其他文本编辑器有答案（例如，此处），但我正在寻找特定于 RStudio 的解决方案。

我想根据数据框每行的n 个最高值创建一个新列。

以下面的例子为例：

library(tibble)
df <- tribble(~name, ~q_1, ~q_2, ~q_3, ~sum_top_2,
              "a", 4, 1, 5, 9,
              "b", 2, 8, 9, 17)

这里，sum_top_2列对以“ q_ ”为前缀的列的 2 个最高值求和。我想按行概括为n 个最高值。我如何在dplyr不重塑的情况下做到这一点？

我正在尝试为gtsummary包含回归模型的回归表生成多个级别的标题，这些模型应在表中按年份分组。这是一个玩具示例：

library(dplyr)
library(gtsummary)
library(purrr)

set.seed(92922)
df <- tibble(y_1980 = rbinom(n = 10, size = 1, prob = .4),
             y_1990 = rbinom(n = 10, size = 1, prob = .7),
             x1 = rnorm(10, sd = 1),
             x2 = rnorm(10, sd = 2))

tbls <- c("y_1980 ~ x1", "y_1980 ~ x1 + x2", "y_1990 ~ x1", "y_1990 ~ x1 + x2") %>% 
  map(as.formula) %>% 
  map(glm,
      data = df, 
      family = binomial(link = "logit")) %>% 
  map(tbl_regression, exponentiate = TRUE) %>% 
  map(add_significance_stars, …

如何缩放表格以适应四开 PDF 页面？

例子：

---
title: "Untitled"
format: pdf
---

```{r setup}
#| include: false

library(dplyr)
library(gt)
```


```{r tbl}
#| include: true
#| echo: false


tibble(a = 1000, b = 2000, c = 3000, d = 4000, e = 5000, f = 6000, g = 7000, 
       h = 8000, i = 9000, j = 10000, k = 11000, l = 12000, m = 13000, n = 14000, 
       o = 15000, p = 16000, q = 17000, r = 18000, …

关于使用purrr包函数的问题有很多mutate，但我还没有找到一个可以应用于我的特定情况的问题，其中涉及条件函数。这是一个玩具数据框的示例：

library(dplyr)\n\ndf <- tibble(year = c("2018", "2018", "2019", "2019"), \n             observed = c("YES", "NO", "NO", "YES"))\n\n

这是所需的输出：

df %>% mutate(observed_2018 = if_else(observed == "YES" & year == "2018", 1, 0), \n              observed_2019 = if_else(observed == "YES" & year == "2019", 1, 0))\n#> # A tibble: 4 \xc3\x97 4\n#>   year  observed observed_2018 observed_2019\n#>   <chr> <chr>            <dbl>         <dbl>\n#> 1 2018  YES                  1             0\n#> 2 2018  NO                   0             0\n#> 3 2019  NO                   0             0\n#> 4 2019 …