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)
赠送:

因此效果与将font-face更改为粗体相同,但尺寸差异不足以在覆盖时显而易见.在par帮助页面似乎并不对此有一个特定的设置.有人有主意吗?
注意改变size在ggplot2不产生我想无论是效果,我最后一次检查.
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的档案中潜伏着一个使用基本图形的版本,从中受到启发.
你可以尝试:
text(...,"FONT", vfont = c('serif','bold'))
Run Code Online (Sandbox Code Playgroud)
虽然我不确定你会如何做第三个版本的 FONT。
| 归档时间: |
|
| 查看次数: |
3952 次 |
| 最近记录: |