盼望著，盼望著，七夕節來了，作為生信小鹿的我，在這個七夕也要來場00後的不一樣fun浪漫。經過層層篩選，fun包也是繼R包不太冷系列的第二集。上一集主要給大家分享了GOplot包並和大家一起繪製了和弦圖（：這個R包不太冷系列——GOplot（功能富集繪圖）），圖雖好看，卻不大容易上手，因此今天七夕節小編就為大家獻上一款娛樂神器，讓大家在寫代碼之餘也能夠開心過七夕。
眾所周知，R語言憑藉其強大的數據挖掘與可視化能力在生信圈佔有一席之地，每當我們打開Rstudio的時候，就知道令人頭禿的一天開始了。然鵝，R語言並不是一個嚴肅的老學究，它和Windows系統一樣，有很多有趣的功能模塊。而「遊戲之王」--fun包就在眾多模塊中嶄露頭角，接下來我們就去看看可以用R語言玩哪些遊戲吧。
install.packages("fun")
library(fun)
掃雷是基於windows系統經典遊戲之一， 但你能想像得到用Rstudio玩掃雷嗎，fun包的mine_sweeper()滿足你！
運行代碼:
if (.Platform$OS.type == "windows") x11() else x11(type = "Xlib")
mine_sweeper()
小編本想給大家看一下通關的結果，無奈技藝生疏，常常一擊命中o(╥﹏╥)o
mine_sweeper(width = 10, height = 10, mines = 20, cheat = FALSE)
其中，width和height設置局面大小，mines設置地雷數量，cheat為是否顯示為矩陣。
調整參數後運行代碼：
mine_sweeper(width = 20, height = 20, mines = 30, cheat = FALSE)
如果過不了，就像我一樣降低地雷的頻率吧！
掃雷通關了，不妨和朋友一起下下棋，這個五子棋不是人機對戰，而是人人對戰，就是不會智能判斷輸贏，不過用來下圍棋也是極好的。
運行代碼：
if (.Platform$OS.type == "windows") x11() else x11(type = "Xlib")
gomoku()
小編自己和自己下了一盤，感覺都要人格分裂了。
同樣，gomoku()也有相應的調整參數，不過只有局面大小參數，默認為gomoku(n = 19)。
fun包還包含一款沒有接觸過的小遊戲—關燈遊戲，玩法也挺簡單：點一下其中一個方片，這個方片就會變成相反的顏色（黑變白或者白變黑），而與其緊鄰的四個方片（上下左右）也會變成相反的顏色，全部變黑即遊戲勝利。
運行代碼：
if (.Platform$OS.type == "windows") x11() else x11(type = "Xlib")
lights_out()
下面是lights_out()的默認參數設置，大家可以調整試一試。
lights_out(width = 5, height = 5, steps = 3, cheat = FALSE, col.off = "black", col.on = "white", col.frame = "lightblue", seed = NULL)
除了上述幾款小遊戲，fun包的遊戲庫還包含漢諾塔——tower_of_hanoi()，「眾裡尋他千百度」-- alzheimer_test()，拼圖-- sliding_puzzle()等，感興趣的朋友可以試玩一下。
那麼，fun包只有小遊戲嗎，不不不，下面小編給大家介紹一下它的一些小功能：
5秒後，你的電腦就關機了，實際上等於在cmd命令窗口中輸入「shutdown -s -t 5」，這條代碼大家還是關機前再嘗試吧。
有時候帳號要更換新密碼，想不出來怎麼辦？random_password()就可以解決這個難題！
運行代碼：
set.seed(2020)
random_password(length=8,replace=FALSE,extended=FALSE)
這樣你就會得到一個8位數的字母和數字組合的密碼了。
random_password()默認生成長度為12，ASCII字符的密碼，當然也可以通過設置參數來生成指定長度的，由字母和數字組成的固定密碼。
此外，fun包還有一些有趣的demo，下次的節日就到國慶節了，小編在此獻上我的「中國心」，祝祖國母親生日快樂！
結語：
其實R語言裡有趣的包還有很多，比如說拯救抑鬱、花式贊你、比男票女票還稱職的praise包，可以自定義形狀（如蜘蛛俠）的雲詞圖包wordcloud2，以及發送郵件的mailR包等，範圍之廣，內容之深，總有你pick的那一款。
今天不談算法，不聊可視化，旨在向大家展示藏在R語言皮下那些「有趣的靈魂」，提高學習R語言的興趣，從而快速掌握每一系列內容，小編也會努力給大家提供更多有用的R包，也希望大家對這個系列多多關注鹿明生物公眾號，更多有趣、有料的分享等您來拿！
歡迎轉發到朋友圈
本文系鹿明生物原創
轉載請註明本文轉自鹿明生物