1

このコードで与えられた以下のグラフを考えてみましょう:

require(ggplot2)
my_data<-c(70,  71, 75, 78, 78, 79, 80, 81, 84, 85, 87, 87, 90, 91, 95, 95, 96, 96, 97, 98, 98, 100,    101,    102,    102,    102,    102,    104,    104,    104,    107,    107,    109,    110,    110,    110,    111,    112,    113,    113,    114,    115,    118,    118,    118,    120,    124,    131,    137,    137,    139,    145,    158,    160,    162,    165,    169,    177,    179,    180)    


qplot(my_data,dist, geom="line")+xlab("x values")+ylab("Density")+
geom_point()+
ggtitle("cool graph Distribution") + 
geom_line(color="black", size=0.1) +
geom_line(stat = "vline", xintercept = "mean", colour = "red", size=1.1)

結果のグラフは次のようになります。 ここに画像の説明を入力

私の目的は、次のような別の青い線をグラフに追加することです。

  1. カーブと交差
  2. X 軸に値を表示する
  3. その上にタイトルを追加

それを視覚化するには、次のようになります。 ここに画像の説明を入力

geom_line を追加する方法は知っていますが、ボトムアップになります。曲線との「1 点の交点」が必要です。

4

1 に答える 1

6

それは本当に多かれ少なかれ同じです。私はこのようなものに使用することを好みannotateます。（個人的には、注釈を付けて赤い線も行います。）物事がどこに行きたいかを計算し、それらをプロットに追加するだけです：

qplot(my_data,dist, geom="line")+xlab("x values")+ylab("Density")+
    geom_point()+
    ggtitle("cool graph Distribution") + 
    geom_line(color="black", size=0.1) +
    geom_line(stat = "vline", xintercept = "mean", colour = "red", size=1.1) +
    annotate(geom = "segment", x = 98, xend = 98, y = 0,
             yend = dnorm(98, mean = mean(my_data), sd = sd(my_data)),
             color = "blue") +
    annotate(geom = "text", x = 98, y = -.02 * max(dist), label = "98")

「読者のための演習」としてタイトルを一番上に残しておきます。すでにある部分に基づいて、それはかなり簡単なはずです。

于 2015-05-06T20:49:14.767 に答える