无用但有趣的R包之教你怎么科学地用R语言摸鱼

如果你觉得R只是用来科研的工具，那就太辜负广大开发者的良苦用心了。今天给大家介绍几个useless但fun的的R包，为大家工作学习之余提供一点微不足道的小乐趣。

All work and no play makes jack a dull boy.

话不多说，游戏开始。

1.Fun包（Github地址为：GitHub - yihui/fun: Use R for Fun）

安装加载包

## install.packages('fun')

library(fun)

绘制中国心（2D版）

demo(ChinaHeart2D)

绘制中国心（3D版）

demo(ChinaHeart3D)

绘制乌龟

demo('RealTurtle', package = 'fun')

开启一个扫雷小游戏

if (.Platform$OS.type == "windows") x11() else x11(type = "Xlib")

mine_sweeper()

或者，玩个五子棋

gomoku()

2.Cowsay包

## install.packages("cowsay")

library(cowsay)

say("Hello world!")

很可爱，但我以为会有一头奶牛！

say("Moo may represent an idea, but only the cow knows.\n --Mason Cooley",

    by = "cow")

虽然没有随机选择动物的选项，但我们可以自己轻松实现。

someone_say_hello <- function() {

  animal <- sample(names(animals), 1)

  say(paste("Hello, I'm a ", animal, ".", collapse = ""), by = animal)

  }

someone_say_hello()

随机选择动物。

someone_say_hello <- function() {

  animal <- sample(names(animals), 1)

  say(paste("Hello, I'm a ", animal, ".", collapse = ""), by = animal)

  }

someone_say_hello()

3. fortunes包

fortunes() 返回一个引文或幸运语录数据框，每行包含了:

quote	引文，祝福语或语录的主要部分
author	引文作者
context	引用的上下文 (if available, otherwise NA),
source	引用来源 (if available, otherwise NA),
date	引用日期 (if available, otherwise NA).

接下来我们看个示例。

#install.packages("fortunes") #未安装的需要安装哦

library(fortunes)

fortune()

fortunes包还支持自定义礼物库，你可以使用它为家人、朋友、恋人，甚至陌生人制作礼物。

quote<- c(

  "请和窗外的星星道声晚安吧，脱下围裙的鹅妈妈。",

  "请不要忘记永无岛的孩子们，长不大的彼得潘。",

  "请你驯养我吧，拥有麦浪般金色头发的小王子。"

)

author<- rep ("你陌生的朋友", 3)

context<- rep (NA, 3)

source<- rep (NA, 3)

date<- c ("2024.08.31", "2024.09.01", "2024.09.02")

# 数据集内容如上

fortunes.data<- data.frame (quote, author, context, source, date, stringsAsFactors =FALSE)

# 保证变量类型为character

fortune(fortunes.data= fortunes.data)

将fortune与cowsay包结合.

someone_say_my_fortune <- function(x) {

  animal <- animal <- sample(names(animals), 1)

  say(paste(fortune(), collapse = "\n"), by = animal)

}

someone_say_my_fortune()

References：

https://www.r-bloggers.com/2016/06/useless-but-fun-r-packages/