试图在ggplot粗体y轴上(Trying to bold y axis in ggplot)

我想我的大胆y轴。为坐标轴的标题是大胆，但我似乎无法弄清楚如何大胆数量本身。这是到目前为止我的代码，

combine.df %>% filter(site== "indian_creek") %>%
ggplot(aes(x = percent_corn, y = flow_concentration)) +
geom_smooth(method = "lm", color="black") +
geom_point(color=dark_umber, size=5) + 
scale_y_continuous(label=scientific_10, bold) +
scale_x_continuous(breaks = seq(46, 58, by=2)) +
theme(plot.subtitle = element_text(vjust = 1), 
plot.caption = element_text(vjust = 1)) +labs(title = "Indian Creek", 
face="bold", x = "Cultivated Crop as Corn (%)",
y = expression(bold(Weighted~Flow~NO[3]-N~(kg/m^{3}))))  +
theme(
# LABLES APPEARANCE
plot.title = element_text(size=14, face= "bold", colour= "black" ),
axis.title.x = element_text(size=14, face="bold", colour = "black"),    
axis.title.y = element_text(size=14, face="bold", colour = "black"),    
axis.text.x = element_text(size=12, face="bold", colour = "black"), 
axis.text.y = element_text(size=12, face="bold", colour = "black"),
strip.text.x = element_text(size = 10, face="bold", colour = "black" ),
strip.text.y = element_text(size = 10, face="bold", colour = "black"),
axis.line.x = element_line(color="black", size = 0.3),
axis.line.y = element_line(color="black", size = 0.3),
panel.border = element_rect(colour = "black", fill=NA, size=0.3)
)

我也有类似的问题，但还没有想出我的问题的正确答案。谢谢

看起来他们是大胆的。也许很难看到你的字体或一切已经粗体？

mtcars %>%   # Replaced with reproducible data
  ggplot(aes(x = wt, y = mpg)) +
  geom_smooth(method = "lm", color="black") +
  geom_point(color="brown", size=5) + 
  scale_y_continuous() +
  scale_x_continuous(breaks = seq(0, 58, by=2)) +
  theme(plot.subtitle = element_text(vjust = 1), 
        plot.caption = element_text(vjust = 1)) +
  labs(title = "Indian Creek",face="bold", x = "Cultivated Crop as Corn (%)",
       y = expression(bold(Weighted~Flow~NO[3]-N~(kg/m^{3})))) +
  theme(
    # LABLES APPEARANCE
    plot.title = element_text(size=14, face= "bold", colour= "black" ),
    axis.title.x = element_text(size=14, face="bold", colour = "black"),    
    axis.title.y = element_text(size=14, face="bold", colour = "black"),    
    axis.text.x = element_text(size=12, face="bold", colour = "black"), 
    # axis.text.y = element_text(size=12,  colour = "black"), # unbold
    axis.text.y = element_text(size=12, face="bold", colour = "black"), # bold
    strip.text.x = element_text(size = 10, face="bold", colour = "black" ),
    strip.text.y = element_text(size = 10, face="bold", colour = "black"),
    axis.line.x = element_line(color="black", size = 0.3),
    axis.line.y = element_line(color="black", size = 0.3),
    panel.border = element_rect(colour = "black", fill=NA, size=0.3)
  )