如何在R语言中将pull获取的对象最后一个逗号替换为&并生成PDF？

你可以通过两种方式实现将向量最后一个逗号替换为&的需求，以下是具体实现：

方法一：使用glue包（推荐，格式更灵活） #

glue包的glue_collapse()函数专门用于向量元素的拼接，支持自定义普通分隔符和最后一个元素的分隔符：

---
title: "Untitled"
output: pdf_document
date: "2023-08-27"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(dplyr)
library(glue)
characters <- starwars |> pull(name)
# 生成带牛津逗号的格式（如"A, B, & C"）
formatted_chars <- glue_collapse(characters, sep = ", ", last = ", & ")

The characters on star wars are r formatted_chars .

如果不需要牛津逗号，可将`last`参数改为`" & "`，输出格式会变成"A, B & C"。

### 方法二：Base R原生实现（无需额外安装包）
通过基础R的字符串拼接函数也能实现需求，适合不想新增依赖的场景：
```r
---
title: "Untitled"
output: pdf_document
date: "2023-08-27"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(dplyr)
characters <- starwars |> pull(name)

# 根据向量长度处理拼接逻辑
if(length(characters) == 1){
  formatted_chars <- characters
} else {
  formatted_chars <- paste0(
    paste(characters[-length(characters)], collapse = ", "),
    ", & ",
    characters[length(characters)]
  )
}

The characters on star wars are r formatted_chars .

内容的提问来源于stack exchange，提问作者Natalias