ウォーターマークの追加R

Question

Rのmagickライブラリを使用しています。いくつかの画像にウォーターマークを追加したいと思います。

私はimage_annotateを以下のように使用しました。

img <- image_read("C:\\Users\\Maydin\\Desktop\\manzara.png") 
image_annotate(img, "my watermark", gravity = "northwest", location = "+200+275", 
       degrees = -30, size =50, font = NULL, color = "transparent", 
       strokecolor = "gray90", boxcolor = NULL) 

最後に、出力は次のようになります。

はしかし、

は Rで magickでそのなんとかです、このような何か私がしたいのですか？例えば

Answer 1

、この

download.file("https://i.stack.imgur.com/7X5To.png", tf<-tempfile(fileext = ".png"), mode="wb") 
library(magick) 
img <- image_read(tf) 
library(extrafont) 
truetype_path <- paste0("@", subset(fonttable(), FullName=="Matura MT Script Capitals", fontfile)[1,]) 
image_annotate(img, "my watermark", gravity = "northwest", location = "+70+220", 
       degrees = -30, size = 80, font = truetype_path, color = "#FFFFFF66", 
       strokecolor = NULL, boxcolor = NULL) 

は、このイメージを与える：

すなわち、多分マトゥーラ（Matura）MTスクリプト首都のような素敵なフォントを選択し、それをどこで見つけるかimage_annotateを伝えますあなたのハードドライブは、color引数で不透明度を調整してください。フォントは影を落とさず、安らぎを表示しませんが、テキストを2回プロットすることで、エミュレートすることができます。