如何在R生成的条形码中添加标题及附加信息？

baRcodeR的custom_create_PDF本身没有直接添加标题和自定义附加信息的参数，但可以通过先生成包含文本的单个条码绘图，再批量组合成PDF的方式实现需求：

实现步骤 #

1. 用create_barcode生成基础条码的ggplot对象
2. 用add_text在条码上方添加标题、下方添加自定义附加信息
3. 将所有自定义条码绘图存入列表，传入custom_create_PDF的plotList参数完成PDF生成

完整代码示例 #

library(baRcodeR)

# 定义条码编号、标题
Labels = c("123456789012", "987654321098", "112233445566", "556677889900")
titles = c("Product 1", "Product 2", "Product 3", "Product 4")

# 自定义生成带标题和附加信息的条码绘图函数
create_custom_barcode <- function(label, title) {
  # 生成基础线性条码
  bc_plot <- create_barcode(label, type = "linear")
  
  # 在条码上方添加标题（y轴位置可根据实际调整，字号、样式按需修改）
  bc_plot <- add_text(bc_plot, text = title, y = 1.2, size = 14, fontface = "bold")
  
  # 构造下方附加信息，可自由添加内容（比如条码编号、生成日期等）
  extra_info <- paste("条码编号:", label, "\n生成日期:", Sys.Date())
  # 在条码下方添加附加信息（y轴位置、字号、行间距按需调整）
  bc_plot <- add_text(bc_plot, text = extra_info, y = -0.2, size = 10, lineheight = 1.2)
  
  return(bc_plot)
}

# 批量生成所有自定义条码绘图的列表
barcode_plots <- mapply(create_custom_barcode, label = Labels, title = titles, SIMPLIFY = FALSE)

# 组合所有绘图生成PDF
custom_create_PDF(
  plotList = barcode_plots,
  name = "barcodes_with_titles_and_info",
  numcol = 2,
  numrow = 3,
  trunc = FALSE
)

关键说明 #

• add_text函数是baRcodeR专门用来给条码绘图添加文本的工具，支持调整位置、字号、样式等参数
• 之前尝试的alt_text参数是用于给条码添加无障碍替代文本，并非用于显示可视化标题，因此会报错
• 附加信息可以自由扩展，比如添加产品型号、批次号等，只需修改extra_info的内容即可

内容的提问来源于stack exchange，提问作者Keivan.k