主页 / coding / 问题 / 79595434
Accepted
Luis Morales Knight
Asked: 2025-04-28 03:53:09 +0800 CST

将单元格连接成文本列表以在 R 中输出

  • 772

我有一张学术课程和专业能力的表格，每门课程都标记为满足特定能力要求。例如：

课程编号 课程名称 能力 1 能力 2
101 简介 十
201 中间的 十
301 先进的 十 十

使用 R Markdown 时，我希望能够提取符合特定能力要求的所有课程列表。首先，我希望看到的输出是：

[拉出能力 1 的列表]
101 入门
301 高级

到目前为止，这是我弄清楚的代码：

compcourses <- function (competency){
                  courselist <- sprintf("%s %s",Table$CourseNumber[which(!is.na(Table[[competency]]))],Table$CourseName[which(!is.na(Table[[competency]]))])
                  return(courselist)
                }

然而，在 R Markdown 文档中：

`r compcourses("Competency 1")'

输出结果如下：

101 入门，301 高级

我不知道这个该死的逗号是从哪里来的，如何抑制它，或者如何获得输出以使每个课程都在自己的单独一行上。

非常感谢任何帮助。

1 个回答

  1. Best Answer

    问题在于，您使用的内联代码块带有一个返回长度大于 1 的向量的函数。您可以改为使用带有 的代码块results="asis"，并使用 ，cat正如 @TimG 在评论中建议的那样。不过，对于您的用例，我还建议您查看epoxy允许使用某种强力胶轻松进行报告的软件包，例如，epoxy您可以使用 markdown 轻松创建数据框行和样式的列表：

    ---
output: html_document
---

```{r setup, include=FALSE}
library(epoxy)
```

```{r}
Table <- data.frame(
  stringsAsFactors = FALSE,
  CourseNumber = c(101L, 201L, 301L),
  CourseName = c("Intro", "Intermediate", "Advanced"),
  "Competency 1" = c("X", NA, "X"),
  "Competency 2" = c(NA, "X", "X"),
  check.names = FALSE
)
```

```{r}
compcourses <- function(competency) {
  dat <- Table[!is.na(Table[[competency]]), ]
  sprintf("%s %s", dat$CourseNumber, dat$CourseName)
}
```

As the output of `compcourses` is a vector, possibly of length > 1 you can use a
code chunk (with `results='asis'`) instead of an inline chunk:

```{r results='asis'}
cat(compcourses("Competency 1"), sep = "\n\n")
```

Also you might have a look at the `epoxy` package:

```{epoxy .data = subset(Table, !is.na(`Competency 1`))}
- **{CourseNumber}** {CourseName}
```

    在此处输入图片描述

    • 2

相关问题