【01】三年前的現(xiàn)狀
三年前的很長一段時間里面，我在準(zhǔn)備考研?？佳?，知識點記憶是重要的一個步驟。但我發(fā)現(xiàn)沉浸于每天的傳統(tǒng)記憶方法，很難記住。
也許是我的傳統(tǒng)記憶方法跟別人的有差別，感覺知識點總是記不住。
傳統(tǒng)記憶，每天看，讀，背......
當(dāng)時為了能記住更多的知識，我選擇了語音朗讀軟件。自己做好電子筆記（Word文檔），然后復(fù)制到軟件中朗讀。然后早上起床聽，晚上聽，睡覺聽，吃飯聽，洗衣服聽，洗澡聽，不想看書聽......
然而存在一個大問題是，朗讀軟件語速很快，讀一遍沒反應(yīng)過來就到下一句。要想實現(xiàn)助記，必須同一句話重復(fù)好幾遍。比如：
點贊的人好帥，點贊的人好美。點贊的人好帥，點贊的人好美。點贊的人好帥，點贊的人好美。點贊的人好帥，點贊的人好美。點贊的人好帥，點贊的人好美。
重復(fù)無數(shù)遍后，腦海中總有個印象，遇到不知道的，再輔助看看筆記。
這個方法不得不說確實有效，尤其對于政治、史綱類的知識。
然而，問題的核心是：做電子筆記，已經(jīng)不易，每一段話都要手動復(fù)制好幾遍，這是重復(fù)機械勞動，毫無意義呀。要是有個小程序或者有個代碼跑一跑就好了。
然而，理想總歸是理想，計劃一致擱淺。
【02】研究生的生活
作為專碩，每天忙于臨床，手術(shù)，瑣事。留下的一點時間，還要繼續(xù)忙于文獻(xiàn)閱讀，收集臨床數(shù)據(jù)等等等等等。
生信學(xué)習(xí)，起步比別人晚不少，別人文章都發(fā)到手軟，發(fā)到生信文章要補實驗，甚至拒絕接受生信文章的時候，我才開始學(xué)習(xí)R語言。
R語言學(xué)習(xí)，沒有課題組，沒有他人帶，不想有的同學(xué)，師兄師姐帶路上分，一路升級打怪，遇到問題及時能夠得到解決。我所有的問題基本靠百度。
對于網(wǎng)絡(luò)上已有的代碼，我也跑過，總是問題重重，別人順順利利的代碼，到我這總是坎坎坷坷。主要問題是，不懂其中對的奧秘，只知道一味的復(fù)制粘貼，R語言基礎(chǔ)一點兒都不牢固。
下定決心，要好好學(xué)習(xí)這門語言。然后前前后后，斷斷續(xù)續(xù)學(xué)習(xí)了1年多，終于算是入了門。發(fā)現(xiàn)可以自己DIY，可以搞出自己的小東西的時候，還是挺興奮的。
R語言，不僅僅是為了水文章而學(xué)習(xí)，其中的編程思維，很容易無縫銜接到Python中，學(xué)習(xí)一點編程還是對學(xué)習(xí)，工作挺有幫助的。
【03】展示
前些天學(xué)習(xí)時候，自制了rep_words函數(shù)。
自制rep_words函數(shù)
昨晚，又碰到了記憶特殊時期，考試來臨。于是想起朗讀軟件，想起自制的函數(shù)。然后一頓操作。
要重復(fù)01-07文檔。
文檔每一行是一個知識點。比如我同一句話要重復(fù)4次。
代碼如下：
rm(list = ls())
library(tidyverse)
filename <- dir()
#重復(fù)函數(shù)：
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( "重復(fù)-", filename[1]) ,sep="\t", quote=F, col.names=F)
#再次批量循環(huán)：
for (i in 1:7){
AA <- read.table(filename[i],sep = "\n")
AA <- rep_word(AA,4)
write.table(AA, file = paste0( "重復(fù)-", filename[i]) ,sep="\t", quote=F, col.names=F)
}
利用兩次for 循環(huán)，一個將每個文檔里面的每段話批量重復(fù)4次，一個將01-07文檔批量重復(fù)。
結(jié)果讓人滿意：
最后將重復(fù)好的文字，粘貼至朗讀軟件保存，每天收聽就行了。
至此，三年前困擾的問題得到了解決。
