R package：ggplot2手搓质谱图

library('ggplot2')
spectrum <- data.frame(
  mz = c(133.0284,134.0383,178.0274,193.0504),
  intensity =c(21.37909,71.00197,33.54125,11.33192))
ggplot(spectrum, aes(x = mz, y = intensity)) +
  geom_point(size = 0)+
  geom_segment(aes(x = mz,  y = 0,xend = mz, yend = intensity), size = 0.8)+
  labs(y="Relative Intensity",x="m/z")+
  ggtitle("Ferulic Acid")
Ferulic Acid
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容