web-dev-qa-db-ja.com

大なり記号または等号を表示する

私はこうして生成されたプロットを持っています:

ggplot(dt.2, aes(x=AgeGroup, y=Prevalence)) + 
    geom_errorbar(aes(ymin=lower, ymax=upper), colour="black", width=.2) +
    geom_point(size=2, colour="Red")

次のようにx軸のラベルを制御します。

scale_x_discrete(labels=c("0-29","30-49","50-64","65-79",">80","All")) +

これは機能しますが、「> 80」ラベルを「≥80」に変更する必要があります。

ただし、「≥80」は「= 80」と表示されます。

等号を表示するにはどうすればよいですか?

35
Robert Long

式を使用する代わりにUnicode文字を使用します。この場合、Unicode文字「GREATER-THAN OR EQUAL TO」(U + 2265)。@ mnelの例をコピーする

.d <- data.frame(a = letters[1:6], y = 1:6)

ggplot(.d, aes(x=a,y=y)) + geom_point() + 
    scale_x_discrete(labels = c(letters[1:5], "\u2265 80"))

Unicodeは、複雑な式の構文を覚えるのが難しい場合や、式で許可されていない改行を必要とする場合に適した代替手段です。欠点として、特定のUnicode文字が機能するかどうかは、選択したグラフィックデバイスとフォントによって異なります。

35
otsaw

phantom(...)へのlabel引数内で先頭の_>=_を偽造する式(scale_x_discrete(...)を含む)を渡すことができます

例えば

_ .d <- data.frame(a = letters[1:6], y = 1:6)

 ggplot(.x, aes(x=a,y=y)) + geom_point() + 
    scale_x_discrete(labels = c(letters[1:5], expression(phantom(x) >=80))
_

enter image description here

数式の作成の詳細については_?plotmath_を、そして this 関連SO質問と回答

21
mnel
plot(5, ylab=expression("T ">="5"))

enter image description here

5
Ven Yao