ggplot: текст, напечатанный geom_text, не ясен

Текст, напечатанный с использованием geom_text, не очень ясен. Как я могу сделать это более понятным?

data = data.frame(rnorm(1000))
colnames(data) = "numOfX"
m <- ggplot(data, aes(x=numOfX))
m + geom_histogram(colour = "blue", fill = "white", binwidth = 0.5) +
  annotate("segment", x=10,xend=10,y=20,yend=0,arrow=arrow(), color="blue") +
  geom_text(aes(10, 30, label="Observed \n value"), color = "blue") 

enter image description here

Ответ 1

Используйте annotate текста, а также стрелки:

m + geom_histogram(colour = "blue", fill = "white", binwidth = 0.5) +
  annotate("segment", x=10,xend=10,y=20,yend=0,arrow=arrow(), color="blue") +
  annotate("text", x=10, y=30, label="Observed \n value", color = "blue")

enter image description here


Причина в том, что geom_text перегружает текст для каждой строки данных в кадре данных, тогда как annotate графики только один раз. Именно эта надстройка делает смелый, пиксельный текст.

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