R：為圖中的圖例和 xlab 和 ylab 參數設置粗體文本？

Question

我必須使情節中的所有文本都加粗。

我正在使用這個繪制密度：

par(mfrow=c(1,1),family="serif")

plot(density(rxyTop30),col="green",lty=1,lwd=3,bty="l",main="",
xlab=expression(paste(R[xy])),xlim=c(0.0,0.5),ylim=c(0,12),font=2)
 lines(density(jfTop30),col="blue",lty=1,lwd=3)
  legend("topright",c(expression(paste(R[xy]," with 30 ancestors with most 
  progeny"),paste(beta," (",alpha," = 0.96",", ",beta, " = 8.031)"))),
  lwd=c(3,3),lty=c(1,1),col=c("green","blue"),bty="n")

我嘗試在代碼中的不同位置插入font=2 。 它只使每個軸上的刻度數字變粗。

Answer 1

a <- 2
b <- 5
plot(a,b)
legend("topleft", legend = c(as.expression(bquote(bold("Bold"))),
                             as.expression(bquote("Not Bold"))))

結果

Answer 2

參數font控制刻度數字的狀態。 如果您希望軸標簽為粗體，則需要參數font.lab=2 。 即，以下代碼...

plot(density(rxyTop30),col="green",lty=1,lwd=3,font.lab=2,bty="l",main="",
xlab=expression(paste(R[xy])),xlim=c(0.0,0.5),ylim=c(0,12),font=2)
 lines(density(jfTop30),col="blue",lty=1,lwd=3)
  legend("topright",c(expression(paste(R[xy]," with 30 ancestors with most 
  progeny"),paste(beta," (",alpha," = 0.96",", ",beta, " = 8.031)"))),
  lwd=c(3,3),lty=c(1,1),col=c("green","blue"),bty="n")