如何解决R:如何在绘图中为负轴使用适当的减号
我收到了对我提交发表的图的评论,通过测试刚刚意识到我以前不知道的事情:当使用位图驱动程序时,R 似乎使用连字符而不是负值的适当减号在轴上。有什么办法可以纠正吗?
library(extrafont)
loadfonts(device="win",quiet=TRUE)
png("Test.png",family="Helvetica",width=5,height=5,units="in",res=300)
plot(-3:3,-3:3)
text(-2,2,labels=("\u2010 Hyphen"),pos=4)
text(-2,1.5,labels=("\u002d Hyphen-Minus"),1,labels=("\u2212 Minus"),pos=4)
dev.off()
如果您查看图像,轴上的负数明显错误地用连字符而不是减号标记。
使用 pdf()
驱动程序时,负值正确使用减号。我知道对于 pdf()
驱动程序,这可以通过使用 cairo-pdf()
进行更改。但是,在 type="windows"
- 或 png()
- 驱动程序中使用另一种类型(例如 tiff()
)不会将连字符更改为减号。
有什么办法可以使用 bitmab 驱动程序为负轴值使用适当的减号吗?
解决方法
在基数 r 中相当复杂。以下代码在绘图本身之后打印轴。轴标签中的连字符被 find&replace 替换为减号。
plot(-3:3,-3:3,xaxt="n",yaxt="n",xlab = "\u22123:3",ylab = "\u22123:3")
xat <- axTicks(1,usr=par("usr")[1:2])
labs <- gsub("-","\U2212",print.default(at))
axis(1,at=xat,labels=labs)
yat <- axTicks(2,print.default(at))
axis(2,labels=labs)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。