📌  相关文章
📜  将文本添加到 R 中的 ggplot2 绘图

📅  最后修改于: 2022-05-13 01:55:52.084000             🧑  作者: Mango

将文本添加到 R 中的 ggplot2 绘图

在本文中,我们将看到如何在 R 编程语言中将文本添加到 ggplot2 图中。

为此,使用了 annotate() 。它可用于添加小注释(例如文本标签),或者如果您将数据放在向量中,并且出于某种原因不想将它们放入数据框中。

例子:

R
library("ggplot2")
  
gfg_data <- data.frame(x = c(1,2,3,4,5),         
                   y = c(4,3,2,5,1))
gfg_data         
  
gfg_plot<- ggplot(gfg_data, aes(x, y)) +   
  geom_point()
  
gfg_plot +  annotate("text", x = 4, y = 3,
                     label = "GeeksForGeeks")


R
library("ggplot2")
  
gfg_data <- data.frame(x = c(1,2,3,4,5),         
                   y = c(4,3,2,5,1))
gfg_data 
  
gfg_plot<- ggplot(gfg_data, aes(x, y)) +   
  geom_point()
  
gfg_plot +  annotate("text", x = 1.2, y = 5,
                     label = "GeeksForGeeks") + 
annotate("text", x = 4.7, y = 1, 
         label = "GeeksForGeeks")


R
library("ggplot2")
  
gfg_data <- data.frame(x = c(1,2,3,4,5),         
                   y = c(4,3,2,5,1))
  
gfg_data         
  
gfg_plot<- ggplot(gfg_data, aes(x, y)) +   
  geom_point()
  
gfg_plot +  annotate("text", x = 2, y = 5, 
                     label = "GeeksForGeeks",
                     col = "green", size = 10) +
  annotate("text", x = 4.7, y = 1, 
           label = "GeeksForGeeks",
           col = "green", size = 5)


输出:

要将多个测试元素注释到 ggplot2 绘图,用户需要使用 R 编程语言中的所需参数多次调用 ggplot2 包的 annotate()函数。

例子:

电阻

library("ggplot2")
  
gfg_data <- data.frame(x = c(1,2,3,4,5),         
                   y = c(4,3,2,5,1))
gfg_data 
  
gfg_plot<- ggplot(gfg_data, aes(x, y)) +   
  geom_point()
  
gfg_plot +  annotate("text", x = 1.2, y = 5,
                     label = "GeeksForGeeks") + 
annotate("text", x = 4.7, y = 1, 
         label = "GeeksForGeeks")   

输出:

要使用 annotate()函数修改添加到 ggplot2 图中的文本的颜色和大小,用户需要添加colsize作为 ggplot2 包中的 annotate函数的参数,并在此函数和此函数指定所需的参数将导致在 R 编程语言中添加到 ggplot2 绘图的文本的大小和颜色发生变化。

例子:

电阻

library("ggplot2")
  
gfg_data <- data.frame(x = c(1,2,3,4,5),         
                   y = c(4,3,2,5,1))
  
gfg_data         
  
gfg_plot<- ggplot(gfg_data, aes(x, y)) +   
  geom_point()
  
gfg_plot +  annotate("text", x = 2, y = 5, 
                     label = "GeeksForGeeks",
                     col = "green", size = 10) +
  annotate("text", x = 4.7, y = 1, 
           label = "GeeksForGeeks",
           col = "green", size = 5)  

输出: