【01】三年前的現(xiàn)狀
三年前的很長一段時間里面，我在準備考研修械《詈伲考研，知識點記憶是重要的一個步驟。但我發(fā)現(xiàn)沉浸于每天的傳統(tǒng)記憶方法靴庆，很難記住。
也許是我的傳統(tǒng)記憶方法跟別人的有差別怒医，感覺知識點總是記不住炉抒。
傳統(tǒng)記憶，每天看稚叹，讀焰薄，背......
當時為了能記住更多的知識，我選擇了語音朗讀軟件扒袖。自己做好電子筆記（Word文檔）塞茅，然后復制到軟件中朗讀。然后早上起床聽季率，晚上聽野瘦，睡覺聽，吃飯聽飒泻，洗衣服聽鞭光，洗澡聽，不想看書聽......
然而存在一個大問題是蠢络，朗讀軟件語速很快，讀一遍沒反應過來就到下一句迟蜜。要想實現(xiàn)助記刹孔，必須同一句話重復好幾遍。比如：
點贊的人好帥娜睛，點贊的人好美髓霞。點贊的人好帥，點贊的人好美畦戒。點贊的人好帥方库，點贊的人好美。點贊的人好帥障斋，點贊的人好美纵潦。點贊的人好帥，點贊的人好美垃环。
重復無數(shù)遍后邀层，腦海中總有個印象，遇到不知道的遂庄，再輔助看看筆記寥院。
這個方法不得不說確實有效，尤其對于政治涛目、史綱類的知識秸谢。
然而凛澎，問題的核心是：做電子筆記，已經不易估蹄，每一段話都要手動復制好幾遍塑煎，這是重復機械勞動，毫無意義呀元媚。要是有個小程序或者有個代碼跑一跑就好了轧叽。
然而，理想總歸是理想刊棕，計劃一致擱淺炭晒。
【02】研究生的生活
作為專碩，每天忙于臨床甥角，手術网严，瑣事。留下的一點時間嗤无，還要繼續(xù)忙于文獻閱讀震束，收集臨床數(shù)據(jù)等等等等等。
生信學習当犯，起步比別人晚不少垢村，別人文章都發(fā)到手軟，發(fā)到生信文章要補實驗嚎卫，甚至拒絕接受生信文章的時候嘉栓，我才開始學習R語言。
R語言學習拓诸，沒有課題組侵佃，沒有他人帶，不想有的同學奠支，師兄師姐帶路上分馋辈，一路升級打怪，遇到問題及時能夠得到解決倍谜。我所有的問題基本靠百度迈螟。
對于網絡上已有的代碼，我也跑過尔崔，總是問題重重井联，別人順順利利的代碼，到我這總是坎坎坷坷您旁。主要問題是烙常，不懂其中對的奧秘，只知道一味的復制粘貼，R語言基礎一點兒都不牢固蚕脏。
下定決心侦副，要好好學習這門語言。然后前前后后驼鞭，斷斷續(xù)續(xù)學習了1年多秦驯，終于算是入了門。發(fā)現(xiàn)可以自己DIY挣棕，可以搞出自己的小東西的時候译隘，還是挺興奮的。
R語言洛心，不僅僅是為了水文章而學習固耘，其中的編程思維，很容易無縫銜接到Python中词身，學習一點編程還是對學習厅目，工作挺有幫助的。
【03】展示
前些天學習時候法严，自制了rep_words函數(shù)损敷。
自制rep_words函數(shù)
昨晚，又碰到了記憶特殊時期深啤，考試來臨拗馒。于是想起朗讀軟件，想起自制的函數(shù)溯街。然后一頓操作诱桂。
要重復01-07文檔。
文檔每一行是一個知識點苫幢。比如我同一句話要重復4次访诱。
代碼如下：
rm(list = ls())
library(tidyverse)
filename <- dir()
#重復函數(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( "重復-", 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( "重復-", filename[i]) ,sep="\t", quote=F, col.names=F)
}
利用兩次for 循環(huán)垫挨，一個將每個文檔里面的每段話批量重復4次韩肝，一個將01-07文檔批量重復。
結果讓人滿意：
最后將重復好的文字九榔，粘貼至朗讀軟件保存哀峻，每天收聽就行了。
至此哲泊，三年前困擾的問題得到了解決剩蟀。
