Rで数式を書くことができます。皆さんはレポートとかで数式はどのように書いているでしょうか？Excelですか？Rではより楽に早く数式をグラフに挿入したり、単純に数式を作成したりできます。皆さんもチャレンジして見てください。
Rの数式をかくコマンド集その③
左からコマンド、出力結果の順に３回繰り返しています。数字が入っている場所は入力コマンドを下に書いていますのでご確認ください。ページ下にコードを貼っていますのでお使いください。
数字のコマンド
＃1
text(12,12,expression(group("(",list(a,b),"]")))
＃2
text(12,10,expression(bgroup("(",atop(x,y),")")))
＃3
text(12,4,expression(group("|",x,"|")))
＃4
text(18,2,expression("<"*phi1*"|"*hat(A)*"|"*phi1*">"))
コードの解説
今回出てきた関数は３つあります。
plot：グラフを描く関数
グラフの範囲、プロットのタイプを指定します。ここでは１ から２０のグラフの範囲でプロットなしのtype="n"を指定しています。
text：テキストをグラフに挿入する関数
テキスト挿入の座標、入力する文字、数式を指定します。文字の入力の場合””が必要ですので注意しましょう。
expression：数式を書く関数
数式コマンドを入力します。text関数を一緒に使うことを覚えておきましょう。
＊さらに詳しい解説は各関数のページをご覧ください。
作成したコード
plot(1:20,type="n")
text(3,20,"x%<->%y")
text(6,20,expression(x%<->%y))
text(3,18,"x%<=>%y")
text(6,18,expression(x%<=>%y))
text(3,16,"x%<-%y")
text(6,16,expression(x%<-%y))
text(3,14,"x%<=%y")
text(6,14,expression(x%<=%y))
text(3,12,"x%->%y")
text(6,12,expression(x%->%y))
text(3,10,"x%=>%y")
text(6,10,expression(x%=>%y))
text(3,8,"x%up%y")
text(6,8,expression(x%up%y))
text(3,6,"x%down%y")
text(6,6,expression(x%down%y))
text(3,4,"x%dblup%y")
text(6,4,expression(x%dblup%y))
text(3,2,"x%dbldown%y")
text(6,2,expression(x%dbldown%y))
text(9,20,"(x+y)*z")
text(12,20,expression((x+y)*z))
text(9,18,"z^(a+b)")
text(12,18,expression(z^(a+b)))text(9,16,"x^y+z")
text(12,16,expression(x^y+z))
text(9,14,"x^{a+b}")
text(12,14,expression(x^{a+b}))
text(9,12,"1")
text(12,12,expression(group("(",list(a,b),"]")))
text(9,10,"2")
text(12,10,expression(bgroup("(",atop(x,y),")")))
text(9,8,"group(lceil,x,rceil)")
text(12,8,expression(group(lceil,x,rceil)))
text(9,6,"group(lfloor,x,rfloor)")text(12,6,expression(group(lfloor,x,rfloor)))
text(9,4,"3")
text(12,4,expression(group("|",x,"|")))
text(9,2,"abcd")
text(12,2,expression(abcd))
text(15,20,"Omega*Alpha")
text(18,20,expression(Omega*Alpha))
text(15,18,"omega*alpha")
text(18,18,expression(omega*alpha))
text(15,16,"Upsilon1")
text(18,16,expression(Upsilon1))
text(15,14,"x+phantom(0)+beta")
text(18,14,expression(x+phantom(0)+beta))
text(15,12,"phi1+sigma1+lambda+theta1")
text(18,12,expression(phi1+sigma1+lambda+theta1))
text(15,10,"10*second")
text(18,10,expression(10*second))
text(15,8,"90*minute")
text(18,8,expression(90*minute))
text(15,6,"50*degree")
text(18,6,expression(50*degree))text(15,4,"infinity")
text(18,4,expression(infinity))
text(15,2,"4")
text(18,2,expression("<"*phi1*"|"*hat(A)*"|"*phi1*">"))