1

ggPlot2 geom_text を使用して、関数内でいくつかのグラフを設計しています。これは一連の 5 つのグラフであり、それぞれのグラフの右上にラベル (テキスト) を配置したいと考えています。問題は、(入力間隔に従って) N 値と Y 値を常に変更することです。X 座標と Y 座標が変化し、縮尺がずれることさえあります。では、ラベルの配置を固定するにはどうすればよいでしょうか。たとえば、グラフの右上に表示されるようにするにはどうすればよいでしょうか?

これが私のコードです

parte.mac <- subset(dados, subset = (dados$Especie == 'C.macelaria' & dados$Temp >= minima & dados$Temp <= maxima))
  mac <- qplot(Temp, Tempo, data = parte.mac, color = Especie, main = 'C.macelaria', geom = c("point", "line"), add = T) +
    stat_smooth(method = 'lm', level = 0.99, alpha = 0.5, aes(group=1), color = 'blue') +
    geom_text(x = maxima, y = mean(range(dados$Tempo)), label = mac.sm, parse = TRUE)

助けてください

4

1 に答える 1

1

@jazzuro のコメントを反映して、実行して (あなたの) 再現可能なデータを提供していただけますか (機密情報は送信しないでください!)。

dput(parte.mac)

それをあなたの質問に貼り付けます。

正確なデータがない場合は、Old Faithful 間欠泉噴火の「忠実な」データ ファイルを使用した簡単な例で @baptiste にエコーします。 

data(faithful)
head(faithful)
p <- qplot(x=eruptions, y=waiting, data=faithful)

次に、注釈の一例を示します。

p + annotate("text", x=3, y=40, label="Group 1") + annotate("text", x=4.5, y=60, label="Group 2")

以下は、注釈の配置に「min」や「max」などの引数を使用する 2 番目の例です。

p + annotate("text", x=min(faithful$eruptions), y=min(faithful$waiting), label="Group 1") + annotate("text", x=max(faithful$eruptions), y=max(faithful$waiting), label="Group 2")

これで問題が解決しない場合は、忘れずにデータを入力して質問に貼り付けてください。

于 2015-08-21T00:52:26.973 に答える