Início / coding / Perguntas / 79595434
Accepted
Luis Morales Knight
Asked: 2025-04-28 03:53:09 +0800 CST

Concatenar células em uma lista de texto para saída em R

  • 772

Tenho uma tabela de cursos acadêmicos e competências profissionais, de forma que cada curso seja marcado como atendendo a competências específicas. Por exemplo:

Número do curso Nome do curso Competência 1 Competência 2
101 Introdução X
201 Intermediário X
301 Avançado X X

Trabalhando com R Markdown, gostaria de poder extrair listas de todos os cursos que atendem a uma determinada competência. O resultado que gostaria de ver, para começar, é:

[pegue uma lista para Competência 1]
101 Introdução
301 Avançado

Até agora, aqui está o código que descobri:

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

Entretanto, no documento R Markdown:

`r compcourses("Competency 1")'

resulta na seguinte saída:

101 Introdução, 301 Avançado

Não consigo descobrir de onde vem essa maldita vírgula, como suprimi-la ou como fazer com que cada curso fique em uma linha separada.

Qualquer ajuda será muito apreciada.

1 respostas

  1. Best Answer

    O problema é que você está usando um pedaço de código embutido com uma função que retorna um vetor de comprimento > 1. Em vez disso, você pode usar um pedaço de código com [texto ilegível] results="asis"e [ cattexto ilegível] como já sugerido por @TimG nos comentários. No entanto, para o seu caso de uso, eu também sugeriria dar uma olhada no epoxypacote que permite relatórios fáceis usando algum tipo de supercola , por exemplo, epoxyvocê pode criar facilmente uma lista de linhas do seu quadro de dados e estilizá-lo usando 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}
```

    insira a descrição da imagem aqui

    • 2

relate perguntas