尝试在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)
)

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

- J. Piske

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(
    # LABELS 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)
  )
  

- Jon Spring