52

R のベース グラフィックスを使用して、マップ上に緯度と経度の軸をプロットするときに必要になるように、軸ラベルに上付き文字を追加するにはどうすればよいですか。

次の例を検討してください。

plot(-100:-50, 50:100, type="n", xlab="", ylab="", axes=FALSE)
axis(1, seq(-100, -50, 10), labels=paste(abs(seq(-100, -50, 10)), "o", "W", sep=""))
axis(2, seq(50, 100, 10), labels=paste(seq(50,100,10), "o", "N", sep=""))
box()

マップの周りに素敵なフレームを作成します。度記号を上付きにするとさらによいでしょう。

これは通常、mtext()and text()using expression(paste(...))orなどの他のプロット関数で実行できsubstitute()ますが、この場合はどうすればよいですか?

4

4 に答える 4

49

It works the same way for axes: parse(text='70^o*N') will raise the o as a superscript (the *N is to make sure the N doesn't get raised too).

labelsX=parse(text=paste(abs(seq(-100, -50, 10)), "^o ", "*W", sep=""))
labelsY=parse(text=paste(seq(50,100,10), "^o ", "*N", sep=""))
plot(-100:-50, 50:100, type="n", xlab="", ylab="", axes=FALSE)
axis(1, seq(-100, -50, 10), labels=labelsX)
axis(2, seq(50, 100, 10), labels=labelsY)
box()
于 2012-05-17T00:59:06.983 に答える
39

これは簡単な例です

plot(rnorm(30), xlab = expression(paste("4"^"th")))
于 2012-05-17T01:04:20.603 に答える
3

この特定の場合の他のオプションは、度記号を入力することです: ˚

Rはそれをうまく処理しているようです。Mac では Option-k と入力して取得します。他のプラットフォームについては不明です。

于 2014-04-16T05:33:04.230 に答える