r - ggplot で y 軸のラベルを太字にする (x 軸は太字に設定されていますが、y 軸のラベルは変更されません)

Question

ggplot で軸ラベルと目盛りを太字に設定しようとしていますが、y 軸ラベルが太字に設定されていません。スクリプトに何を追加すべきか提案してください。以下は再現可能な例です。以下の例のように、y 軸のラベル文字列を設定するには、「atop」コマンドが必要です。

前もって感謝します。

library(ggplot2)

chart <- ggplot(diamonds, aes(x = table, fill = clarity)) +

geom_histogram() +

  scale_x_continuous('Month') + 

 scale_y_continuous(expression(atop('ET (W'~m^-2~')')))

chart<-chart+theme(axis.title.y = element_text(colour="grey20",size=20,face="bold"),
     axis.text.x = element_text(colour="grey20",size=20,face="bold"),
     axis.text.y = element_text(colour="grey20",size=20,face="bold"),  
     axis.title.x = element_text(colour="grey20",size=20,face="bold"))  

print(chart)