困恼三年多的问题，今天得到解决

【01】三年前的现状

三年前的很长一段时间里面，我在准备考研。考研，知识点记忆是重要的一个步骤。但我发现沉浸于每天的传统记忆方法，很难记住。

也许是我的传统记忆方法跟别人的有差别，感觉知识点总是记不住。

传统记忆，每天看，读，背…

当时为了能记住更多的知识，我选择了语音朗读软件。自己做好电子笔记（Word文档），然后复制到软件中朗读。然后早上起床听，晚上听，睡觉听，吃饭听，洗衣服听，洗澡听，不想看书听…

然而存在一个大问题是，朗读软件语速很快，读一遍没反应过来就到下一句。要想实现助记，必须同一句话重复好几遍。比如：

点赞的人好帅，点赞的人好美。点赞的人好帅，点赞的人好美。点赞的人好帅，点赞的人好美。点赞的人好帅，点赞的人好美。点赞的人好帅，点赞的人好美。

重复无数遍后，脑海中总有个印象，遇到不知道的，再辅助看看笔记。

这个方法不得不说确实有效，尤其对于政治、史纲类的知识。

然而，问题的核心是：做电子笔记，已经不易，每一段话都要手动复制好几遍，这是重复机械劳动，毫无意义呀。要是有个小程序或者有个代码跑一跑就好了。

然而，理想总归是理想，计划一直搁浅。

【02】研究生的生活

作为专硕，每天忙于临床，手术，琐事。留下的一点时间，还要继续忙于文献阅读，收集临床数据等等等等等。

生信学习，起步比别人晚不少，别人文章都发到手软，发到生信文章要补实验，甚至拒绝接受生信文章的时候，我才开始学习R语言。

R语言学习，没有课题组，没有他人带，不想有的同学，师兄师姐带路上分，一路升级打怪，遇到问题及时能够得到解决。我所有的问题基本靠百度。

对于网络上已有的代码，我也跑过，总是问题重重，别人顺顺利利的代码，到我这总是坎坎坷坷。主要问题是，不懂其中对的奥秘，只知道一味的复制粘贴，R语言基础一点儿都不牢固。

下定决心，要好好学习这门语言。然后前前后后，断断续续学习了1年多，终于算是入了门。发现可以自己DIY，可以搞出自己的小东西的时候，还是挺兴奋的。

R语言，不仅仅是为了水文章而学习，其中的编程思维，很容易无缝衔接到Python中，学习一点编程还是对学习，工作挺有帮助的。

【03】展示

前些天学习时候，自制了rep_words函数。

自制rep_words函数

昨晚，又碰到了记忆特殊时期，考试来临。于是想起朗读软件，想起自制的函数。然后一顿操作。

要重复01-07文档。

文档每一行是一个知识点。比如我同一句话要重复4次。

代码如下：

rm(list = ls())
library(tidyverse)
filename <- dir()

#重复函数：
rep_word <- function(x,a){
    nrow = length(row.names(x))
    for (i in 1:nrow) {
      x[i,1:a]<- as.vector(rep(x[i,1],a))       
    } 
    x <- x
  }

#读取TXT文件：
AA <- read.table(filename[1],sep = "\n")
AA <-rep_word(AA,4)
write.table(AA, file = paste0( "重复-", filename[1]) ,sep="\t", quote=F, col.names=F)

#再次批量循环：
for (i in 1:7){
  AA <- read.table(filename[i],sep = "\n")
  AA <- rep_word(AA,4)
  write.table(AA, file = paste0( "重复-", filename[i]) ,sep="\t", quote=F, col.names=F)
}

利用两次for 循环，一个将每个文档里面的每段话批量重复4次，一个将01-07文档批量重复。

结果让人满意：

最后将重复好的文字，粘贴至朗读软件保存，每天收听就行了。

至此，三年前困扰的问题得到了解决。