interactive_annotate图像文字注释.jpg
image.png
# Sun Jan 17 01:05:03 2021 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
rm(list=ls());gc()
.rs.restartR()
library(magickGUI)
# interactive_annotate图像文字注释
# 不支持中文
# 不支持中文
# 不支持中文
interactive_annotate(wizard, "hello")
myimg <- image_read('https://s1.ax1x.com/2020/08/29/dHPO0A.jpg');BRRR::skrrrahh(27)
img <- interactive_annotate(image = myimg,
text = enc2utf8('a哈哈拎了个梨哈aO(∩_∩)O~a'),
font='Comic Sans', # 字体
style='italic',
decoration='underline' # 下划线
,color='green', # 文字填充色
strokecolor='red' # 边缘色
,boxcolor='blue', # 背景色
range_max_size = 1000, # 滚动条
range_max_weight = 850, # 滚动条
range_max_kerning = 300, # 滚动条
resolution = 0.1, # 滑块的分辨率
return_param = FALSE, # 返回参数还是处理结果
)
img
image_write(img,path = 'interactive_annotate图像文字注释.jpg')
