如何修改上面的代码，给纵坐标轴添加一条线

如果你想在上述ggplot2图形上添加一条纵坐标轴的参考线（通常称为y轴的“零”线或“基准线”），可以使用`scale_y_continuous()`函数来添加。这里是一个示例：

ggplot(zjs, aes(x=NPb, fill=Agegruop)) + 
  geom_density(alpha=0.5) +
  theme(
    panel.grid.major=element_blank(),
    panel.grid.minor=element_blank()
  ) + 
  xlab("尿Pb浓度Z分") + 
  labs(title = '孕晚期尿Pb浓度') +
  theme(
    panel.grid.major=element_line(colour=NA),
    panel.background = element_rect(fill = "transparent",colour = NA),
    plot.background =element_rect(fill = "transparent",colour = NA), 
    panel.grid.minor = element_blank()
  ) +
  scale_y_continuous(limits=c(0, max(your_data$your_column)), # replace with your data and column name
                     sec.axis = sec_axis(~ ., breaks = seq(0, max_value, by = step_size), # replace max_value and step_size as needed
                                         labels = paste0("您的参考值:", .))) +   # adjust the label format if necessary
  guides(y = guide_axis(n.dots = NULL)) # remove gridlines on the secondary axis

在这个例子中，你需要将`your_data`和`your_column`替换为你实际的数据集名和你想要参考线对应的数据列；`max(your_data$your_column)`获取该列的最大值作为参考线的上限；`seq(0, max_value, by = step_size)`用于设定参考线的位置和步长；`labels = ...`用于定制参考线的标签。