TextGrob R - fontface =太字で太字ではありません

Question

テキストを太字にしてグラフページのヘッダーを作成しようとしています。私が使用しているコードは以下の通りですが、fontface = boldを設定しましたが、これは動作していないようです。 私はそれを設定する必要がある別の場所がありますか？

t = textGrob(expression(underline("My Sample Header")),gp=gpar(fontfamily="serif",fontsize=16, fontface="bold",lineheight=1),vjust=.3,hjust=2.15) 

Answer 1

誰がこれを答えていないので、あなたが行うことができ、この二つの方法：

方法1：使用式が、好きですかexpression(bold(underline(...)))：

t = textGrob(expression(bold(underline("My Sample Header"))),gp=gpar(fontfamily="serif",fontsize=16, fontface="bold",lineheight=1),vjust=.3,hjust=1) 
grid.draw(t) 

方法2：書き込みtextGrobと行（おそらく良いオプション）を組み合わせたラッパー関数：

underlineText <- function(text, gpar, vjust, hjust){ 
    txt <- textGrob(text, gp=gpar, vjust = vjust, hjust = hjust) 
    undLine <- segmentsGrob(x0 = txt$x - grobWidth(txt), y0 = txt$y - unit(0.55, "grobheight", txt), x1 = txt$x, y1 = txt$y - unit(0.55, "grobheight", txt)) 
    gt <- grobTree(txt, undLine) 
} 

grid.draw(underlineText("My Sample Header", gpar(fontfamily="serif",fontsize=16, fontface="bold",lineheight=1), vjust = 0.3, hjust = 1))