2018年2月16日 星期五

R與2018年狗年行大運 ^_^

在上一篇文章 [R與2017年金雞報喜^_^] 提及使用 cowsay 套件可繪製金雞報喜, 目前套件包括37種動物, 今年2018年沒有內建狗的資料, 因此本篇文章採建立新資料方式, 並繪製狗年行大運圖形, 參考以下範例:

關鍵字:

  • cowsay 套件
  • 2018年
  • dog

R程式:

# title: cowsay-狗年行大運
library(cowsay)
animals[38] <- 
'
<<              /-----\\\n
<<____________/ ( )    \\-o\n
|                   __/\n
<    狗年行大運 ^_^ / \n
(  ^_   ------\  << \n
< <  < \\       \\ \\ >> \n
\\_|  \\_|      /_/ //'

cat(animals[38])

繪圖結果:



# end