При добавлении текста аннотации к сюжету я заметил, что geom_text()
создал неприглядный, неровный текст, а annotate()
- гладкий, красивый текст. Кто-нибудь знает, почему это происходит, и есть ли способ исправить это? Я знаю, что могу просто использовать annotate()
здесь, но, вероятно, есть случаи, когда geom_text()
предпочтительнее, и я хотел бы найти исправление. Кроме того, geom_text()
не может быть предназначен для создания плохого текста, так что либо я делаю что-то неправильно, либо я сталкивался с каким-то тонким побочным эффектом.
Вот некоторые поддельные данные и код для создания графика, а также изображение, показывающее результаты.
library(ggplot2)
age = structure(list(age = c(41L, 40L, 43L, 44L, 40L, 42L, 44L, 45L,
44L, 41L, 43L, 40L, 43L, 43L, 40L, 42L, 43L, 44L, 43L, 41L)),
.Names = "age", row.names = c(NA, -20L), class = "data.frame")
ggplot(age, aes(age)) +
geom_histogram() +
scale_x_continuous(breaks=seq(40,45,1)) +
stat_bin(binwidth=1, color="black", fill="blue") +
geom_text(aes(41, 5.2,
label=paste("Average = ", round(mean(age),1))), size=12) +
annotate("text", x=41, y=4.5,
label=paste("Average = ", round(mean(age$age),1)), size=12)