我想在我的R图中添加4-氨基苯甲酸的分子结构。该图显示了所述分子的红外光谱。有没有一种方法可以使用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%:
最佳答案
您可以使用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
是考虑原始大小的比例。