小编Cap*_*Hat的帖子

如何在 R Markdown 中打印星号 ('*')

我试图在我的 R Markdown 中用完整的字母写“3 times 6:10 and (3 times 6):10”(我使用 times 而不是 *。我的目的是用 * 代替单词时间,没有任何问题)。但是,它一直为我提供“6:10 和 (3”部分的斜体语法。如何将 R Markdown 中的 * 直接写入文档中,而不引发 * 语法,即使字母在中间变为斜体?

r r-markdown

35
推荐指数
3
解决办法
3万
查看次数

当使用“mutate”和“across”时,如何保留旧列并重命名新列

当我mutate across数据时,选择的列.cols将被突变的结果替换。我怎样才能在以下情况下执行此操作:

  • .cols保持输出中选择的列
  • mutate适当地自动重命名由?创建的列

例如:

require(dplyr)
#> Loading required package: dplyr
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
require(magrittr)
#> Loading required package: magrittr
set.seed(7337)

## Create arbitrary tibble
myTibble <- tibble(x = 1:10,
                   y = runif(10),
                   z = y * pi)

## I can mutate across these columns
mutate(myTibble, …
Run Code Online (Sandbox Code Playgroud)

r rename dplyr across

6
推荐指数
1
解决办法
1511
查看次数

为什么我不能将 ggplot 图例框的背景颜色更改为白色?(其他颜色也可以)

我试图通过添加 来重新着色我的 ggplot 对象的图例theme(legend.key = element_rect(fill = "white")),但图例仍然是灰色的。奇怪的是,当我选择 以外的颜色时,此代码有效"white"

这是一个带有一些虚拟数据的小示例:

## Dummy data
response <- rnorm(60, 50, 4)
year <- rep(c(1:10), 6)
treatment <- c(rep("A",30), rep("B", 30))
group <- c(rep(1, 20), rep(2, 20), rep(3, 20))
mydata <- data.frame(response, year, treatment, group)


library(ggplot2)

plot <- ggplot(mydata, aes(
       x = year,
       y = response,
       linetype = treatment,
       color = as.factor(group)
   )) +  geom_smooth()

## Specifying 'white' fill
plot + theme(legend.key = element_rect(fill = "white"))
#> `geom_smooth()` using method …
Run Code Online (Sandbox Code Playgroud)

r ggplot2

5
推荐指数
1
解决办法
1870
查看次数

如何在txt文件的r中拆分包含大量字母且没有空格的字符串?

假设我有一个如下所示的 txt 文件

aaaaaaaaaaaaaaaadddddddddddddssssssssssbbbbbbbbbbbbbccccccccccxxxxxxxxxxsddddddaaasdadvvvvvvvvbbbbbbbaxxxxnnnnnnnnnwwwwwwwwwwwwww
Run Code Online (Sandbox Code Playgroud)

str_split()这种情况我该如何申请?

我正在尝试计算这个txt文件中出现了多少个字母“a”

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

aaaaaaaaaaaaaaaadddddddddddddssssssssssbbbbbbbbbbbbbccccccccccxxxxxxxxxxsddddddaaasdadvvvvvvvvbbbbbbbaxxxxnnnnnnnnnwwwwwwwwwwwwww
Run Code Online (Sandbox Code Playgroud)

然后我跑了str_length(str_detect(mytxtfile, "a"))

该函数的结果少于 9,我相信我在使用时做错了什么str_split()

请帮忙!

r stringr

3
推荐指数
2
解决办法
114
查看次数

Rstudio 是否将“.Rproj.user”和“.Ruserdata”放入“.gitignore”中?

每当我将 git 与 R / Rstudio 一起使用时,该.gitignore文件默认包含两个项目:.Rproj.user.Ruserdata。我不想改变这一点,我只是想了解为什么会发生这种情况。这是 Rstudio 的某种默认设置吗?我通常通过集成终端进行提交,但我从来没有明确地向.gitignore自己添加任何内容。

一个澄清的后续问题:我必须做什么才能防止这种情况发生?我猜测,如果我使用记事本编写 a.RProj和 some .Rs 并通过独立的 Git bash 推送,我会在项目目录中保留一个空的“.gitignore”。

希望一切都有意义,感谢您提供的任何帮助。

git r rstudio

2
推荐指数
1
解决办法
863
查看次数

使用 dplyr 查找配对列的差异

set.seed(3)
library(dplyr)
dat <- tibble(Measure = c("Height","Weight","Width","Length"),
             AD1_1= rpois(4,10),
             AD1_2= rpois(4,9),
             AD2_1= rpois(4,10),
             AD2_2= rpois(4,9),
             AD3_1= rpois(4,10),
             AD3_2= rpois(4,9),
             AD4_1= rpois(4,10),
             AD4_2= rpois(4,9),
             AD5_1= rpois(4,10),
             AD5_2= rpois(4,9),
             AD6_1= rpois(4,10),
             AD6_2= rpois(4,9))
Run Code Online (Sandbox Code Playgroud)

假设我有这样的数据。我希望计算每个 AD 的差异,并与下划线数字配对,即 AD1diff、AD2diff、AD3diff。

而不是写作

dat %>%
mutate(AD1diff = AD1_1 - AD1_2,
       AD2diff = AD2_1 - AD2_2,
...)
Run Code Online (Sandbox Code Playgroud)

写这个的有效方法是什么?

r dplyr

2
推荐指数
1
解决办法
1134
查看次数

标签 统计

r ×6

dplyr ×2

across ×1

ggplot2 ×1

git ×1

r-markdown ×1

rename ×1

rstudio ×1

stringr ×1