Question

我有以下生成的数据框，名为Raw_Data：

    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

我用ggplot2绘制了这些数据：

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

我有对象：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)

这并没有解决问题。每个图仍然显示Regression_a，而不仅仅是绘制

Answer 1

您可以将表达式作为字符值放在新数据框中，使用与数据数据框中相同的唯一Type，并将其添加到geom_text：

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中的文本值。

Answer 2

如果我们在水平和垂直两个方向上都有方面，则只是对所采用答案的补充。

regrDF <- data.frame(Type1 = c('a','a','b','b'),
                     Type2 = c('c','d','c','d'),
                     lbl = c('Regression_ac', 'Regression_ad', 'Regression_bc', 'Regression_bd'))    
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(Type1 ~ Type2)

答案很好，但仍然不完善，因为我不知道如何同时合并数学表达式和换行符（Adding a newline in a substitute() expression）。

ggplot2 facets：每个绘图的不同注释文本

2 个答案: