2016-10-09 6 views
2

できるだけ重複していない点の上にラベルを正確にプロットしたいが、ggrepelはやや上下のプロットを主張するようだ。例えば。ggrepel:点より上のラベルをプロットする

require(ggplot); require(ggrepel) 

ggplot(iris[1:10,], aes(Sepal.Length, Sepal.Width)) + 
    geom_point(pch=1, size=8) + 
    geom_text_repel(aes(label=Species), segment.color=NA, 
        point.padding=unit(0, "lines")) 

enter image description here

あなたはもちろんforce引数を減らすことができますが、彼らはオーバーラップを行うときにラベルが互いに反発していません。

答えて

3

私が見る限り、point.paddingにはgeom_point(size)と同じ値を与えることで重複を避けることができます。そして、上記の位置を定義するには、nudge_yに非常に小さいプラス値を指定します。

library(dplyr) 
## an example data (delete duplicated data) 
iris2 <- iris %>% distinct(Sepal.Length, Sepal.Width, .keep_all = T) 

g <- ggplot(iris2[1:20,], aes(Sepal.Length, Sepal.Width)) + geom_point(pch=1, size=8) 
g + geom_text_repel(aes(label=Species), segment.color=NA, 
        point.padding = unit(8, "points"), nudge_y = 1.0E-6) 

[EDITED]は
私はbox.padding = unit(-0.5, "lines")ラベルにポイントの位置を与えると思います(しかし、それはおそらく、大文字に塩基)。

iris2$Species <- as.character(iris2$Species) 
iris2[7,5] <- "ABCDEFG" 

g2 <- ggplot(iris2[1:20,], aes(Sepal.Length, Sepal.Width)) + geom_point(pch = 1, size = 8) 
g2 + geom_text_repel(aes(label=Species), segment.color=NA, box.padding = unit(-0.5, "lines")) 

enter image description here

+0

感謝。ラベルはまだ正確な点の位置にプロットしていませんが、それは私が推測する前進です。 – geotheory

+0

ニース。だから 'nudge_y'はそれらをすべてプッシュし、' point.padding'はそれらを元に戻します。 – geotheory

+1

@geotheory;私はよりスマートな方法を逃した、私は編集しました。私は 'nudge_y'についてそう考えると、' point.padding'をポイント位置からラベルの底までの距離(それが上の場合)と解釈します。しかし、それらは不要になる... – cuttlefish44

0

nudge_yとnudge_xを変更してラベルを調整することができます。ポイントをそれぞれ変更したい場合は、新しいデータフレームを設定してラベルの座標を変更することができます。

関連する問題