Как поместить текст для каждой точки плана в r

Question

Я новичок в R, и у меня возникла проблема с добавлением текста для каждой точки в координате xoy: предположим, что у меня есть фрейм данных ниже:

library (dplyr)
library(ggplot2)

dat <- data.frame(
  time = factor(c("Breakfast","Breakfast","Breakfast","Lunch","Lunch","Lunch","Dinner","Dinner","Dinner"), levels=c("Breakfast","Lunch","Dinner")),
  total_bill_x = c(12.75,14.89,20.5,17.23,30.3,27.8,20.7,32.3,25.4), total_bill_y= c(20.75,15.29,18.52,19.23,27.3,23.6,19.75,27.3,21.48)
)

и вот мой код:

dat %>% 
  group_by(time) %>% 
  summarise(
    x = sum(total_bill_x),
    y = sum(total_bill_y) 
  )%>%
  ggplot(.,aes(x,y, col = time)) + 
  geom_point() 

Я знаю, что мы будем использовать geom_text, но я не знаю, какой аргумент добавить к нему, чтобы знать, какая точка представляет завтрак, обед, ужин.

Любая помощь для этого будет очень принята .

Answer 1

Вы можете использовать geom_text(aes(label = time), nudge_y = 0.5). nudge_y отрегулирует метки по вертикали. Если вы хотите перемещаться по горизонтали, вы должны использовать nudge_x.

dat %>% 
  group_by(time) %>% # group your data 
  summarise(
    x = sum(total_bill_x),
    y = sum(total_bill_y) # compute median YOU ARE NOT COMPUTING MEDIAN HERE
  )%>%
  ggplot(.,aes(x,y, col = time)) + 
  geom_point() +
  geom_text(aes(label = time), nudge_y = 0.5)