Как использовать функцию text() в r для добавления текста на график

Вы можете использовать функцию text() для добавления текста к базовому графику R.

Эта функция использует следующий базовый синтаксис:

text(x, y, «мой текст»)

Золото:

• x, y : координаты (x, y), в которых должен быть размещен текст.

Следующие примеры показывают, как использовать эту функцию на практике.

Пример 1. Добавьте текстовый элемент к пути.

Следующий код показывает, как использовать text() для добавления текстового элемента на график в координатах (x, y) (5, 18):

 #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 ”)

Обратите внимание, что наш текстовый элемент был добавлен к координатам (x, y) точки (5, 18) на графике.

Пример 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 ”) 

Обратите внимание, что на график были добавлены три текстовых элемента, каждый в указанных нами координатах (x, y).

Пример 3. Настройка текстовых элементов на графике

Мы можем использовать аргументы cex , col и font для настройки размера, цвета и стиля шрифта текстовых элементов на графике соответственно:

 #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 ) 

Обратите внимание, что каждый из трех текстовых элементов имеет собственный внешний вид.

Также обратите внимание, что аргумент шрифта принимает четыре возможных значения:

• 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 )

Обратите внимание, что каждая точка на графике теперь имеет текстовую метку.

Также обратите внимание, что аргумент pos управляет размещением текстовой метки относительно точки и принимает четыре возможных значения:

• 1 : под текстом
• 2 : слева от текста
• 3 : над текстом
• 4 : текстовый закон

Поскольку мы указали pos=4, каждая текстовая метка размещается справа от точек графика.

Дополнительные ресурсы

В следующих руководствах объясняется, как использовать другие распространенные функции в R:

Как использовать функции Paste и Paste0 в R
Как использовать функцию replace() в R
Как использовать функцию View() в R