Fatal编程技术网
  • r/
  • R 如何将jpeg徽标添加到基本图形打印的左上角外缘？

R 如何将jpeg徽标添加到基本图形打印的左上角外缘？

r plot

R 如何将jpeg徽标添加到基本图形打印的左上角外缘？,r,plot,R,Plot,我可以使用以下方法将jpeg添加到基本图形打印中： 参考： require（jpeg） img您可以设置xpd=TRUE将图像剪裁到体形区域而不是绘图区域。然后在光栅图像（）中，只需考虑边缘以外的坐标。您必须使用par（）和rasterImage（）位置向量进行一些操作 示例 图像数据 库（png） myurl您可以设置xpd=TRUE将图像剪辑到图形区域而不是绘图区域。然后在光栅图像（）中，只需考虑边缘以外的坐标。您必须使用par（）和rasterImage（）位置向量进行一些操作 示例

我可以使用以下方法将jpeg添加到基本图形打印中： 参考：

require（jpeg）

img您可以设置
xpd=TRUE
将图像剪裁到体形区域而不是绘图区域。然后在
光栅图像（）
中，只需考虑边缘以外的坐标。您必须使用
par（）
和
rasterImage（）
位置向量进行一些操作

示例



图像数据


库（png）

myurl您可以设置
xpd=TRUE
将图像剪辑到图形区域而不是绘图区域。然后在
光栅图像（）
中，只需考虑边缘以外的坐标。您必须使用
par（）
和
rasterImage（）
位置向量进行一些操作

示例



图像数据


库（png）
myurl

require(jpeg)
img <- readJPEG("myfile.jpeg")
#now open a plot window with coordinates
par(oma=c(2, 0, 3, 0))

plot(1:10, ty="n")
mtext("I would like to put logo here", adj=0, cex=1.5, line=1, side=3, outer=TRUE)
#specify the position of the image through bottom-left and top-right coords
rasterImage(img, 2, 2, 4, 4)



par(oma=c(2, 0, 5, 0), xpd=TRUE)  # c(bottom, left, top, right)
plot(1:10, ty="n")
rasterImage(img, -0.5, 12, 3, 15)  # c(xleft, ybottom, xright, ytop)



library(png)
myurl <- "https://cdn.sstatic.net/Sites/stackoverflow/company/img/logos/so/so-logo.png?v=9c558ec15d8a"
z <- tempfile()
download.file(myurl,z,mode="wb")
img <- readPNG(z)
file.remove(z)