r - 试图在 ggplot 中加粗 y 轴

Question

我正在尝试加粗我的 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)
)

我见过类似的问题，但还没有找到我的问题的正确答案。谢谢

Answer 1

看起来他们很大胆。也许很难用你的字体或所有已经加粗的东西看？

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)
  )