如何在R Markdown中生成无逗号、每行一条的能力对应课程列表？

问题原因分析 #

你看到的逗号是R对字符向量的默认输出格式——当在R Markdown中直接输出字符向量时，R会自动用逗号分隔向量中的每个元素，因此出现单行带逗号的结果。

另外需要注意：原函数里用!is.na(Table[[competency]])做判断，但从示例表格来看，不符合能力的单元格是空字符串（""）而非NA，这个判断逻辑需要调整，否则会得到错误结果。

解决方案 #

方法1：返回HTML换行格式的字符串 #

修改函数，将筛选后的课程字符串用<br>连接，在HTML格式的R Markdown输出中会自动换行：

compcourses <- function(competency) {
  # 修正判断逻辑：匹配标记"X"
  idx <- which(Table[[competency]] == "X")
  courselist <- sprintf("%s %s", Table$CourseNumber[idx], Table$CourseName[idx])
  # 用HTML换行符连接所有课程项
  paste(courselist, collapse = "<br>")
}

在R Markdown中直接调用即可：
r compcourses("Competency 1")
渲染后会得到每行一条课程的效果。

方法2：返回Markdown列表格式 #

如果希望输出带项目符号的标准Markdown列表，可修改函数生成列表项：

compcourses <- function(competency) {
  idx <- which(Table[[competency]] == "X")
  courselist <- sprintf("- %s %s", Table$CourseNumber[idx], Table$CourseName[idx])
  # 用换行符连接列表项
  paste(courselist, collapse = "\n")
}

调用时需要让R Markdown解析Markdown语法，使用带results='asis'参数的代码块：

cat(compcourses("Competency 1"))

渲染后会生成：

• 101 Intro
• 301 Advanced

测试用数据 #

如果还未创建测试表格，可使用以下代码生成示例数据：

Table <- data.frame(
  CourseNumber = c(101, 201, 301),
  CourseName = c("Intro", "Intermediate", "Advanced"),
  `Competency 1` = c("X", "", "X"),
  `Competency 2` = c("", "X", "X"),
  stringsAsFactors = FALSE
)

内容的提问来源于stack exchange，提问作者Luis Morales Knight