内联文本 - 从表中选择变量

Question

我有一张如下表：

table <- data.frame(number = 1:4, 
                    percentage2 = c(16, 79, 3, 3))

在 R Markdown 中，我想显示以下输出文本：

At number 1 10% achieved

为此，我通常会像这样修改表格：

table %>%
filter (number==1) -> tab 

然后我会写到 RMarkdown：

At number 1 `r (tab$percentage2)`% achieved.

有没有一种方法可以在不应用过滤器创建“标签”的情况下获得相同的结果？我本以为这样的事情会奏效，但它没有。

At number 1 `r (tab$percentage2, number==1)`% achieved.

这是我一直在做的一个非常简单的示例，因此如果有一种方法无需使用过滤器创建新表，这将为我节省大量时间。

Answer 1

我看不出这将如何节省时间，但您可以避免使用

创建新表

with(table, percentage2[which(number == 1)])

Answer 2

创建一个函数来为您进行格式化似乎是最容易的。这是一个基本布局，您可以针对其他场景进行自定义：

displayresults <- function(df, num){
  paste0("Number ", number, " ", 
        with(table, percentage2[which(number == num)]),
        "% achieved")
}

然后通过使用：

`r displayresults(table, 1)`

会输出

Number 1 16% achieved

一个完整的例子：

---
output: pdf_document
---

```{r}
table <- data.frame(number = 1:4, 
                    percentage2 = c(16, 79, 3, 3))


displayresults <- function(df, number){
  paste0("Number ", number, " ", 
        with(table, percentage2[which(number == 1)]),
        "% achieved")
}
```

`r displayresults(table, 1)`