如何在R中将文本添加到QR图中？

Question

我无法将文本添加到我的二维码图中。我希望在二维码的底部添加一个注释，用于读取文本字符串(在本例中为"hello")。当我运行下面的脚本时，我只得到了没有任何注释的二维码。添加文本的最佳方式是什么？

# Libraries
library(qrcode)
library(ggplot2)

# QR String
string <- "test"

# Create QR Code
qrcode_label <- qrcode_gen(string, plotQRcode = TRUE)

# Annotate QR Code
#qrcode_label_annotated <- qrcode_label + text("hello")

# Save QR Code as PNG
ggsave("qrcode.png")

Answer 1

这就是我是如何做到的。使用magick。

​

library(magick)
  library(rsvg)
  for (i in a) {
    print(i)
    ii=image_read(i)
    ii=image_annotate(ii,paste(tools::file_path_sans_ext(i)),  gravity= "south",size=20)
    print(ii)
    ##image_write(ii, path = "C:\\temp\\"&ii*".png", format = "png")
    image_write(ii, format <- "png", path = paste0(i, ""))

​