r - 如何使用 SMILES 或图像将分子结构添加到 R 中的绘图中？

Question

我想将 4-氨基苯甲酸的分子结构添加到我在 R 中的图中。该图显示了上述分子的红外光谱。有没有办法使用 SMILES 添加它代码，这将是 O=C(O)c1ccc(N)cc1或者我可以把它添加为图片，可以找到here (在底部编辑)。我写了以下脚本:

par(family="mono", font.axis=1)
data <- read.table("D13-4-aminobenzoic_acid.asc")
x <- data[,1]
y <- data[,2]
x1 <- x[rev(order(x))] # reverse order x

plot(x1,y, type="n", xlim=rev(range(x)),  
     axes=FALSE,
     xlab=expression(paste("Wavelength [", cm^-1,"]")),
     ylab="Transmittance [%]"
     )

lines(x1, y, col="firebrick")

axis(1, at=seq(500,4000,250))
axis(2, at=seq(40,100,10), xpd=T)

可以找到 .asc 文件 here .
我希望分子位于左下角，因为可用空间最大。

图像缩小了 85%:

Answer 1

您可以使用 png 添加图像文件和 grid包:

library(png)
library(grid)
img <- readPNG("img.png")
grid.raster(img, x=.15, y=.25, width=.3, hjust=0, vjust=0)

看看?grid.raster对于函数的其他参数。 x和 y可能很难优化，请注意 width和 height是考虑原始尺寸的比例。