【初心者向け】Rからxtableを用いて掛け算九九表のHTMLを出力する。

多くの人が腕試しに試みてるので私も挑戦してみました。

<!-- html table generated in R 3.5.2 by xtable 1.8-4 package -->
<!-- Fri Mar 13 06:09:42 2020 -->
<table border=1>
<tr> <th>  </th> <th> 1x </th> <th> 2x </th> <th> 3x </th> <th> 4x </th> <th> 5x </th> <th> 6x </th> <th> 7x </th> <th> 8x </th> <th> 9x </th>  </tr>
  <tr> <td align="right"> 1y </td> <td align="right">   1 </td> <td align="right">   2 </td> <td align="right">   3 </td> <td align="right">   4 </td> <td align="right">   5 </td> <td align="right">   6 </td> <td align="right">   7 </td> <td align="right">   8 </td> <td align="right">   9 </td> </tr>
  <tr> <td align="right"> 2y </td> <td align="right">   2 </td> <td align="right">   4 </td> <td align="right">   6 </td> <td align="right">   8 </td> <td align="right">  10 </td> <td align="right">  12 </td> <td align="right">  14 </td> <td align="right">  16 </td> <td align="right">  18 </td> </tr>
  <tr> <td align="right"> 3y </td> <td align="right">   3 </td> <td align="right">   6 </td> <td align="right">   9 </td> <td align="right">  12 </td> <td align="right">  15 </td> <td align="right">  18 </td> <td align="right">  21 </td> <td align="right">  24 </td> <td align="right">  27 </td> </tr>
  <tr> <td align="right"> 4y </td> <td align="right">   4 </td> <td align="right">   8 </td> <td align="right">  12 </td> <td align="right">  16 </td> <td align="right">  20 </td> <td align="right">  24 </td> <td align="right">  28 </td> <td align="right">  32 </td> <td align="right">  36 </td> </tr>
  <tr> <td align="right"> 5y </td> <td align="right">   5 </td> <td align="right">  10 </td> <td align="right">  15 </td> <td align="right">  20 </td> <td align="right">  25 </td> <td align="right">  30 </td> <td align="right">  35 </td> <td align="right">  40 </td> <td align="right">  45 </td> </tr>
  <tr> <td align="right"> 6y </td> <td align="right">   6 </td> <td align="right">  12 </td> <td align="right">  18 </td> <td align="right">  24 </td> <td align="right">  30 </td> <td align="right">  36 </td> <td align="right">  42 </td> <td align="right">  48 </td> <td align="right">  54 </td> </tr>
  <tr> <td align="right"> 7y </td> <td align="right">   7 </td> <td align="right">  14 </td> <td align="right">  21 </td> <td align="right">  28 </td> <td align="right">  35 </td> <td align="right">  42 </td> <td align="right">  49 </td> <td align="right">  56 </td> <td align="right">  63 </td> </tr>
  <tr> <td align="right"> 8y </td> <td align="right">   8 </td> <td align="right">  16 </td> <td align="right">  24 </td> <td align="right">  32 </td> <td align="right">  40 </td> <td align="right">  48 </td> <td align="right">  56 </td> <td align="right">  64 </td> <td align="right">  72 </td> </tr>
  <tr> <td align="right"> 9y </td> <td align="right">   9 </td> <td align="right">  18 </td> <td align="right">  27 </td> <td align="right">  36 </td> <td align="right">  45 </td> <td align="right">  54 </td> <td align="right">  63 </td> <td align="right">  72 </td> <td align="right">  81 </td> </tr>
   </table>

```R
#各段の準備
Step1<-c(1:9)
Step2<-as.integer(Step1*2)
Step3<-as.integer(Step1*3)
Step4<-as.integer(Step1*4)
Step5<-as.integer(Step1*5)
Step6<-as.integer(Step1*6)
Step7<-as.integer(Step1*7)
Step8<-as.integer(Step1*8)
Step9<-as.integer(Step1*9)

#MT=Multiplication Table(九九の英訳)
MT<- data.frame(S1=Step1,S2=Step2,S3=Step3,S4=Step4,S5=Step5,S6=Step6,S7=Step7,S8=Step8,S9=Step9)

#段の名前設定
colnames(MT)<-c("1x","2x","3x","4x","5x","6x","7x","8x","9x")
rownames(MT)<-c("1y","2y","3y","4y","5y","6y","7y","8y","9y")

#HTML出力
library(xtable)
print(xtable(MT),type="html")
```
型変換が必要なのが盲点でした…まぁ、普段はあまり意識しませんからね。
[ナウい言語は暗黙の整数拡張を行わないか?](https://qiita.com/fujitanozomu/items/60b4d86b6c32e78d0420)

ちなみに「**九九を巡る数理**」は案外深く、色々な展開が考えられたりします。
[【Rで九九】どうして36個の数字しか使われないのか？](https://qiita.com/ochimusha01/items/8d990f23ae96db0cd953)