ggplot2ファセット：各プロット

Question

のためのさまざまな注釈テキストI持ってRAW_DATAと呼ばれる、次の生成されたデータフレーム：私はオブジェクトを持って

ggplot(Raw_Data, aes(x=Time, y=Velocity))+geom_point() + facet_grid(Type ~.) 

：：私はggplot2でこのデータをプロット

Time Velocity Type 
1 10  1 a 
2 20  2 a 
3 30  3 a 
4 40  4 a 
5 50  5 a 
6 10  2 b 
7 20  4 b 
8 30  6 b 
9 40  8 b 
10 50  9 b 
11 10  3 c 
12 20  6 c 
13 30  9 c 
14 40  11 c 
15 50  13 c 

Regression_aを、 Regression_b、Regression_c。これらは各プロットの線形回帰方程式です。各プロットは、対応する式を表示する必要があります。注釈を使用して

は各プロット上の特定の方程式が表示されます。

annotate("text", x = 1.78, y = 5, label = Regression_a, color="black", size = 5, parse=FALSE) 

私は次のコードで問題を克服しようとした：

Regression_a_eq <- data.frame(x = 1.78, y = 1,label = Regression_a, 
         Type = "a") 
p <- x + geom_text(data = Raw_Data,label = Regression_a) 

これで問題が解決しませんでした。各プロットは、まだちょうどあなたがあなたのデータデータフレームと同様にユニークなType年代に新しいデータフレームに文字値として式を入れてgeom_textでそれらを追加することができます

Answer 1

をプロットするのではなく、Regression_aを示した：

regrDF <- data.frame(Type = c('a','b','c'), lbl = c('Regression_a', 'Regression_b', 'Regression_c')) 

ggplot(Raw_Data, aes(x = Time, y = Velocity)) + 
    geom_point() + 
    geom_text(data = regrDF, aes(x = 10, y = 10, label = lbl), hjust = 0) + 
    facet_grid(Type ~.) 

与える：

はあなたが適切な表現でregrDF$lblにテキスト値を置き換えることができます。