Выровнять текст внутри сюжета
Я новичок в R, и у меня возник вопрос. Я пытаюсь поместить текст в сюжет R. Вот код, использующий набор данных яркости в пакете UsingR.
library(UsingR)
brightness
MyMean <- mean(brightness)
MyMedian <- median(brightness)
MySd <- sd(brightness)
hist(brightness, breaks=35, main="This is a Histogram",
xlab="Brightness", ylab="Frequency", xlim=c(0,15), ylim=c(0, 200))
text(3.5, 150, paste("Mean =", round(MyMean, 1), "\n Median =",
round(MyMedian, 1), "\n Std.Dev =", round(MySd, 1)))
Этот код производит:
Проблема с этим выводом заключается в том, что текст не остается выровненным. Кто-нибудь знает, как выровнять текст по левому краю.
Спасибо.
2 ответа
Хотя легенда (), конечно, подходит для легенд, существует общее решение для всего текста. Хитрость в том, что опция pos не только устанавливает положение текста относительно текущего местоположения, но также устанавливает выравнивание. Выше и ниже выровнены по центру. Установка pos на 2 выравнивает текст по правому краю. Когда он установлен справа от позиции (pos = 4), он выравнивается по левому краю.
Замените текстовый код на ...
text(1.5, 150, paste("Mean =", round(MyMean, 1), "\nMedian =",
round(MyMedian, 1), "\nStd.Dev =", round(MySd, 1)), pos = 4)
для выравнивания по левому краю и ...
text(5.0, 150, paste("Mean = ", round(MyMean, 1), "\nMedian = ",
round(MyMedian, 1), "\nStd.Dev = ", round(MySd, 1), sep = ''), pos = 2)
для выравнивания по правому краю.
Попробуйте использовать legend() вместо text()
legend(3.5, 150, legend = c(paste("Mean =", round(MyMean, 1)),
paste("Median =",round(MyMedian, 1)),
paste("Std.Dev =", round(MySd, 1))),
bty = "n")
Вам придется повозиться с настройкой положения. Можно вообще не использовать координаты xy, а заменить эти два аргумента на "topleft"