控制字体粗细而不改变字体大小

And*_*our 8 fonts plot r font-size ggplot2

我正在寻找一种方法来控制绘制的文本的线条粗细,R而不会改变字符的尺寸.这是一个例子(不使用R):

不同的字体权重

中间字的厚度是顶部的两倍,但尺寸是相同的(因此没有发生缩放).底部的单词实际上是两个单词:一个红色单词覆盖在一个沉重的白色单词上,创建分色(特别适用于注释繁忙的情节).

这是一组命令,我一起试图复制上图:

png("font.png",width=1.02, height=1.02, units="in", res=150)
par(ps=10, font=1, bg="light gray", col="black", mai=rep(0.02,4), pin=c(1,1))
plot.new()
box()
text(0.5,0.85,"FONT",cex=1)
text(0.5,0.6,"FONT",cex=2)
text(0.5,0.3,"FONT",cex=2,col="white")
text(0.5,0.3,"FONT",cex=1,col="red")
text(0.5,0.1,"FONT",cex=1, font=2, col="white")
text(0.5,0.1,"FONT",cex=1, font=1, col="red")
dev.off()
Run Code Online (Sandbox Code Playgroud)

赠送:

在R中复制

因此效果与将font-face更改为粗体相同,但尺寸差异不足以在覆盖时显而易见.在par帮助页面似乎并不对此有一个特定的设置.有人有主意吗?

注意改变sizeggplot2不产生我想无论是效果,我最后一次检查.

bap*_*ste 11

您可以尝试添加多个版本的文本稍微移位圆形图案,

是啊


library(grid)
 stextGrob <- function (label, r=0.02, x = unit(0.5, "npc"), y = unit(0.5, "npc"), 
                        just = "centre", hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, 
                        default.units = "npc", name = NULL, gp = gpar(), vp = NULL){

   let <- textGrob("a", gp=gp, vp=vp)
   wlet <- grobWidth(let)
   hlet <- grobHeight(let)

   tg <- textGrob(label=label, x=x, y=y, gp=gpar(col="red"),
                  just = just, hjust = hjust, vjust = vjust, rot = rot,
                  check.overlap = check.overlap, 
                  default.units = default.units)

   tgl <- c(lapply(seq(0, 2*pi, length=36), function(theta){

     textGrob(label=label,x=x+cos(theta)*r*wlet,
              y=y+sin(theta)*r*hlet, gp=gpar(col="white"),
              just = just, hjust = hjust, vjust = vjust, rot = rot,
              check.overlap = check.overlap, 
              default.units = default.units)

     }), list(tg))


   g <- gTree(children=do.call(gList, tgl), vp=vp, name=name, gp=gp)

 }

 grid.stext <- function(...){
   g <- stextGrob(...)
   grid.draw(g)
   invisible(g)
 }

 grid.newpage()
 grid.rect(gp=gpar(fill="grey"))
 grid.stext("Yeah", gp=gpar(cex=4))
Run Code Online (Sandbox Code Playgroud)

在R-help的档案中潜伏着一个使用基本图形的版本,从中受到启发.


jor*_*ran 0

你可以尝试:

text(...,"FONT", vfont = c('serif','bold'))
Run Code Online (Sandbox Code Playgroud)

虽然我不确定你会如何做第三个版本的 FONT。