如何使用 r 中的 text() 函数向绘图添加文本


您可以使用text()函数将文本添加到 R 基础图中。

该函数使用以下基本语法:

文本(x,y,“我的文本”)

金子:

  • x, y :文本应放置的坐标 (x, y)。

以下示例展示了如何在实践中使用此功能。

示例 1:向路径添加文本元素

以下代码演示如何使用text()将文本元素添加到绘图中 (5, 18) 的 (x, y) 坐标处:

 #create data frame with values to plot
df <- data. frame (x=c(1, 4, 7, 8, 8, 10),
                 y=c(4, 9, 16, 14, 12, 20))

#create scatterplot
plot(df$x, df$y)

#add text element at (5, 18)
text(x= 5 , y= 18 , “ this is my text ”)

请注意,我们的文本元素已添加到图中 (5, 18) 的 (x, y) 坐标。

示例 2:向路径添加多个文本元素

要将多个文本元素添加到绘图中,我们可以简单地使用几个text()函数:

 #create data frame with values to plot
df <- data. frame (x=c(1, 4, 7, 8, 8, 10),
                 y=c(4, 9, 16, 14, 12, 20))

#create scatterplot
plot(df$x, df$y)

#add text elements
text(x= 5 , y= 18 , “ first text ”)
text(x= 5 , y= 10 , “ second text ”) 
text(x= 5 , y= 5 , “ third text ”) 

R 添加几个文本元素进行跟踪

请注意,三个文本元素已添加到图中,每个元素位于我们指定的 (x, y) 坐标处。

示例 3:自定义图中的文本元素

我们可以使用cexcolfont参数分别自定义图中文本元素的大小、颜色和字体样式:

 #create data frame with values to plot
df <- data. frame (x=c(1, 4, 7, 8, 8, 10),
                 y=c(4, 9, 16, 14, 12, 20))

#create scatterplot
plot(df$x, df$y)

#add text elements with custom appearance
text(x= 5 , y= 18 , " first text ", col=' red ')
text(x= 5 , y= 10 , " second text ", col=' blue ', cex= 3 ) 
text(x= 5 , y= 5 , " third text ", col=' green ', cex= 5 , font= 3 ) 

R 图中的自定义文本

请注意,三个文本元素中的每一个都具有自定义外观。

另请注意,字体参数有四个可能的值:

  • 1 :普通
  • 2 :脂肪
  • 3 :斜体
  • 4 :粗斜体

由于我们为第三个文本元素指定了font=3 ,因此字体为斜体。

示例 4:为每个路径点添加文本标签

我们可以使用labels参数为绘图上的每个点添加文本标签:

 #create data frame with values to plot
df <- data. frame (teams=c('A', 'B', 'C', 'D', 'E', 'F'),
                 x=c(1, 4, 7, 8, 8, 10),
                 y=c(4, 9, 16, 14, 12, 20))

#create scatterplot
plot(df$x, df$y)

#add text label to each point in plot
text(df$x, df$y, labels=df$teams, pos= 4 )

r 将文本标签添加到路径

请注意,绘图上的每个点现在都有一个文本标签。

另请注意, pos参数控制文本标签相对于点的放置位置,并采用四个可能的值:

  • 1 :在文字下方
  • 2 : 文本左侧
  • 3 :文字上方
  • 4 :文本法

由于我们指定pos=4,因此每个文本标签都放置在绘图点的右侧。

其他资源

以下教程解释了如何使用 R 中的其他常用函数:

如何在R中使用paste和paste0函数
如何在R中使用replace()函数
如何在 R 中使用 View() 函数

添加评论

您的电子邮箱地址不会被公开。 必填项已用*标注