png（）中的pointsize无法正常工作

Question

我正在尝试在R中创建一个png，我可以在不改变文本的表观高度的情况下改变分辨率，但它不起作用。

这是我的代码

drawbox <- function(res, ps=12, textcex=1) {
  png(file="test.png",width=6,height=3, units="in", res=res, bg="transparent", pointsize=ps)
  plot(x=c(0,1),y=c(0,1),type="n",xaxs = 'i',yaxs = 'i',axes=FALSE)
  text(x=0.5, y=0.5, adj=c(0.5,0.5), labels="Some text", cex=textcex*6)
  dev.off()
}

然后这会产生一个非常不同的文本大小

drawbox(res=300, ps=12, textcex=1)

比这个

drawbox(res=100, ps=12, textcex=1)

但这不是pointize论点的意思，这不会发生吗？

注意：我需要基础图形，其他软件包缺乏允许我制作我想要的内容的灵活性。

如果我弄乱了那个textcex参数，我可以让事情发挥作用，但这很烦人。