有什么方法可以消除疲困（困恼三年多的问题）
有什么方法可以消除疲困（困恼三年多的问题）然而，问题的核心是：做电子笔记，已经不易，每一段话都要手动复制好几遍，这是重复机械劳动，毫无意义呀。要是有个小程序或者有个代码跑一跑就好了。这个方法不得不说确实有效，尤其对于政治、史纲类的知识。然而存在一个大问题是，朗读软件语速很快，读一遍没反应过来就到下一句。要想实现助记，必须同一句话重复好几遍。比如：点赞的人好帅，点赞的人好美。点赞的人好帅，点赞的人好美。点赞的人好帅，点赞的人好美。点赞的人好帅，点赞的人好美。点赞的人好帅，点赞的人好美。重复无数遍后，脑海中总有个印象，遇到不知道的，再辅助看看笔记。
【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文档批量重复。
结果让人满意：
最后将重复好的文字，粘贴至朗读软件保存，每天收听就行了。
至此，三年前困扰的问题得到了解决。
