水印在R中加入

我在R中使用magick庫我想在一些圖片上添加水印。水印在R中加入

我用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)

最後，輸出看起來像這樣;

不過，我想擁有的是這樣的事情，

那是可行的，在Rmagick？

來源

2017-10-10 maydin

你能提供輸入照片嗎？ –

@ Hack-R我把它上傳到這個鏈接：https：//imgur.com/0qgo1ML – maydin

例如，這

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)

給出了這樣的形象：

即，選擇一個漂亮的字體如可能馬圖拉MT腳本首都，告訴image_annotate哪裏上找到它您的硬盤驅動器，調整color參數中的不透明度 - 等瞧。字體不會放下陰影或顯示浮雕，但也許你可以通過繪製文本兩次來模擬這個文字，黑色陰影與另一個輕微偏移。

來源

2017-10-10 13:49:12 lukeA

它不是我的目標相同，但絕對比我的工作更好:)謝謝你...我嘗試了它，並且它運作良好！但是，我不明白你所說的不透明度調整。你是否想說要從調色板中選擇一種顏色，就像這個鏈接所述：http://www.stat.columbia.edu/~tzheng/files/Rcolor.pdf？或者是否存在我不知道的不透明度調整方式？ – maydin

@maydin顏色代碼是RGBA（紅色綠色藍色阿爾法），每一個範圍從0到255（以十六進制表示的00到FF）。因此'color =「＃FFFFFF11」，strokecolor =「＃FFFFFF22」'會爲您填充顏色提供高透明度的白色，並減少筆觸顏色的透明度。 – lukeA

好的。最後的數字是爲了設置不透明度..我不知道這一點。謝謝。 – maydin

水印在R中加入

回答

相關問題