Rで数式を書くことができます。皆さんはレポートとかで数式はどのように書いているでしょうか？Excelですか？Rではより楽に早く数式をグラフに挿入したり、単純に数式を作成したりできます。皆さんもチャレンジして見てください。
Rの数式をかくコマンド集その②
左からコマンド、出力結果の順に３回繰り返しています。下にコードを貼っていますのでお使いください。
コードの解説
今回出てきた関数は３つあります。
plot：グラフを描く関数
グラフの範囲、プロットのタイプを指定します。ここでは１ から２０のグラフの範囲でプロットなしのtype="n"を指定しています。
text：テキストをグラフに挿入する関数
テキスト挿入の座標、入力する文字、数式を指定します。文字の入力の場合””が必要ですので注意しましょう。
expression：数式を書く関数
数式コマンドを入力します。text関数を一緒に使うことを覚えておきましょう。
＊さらに詳しい解説は各関数のページをご覧ください。
（）の数が多くなるとわからなくなるが（）の数を正しく入力しよう。
作成したコード
plot(1:20,type="n")
text(3,20,"italic(x)")
text(6,20,expression(italic(x)))
text(3,18,"bold(x)")
text(6,18,expression(bold(x)))
text(3,16,"bolditalic(x)")
text(6,16,expression(bolditalic(x)))
text(3,14,"underline(x)")
text(6,14,expression(underline(x)))
text(3,12,"textstyle(x)")
text(6,12,expression(textstyle(x)))
text(3,10,"displaystyle(x)")
text(6,10,expression(displaystyle(x)))
text(3,8,"scriptstyle(x)")
text(6,8,expression(scriptstyle(x)))
text(3,6,"list(x,y,z,d)")
text(6,6,expression(list(x,y,z,d)))
text(3,4,"list(x[1],...,x[n])")
text(6,4,expression(list(x[1],...,x[n])))
text(3,2,"list(x[1],ldots,x[n])")
text(6,2,expression(list(x[1],ldots,x[n])))
text(9,20,"hat(x)")
text(12,20,expression(hat(x)))
text(9,18,"tilde(x)")
text(12,18,expression(tilde(x)))
text(9,16,"ring(x)")
text(12,16,expression(ring(x)))
text(9,14,"bar(xy)")
text(12,14,expression(bar(xy)))
text(9,12,"widehat(xy)")
text(12,12,expression(widehat(xy)))
text(9,10,"widetilde(xy)")
text(12,10,expression(widetilde(xy)))
text(9,8,"frac(x,y)")
text(12,8,expression(frac(x,y)))
text(9,6,"over(x,y)")
text(12,6,expression(over(x,y)))
text(9,4,"atop(x,y)")
text(12,4,expression(atop(x,y)))
text(9,2,"x + over(1,phantom(0))")
text(12,2,expression(x + over(1,phantom(0))))
text(15,20,"sum(x[i],i=1,n)")
text(18,20,expression(sum(x[i],i=1,n)))
text(15,18,"prod(plain(P)(X==x),x)")
text(18,18,expression(prod(plain(P)(X==x),x)))
text(15,16,"integral(f(x)*dx,a,b)")
text(18,16,expression(integral(f(x)*dx,a,b)))
text(15,14,"union(A[i],i==1,n)")
text(18,14,expression(union(A[i],i==1,n)))
text(15,12,"intersect(A[i],i==1,n)")
text(18,12,expression(intersect(A[i],i==1,n)))
text(15,10,"lim(f(x),x%->%0)")
text(18,10,expression(lim(f(x),x%->%0)))
text(15,8,"min(g(x),x>=0)")
text(18,8,expression(min(g(x),x>=0)))
text(15,6,"max(g(x),x<=0)")
text(18,6,expression(max(g(x),x<=0)))
text(15,4,"inf(S)")
text(18,4,expression(inf(S)))
text(15,2,"sup(S)")
text(18,2,expression(sup(S)))