如何组合'geom_text'调用的斜体和非斜体组件。将“geom_text”标签添加到一系列“facet_grid”散点图中

我想包括一个文本标签，它指示一系列

facet\u wrap

ped散点图（例如：“r=-0.52”）上的相关系数

所以我的散点图是这样的：

库（tidyverse）
df%
ggplot（aes（y=mpg，x=hp））+
几何点（color=“blue”）+
平面网格（~系数（圆柱体））

由（v0.2.1）于2019-06-26创建

在分组之后，我尝试创建三个独立的相关系数，我希望标签显示在图表上，但它不太正确。我希望它可以这样说：“r=-0.52”

库（tidyverse）
df%
总结（correlation=cor（y=mpg，x=hp，use=“pairwise.complete.obs”））
df2
#>#tibble:3 x 2
#>共青团相关性
#>          
#> 1     4      -0.524
#> 2     6      -0.127
#> 3     8      -0.284
df%
ggplot（aes（y=mpg，x=hp））+
几何点（颜色=“蓝色”）+
几何图形文本（x=200，y=30，标签=表达式（粘贴（斜体（r），“=”，df$correlation）））+
平面网格（~系数（圆柱体））
#>is.na（x）中的警告：is.na（）应用于类型为的非-（列表或向量）吗
#>“表情”

---

由（v0.2.1）于2019-06-26创建尝试将

geom_文本

放在

facet_网格

之后，以便R知道将其放在何处：

df %>% 
  ggplot(aes(y = mpg, x = hp)) +
  geom_point(colour = "blue") +
  facet_grid(~ factor(cyl)) +
geom_text(x = 200, y = 30, 
          label = paste0("italic(r) == ", round(df$correlation,2)), parse = TRUE)

---

尝试将

geom\u文本

放在

facet\u网格

之后，以便R知道将其放在何处：

df %>% 
  ggplot(aes(y = mpg, x = hp)) +
  geom_point(colour = "blue") +
  facet_grid(~ factor(cyl)) +
geom_text(x = 200, y = 30, 
          label = paste0("italic(r) == ", round(df$correlation,2)), parse = TRUE)

你可以做

  geom_text(x = 200, y = 30, 
            label = paste0("italic(r) == ", df$correlation), parse = TRUE) 

要显示舍入的相关性，请执行以下操作：

  geom_text(x = 200, y = 30, 
            label = paste0("italic(r) == ", round(df$correlation,2)), parse = TRUE) 

你能行

  geom_text(x = 200, y = 30, 
            label = paste0("italic(r) == ", df$correlation), parse = TRUE) 

要显示舍入的相关性，请执行以下操作：

  geom_text(x = 200, y = 30, 
            label = paste0("italic(r) == ", round(df$correlation,2)), parse = TRUE) 

---

看到了吗？看到了吧，这不是一个完整的答案，因为OP使用的是

表达式

，你有什么关于如何用斜体表示“r=”的提示吗？我试图使用

表达式

，但我愿意接受任何solution@Stéphane Laurent以一种很好的方式回答了这一部分：）。这不是一个完整的答案，因为OP使用的是

表达式

，您有任何关于如何用斜体制作“r=”的提示吗？我试图使用

表达式

，但我愿意接受任何solution@St埃芬·洛朗用一种很好的方式回答了这一部分：）。就是这样，很好。我认为这个问题的更清晰的标题应该是“如何组合

geom_文本的斜体和非斜体组件”

call）。很好，也许只需添加舍入作为完整性编辑：`geom_文本（x=200，y=30，label=paste0（“斜体（r）==”，舍入（df$correlation，2）），parse=TRUE）`Good call，@heds1。我没有意识到。我现在将尝试编辑标题。另一个问题：当我调用

round（df$correlation，2）

时，实际上是重复了一整列相同的相关系数。有没有一种方法可以让我计算该列的平均值？很明显，在这种情况下答案是一样的，但只是为了我将来的知识。就是这样，很好。我认为这个问题的更清晰的标题应该是“如何组合

geom_文本的斜体和非斜体组件”

call）。很好，也许只需添加舍入作为完整性编辑：`geom_文本（x=200，y=30，label=paste0（“斜体（r）==”，舍入（df$correlation，2）），parse=TRUE）`Good call，@heds1。我没有意识到。我现在将尝试编辑标题。另一个问题：当我调用

round（df$correlation，2）

时，实际上是重复了一整列相同的相关系数。有没有一种方法可以让我计算该列的平均值？显然，在这种情况下，答案是一样的，但只是为了我将来的知识。