R语言magick包image_annotate函数文本颜色不生效问题求助

问题现象 #

使用magick包的image_annotate函数时，无法将文本颜色设置为白色（无论是用R颜色名"white"还是十六进制值"#FFFFFF"），文本始终显示为黑色，但字号、字体、位置等其他参数可正常生效。在RStudio绘图窗口及导出的PNG文件中均存在此问题。

环境信息：

• R版本4.2.2
• RStudio Build 676
• magick包版本2.7.3

问题复现代码：

library(magick)

height <- 100
width <- 80

X <- array(
          runif(height * width * 3, min = 0, max = 255),
          dim = c(height, width, 3)
          )

img <- magick::image_read(X / 255) %>% magick::image_scale("500x400")
img <- magick::image_annotate(img, text = "Example", gravity = "northeast", location = "+50+50", font = "times", size ="20", color = "white")

print(img)

image_write(img, path = "c:/temp/ouput.png")

解决方案 #

问题根源在于通过数组创建的图像颜色空间未被正确识别为RGB，导致文本颜色渲染异常。可通过以下方式解决：

方法：转换图像为sRGB颜色空间 #

在读取数组后，使用image_convert将图像转换为标准sRGB颜色空间，再进行后续操作：

library(magick)

height <- 100
width <- 80

X <- array(
          runif(height * width * 3, min = 0, max = 255),
          dim = c(height, width, 3)
          )

# 读取数组后转换为sRGB颜色空间
img <- magick::image_read(X / 255) %>% 
  magick::image_convert("sRGB") %>% 
  magick::image_scale("500x400")
# 添加白色文本
img <- magick::image_annotate(img, text = "Example", gravity = "northeast", location = "+50+50", font = "times", size ="20", color = "white")

print(img)
image_write(img, path = "c:/temp/ouput.png")

补充排查步骤 #

若上述方法无效，可尝试：

• 更换字体（如font = "Arial"），排查是否为特定字体的渲染问题；
• 检查系统级ImageMagick版本（magick包依赖该工具），尝试更新至稳定版；
• 测试其他颜色值（如"red"），确认是否仅白色存在异常。

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