写文章是个技术活，而写好文章之后的投稿则可以是技术活也可以是体力活。有人一投就中，而有人一投一个 reject，大家是哪种类型我不知道，反正我是后者，这其中的原因就比较多了，比如运气、对自己文章定位不清晰、期刊有某方面的偏见等。
所以，选对期刊很重要，接下来我就和大家分享一下我的一些选刊经验。
Part1没有投不中的稿
小标题是我导师和我说的一句话，就像让子弹飞先飞一会，子弹总会有落地的时候，而文章也总会有发表的日子，我们要做的就是参考编辑的意见，不断修改、完善文章，不断投稿。
Part2选刊常用网页工具
1LetPub
http://www.letpub.com.cn/index.php?page=journalapp
在我们写好一篇文章后，我们可以按照我们所写文章的主题与内容以及文章的定位来筛选合适的期刊。
2梅斯医学
https://www.medsci.cn/sci/index.do
梅斯医学的期刊查询也有着同样的功能，不过我一般用它来看某一期刊的论坛，看看网友们对此期刊的评价。
3GeenMedical
https://www.geenmedical.com/
Part3利用计量学选刊
用上述方法来找期刊可能会漏了一些期刊，为了找到合适的期刊，我们不妨尝试一下文献计量学。
3获取文献摘要
举个例子，假设我们目前有一篇GEO数据挖掘的文章要发表，正在找期刊。
我们先粗略的找了一下GEO相关的文章，共7350篇。
我们再将其保存为csv格式。
可以看到csv的格式还是非常整齐的，不需要我们过多处理，只需要读取入R中，便可开始可视化了。当然，获取摘要的方法也可以是R爬虫，为了提高效率，我们还可以加入并行函数
4计量分析
library(tidyverse)
library(ggplot2)
result <- read.csv('csv-GeneExpres-set.csv',encoding ='utf-8')
number <- data.frame(table(result$Journal.Book)) %>%
arrange(.,desc(Freq))
number$status<-'low'
number$status[which(number$Freq>100)]<-'middle'
number$status[which(number$Freq>300)]<-'high'
p <- ggplot(data = number[1:50,],aes(x=Freq,y=reorder(Var1,Freq),
fill=status))+
geom_bar(stat='identity',position ="stack")+
geom_text(aes(label=Freq),hjust=-1.5)+
scale_x_continuous(limits=c(0,350),breaks=seq(0,350,50))+
ylab('journal')+
theme_light()
p
用几行代码简单的处理了一下，我们就得到了结果。不简单的方法也是有的，不过就脱离了本文的目标了，但是大家还是可以参考一下：R语言快速实现文献计量分析
当然，这么做我们并不知道其期刊所在的分区及影响因子，如果我要投一个10分的期刊，我们可以用pubmed插件筛选期刊影响因子，再重复上述步骤。
PubMed插件也有很多种，我随便用了一种，不同插件风格有所不同，效果应该大同小异，看个人喜好选择就好。
Part4其他
当然，找期刊的方法也有很多，我只介绍了一些我常用的方法，一些其他方法如微信搜索相关推文，检索词为‘生信友好期刊’，同样也有结果可供选刊参考。
最后，本文所用代码及资料已上传微信公众号供大家交流讨论，后台回复‘20211117’即可获得。
文 | 繁尘杂事