小编Tob*_*nne的帖子

我在 R 中编写了一个函数，用于替换 \xc3\xa4、\xc3\xb6、\xc3\xbc 和 \xc3\x9f 等德语字母，并希望将其记录在我的包中。我的例子是：

#\' @examples "Aber das ist es nun mal, was wir tun: wir tr\xc3\xa4umen weiter gegen \n#\' den Strom und unsere Tr\xc3\xa4ume entschl\xc3\xbcpfen uns fast so lebendig, wie wir sie\n#\' heraufbeschw\xc3\xb6ren k\xc3\xb6nnen." %>% replace_german_letters\n

当我构建包而不是“变音符号”时，会显示类似“\xc3\x83\xc2\xa4”的内容。\n我的编码设置在 RStudio 中已经是 UTF-8。我正在使用 roxygen2 来构建我的包。

我想更改bibliographystyleR Markdown 中的 ，但我发现没有任何帮助。

我不希望参考书目中有任何“和”（在最后一位作者之前）。我的首选是如果我可以使用alphadin(bst-file here ) 但我无法让它工作。

到目前为止，这是我的 YAML：

---
output: 
  pdf_document
bibliography: literatur.bib
biblio-style: alphadin.bst
header-includes:
  - \usepackage{graphicx} 
  - \usepackage{float}       
  - \usepackage[ngerman]{babel} 
  - \usepackage{fancyhdr}
  - \usepackage{hyperref}
  - \pagenumbering{gobble}
  - \usepackage{booktabs}
  - \usepackage{natbib}  
---

bst 文件与 R Markdown 文件位于同一目录中。

如果满足条件，我想更改 ggplot 中 x 轴文本的颜色。没问题，但为此，我必须知道theme_minimal(). 我查看了源代码，theme_bw()这让我theme_grey()找到了你可以在这里找到的源代码：https : //github.com/tidyverse/ggplot2/blob/master/R/theme-defaults.r 我看到许多声明颜色但不是其中之一x-axis？

我有一个包含内部列表的列表，这些列表都具有相同的结构，在我的例子中，它们是字符向量。现在我想要一个通过函数组合这些内部列表的列表（在本例中只是简单c）。一个最小的例子：

list(
  list(one = "a", 
       two = "b", 
       three = "c"), 
  list(one = "d", 
       two = c("e", "f"), 
       three = "g")
  )

我想要的输出：

list(
  one = c("a", "d"),
  two = c("b", "e", "f"),
  three = c("c", "g")
)

我搜索了很长时间，也有类似的问题，但我还没有找到我需要的东西。我还认为类似问题的答案相当复杂。不要误会我的意思，当然，解决这个问题没什么大不了的，但我无法想象没有真正优雅的方法/一个衬垫来解决这个问题。最好有tidyverse语法。

我想要一个堆叠的条形图，其中包含基于计数的百分比。我几乎达到了我想要的，但文本中的每个值都是 100% 而不是实际百分比......我认为我的代码中有一个小错误，但我找不到它。

ggplot(
  mtcars,
  aes(fill = factor(gear), 
      x = factor(carb))
) + 
  geom_bar(stat = "count", 
           position = "fill", 
           color = "black",
           width = 0.5) + 
  geom_text(aes(label = scales::percent(..prop..)), 
            position = position_fill(vjust = 0.5), 
            stat = "count") + 
  coord_flip()

我想知道一个字符串以多少个空格开头。这里有些例子：

string.1 <- "    starts with 4 spaces"
string.2 <- "  starts with only 2 spaces" 

我的尝试如下，但这两种情况都导致 1，我明白为什么会出现这种情况。

stringr::str_count(string.1, "^ ")
stringr::str_count(string.2, "^ ")

我更希望有一个完全像这样但使用另一个正则表达式的解决方案。

R中是否有一个实现的(!)函数,它为每个值提供经验分位数？我找不到任何......

假设我们有x

x = c(1,3,4,2)

我想要每个元素的分位数.

[1] 0.25, 0.75, 1, 0.5 

非常感谢你!

我想以data.tabledplyr的方式获取以下代码：

library(tidyverse)
library(data.table)

Iris <- as.data.table(iris)

Iris[, .(m = mean(Sepal.Width[Sepal.Width < 3])), Species]

这是我到目前为止的内容：

Iris %>% 
  group_by(Species) %>% 
  summarise(m = mean(Sepal.Width))

但是我不知道该把我放在哪里Sepal.Width < 3。

我有以下问题：

> 1e20 %% 3
[1] 0
Warning message:
probable complete loss of accuracy in modulus 

结果不可能是正确的，我确定这是因为1e20它真的很大。但我想在R. 有机会提出这个吗？

编辑：我想做以下挑战：https : //www.codeabbey.com/index/task_view/modular-calculator

这是我的代码：

library(tidyverse)
library(magrittr)

get_result <- function(.string){

  terms <- .string %>% 
    str_split("\n") %>%
    unlist %>% 
    str_replace("%", "%%") %>% 
    str_squish

  terms[1] %<>% 
    str_c("x <<- ", .)

  terms[2:length(terms)] %<>%
    str_c("x <<- x ", .)

    map(terms, ~ {
      eval(parse(text = .x))      
      })

    x

}

get_result("6
+ 12
           * 99
           + 5224
           * 53
           * 2608
           * 4920
           + …