绘制均值的直方图并标记单个均值/ PDF

Question

所以我有这个情节显示了一群人的平均分数。我想知道如何，在同一张图片中，情节或标签X（见图片，我添加了X与油漆），其中X表示一个学生与其他学生相比的平均值。

我的代码

CairoPDF(paste('output/picture/', student, '_hist.pdf', sep=''), family='sans',)
hist(means.students.all, xlab="Means", main="Average Ratings")
dev.off()

Answer 1

以下是添加标签的两种方法。首先，一些随机数据和常规直方图：

0.1   5.   50.9  51.40001
0.1   5.   53.9  54.40001

添加所需内容的一种方法是使用def send_keys_eachchar(webdriver, elem_locator, text_to_send) text_to_send.each_char do |char| input_elem = webdriver.find_element(elem_locator) input_elem.send_keys(char) end end

绘制所需的一个点

set.seed(0)
means <- rnorm(1000, 4.5, 0.2)
hist(means)

使用points()作为垂直位置，points(x=means[1], y=0, pch="X", cex=1.5) 表示要绘制的类型或字符，y控制它的大小。

使用pch

的另一个选项，为您提供更多可能性

cex

通过这种方式，您可以绘制完整的字符串（如学生的名字），使用text()将其旋转90度以更好地拟合图形，并使文本与左水平对齐和居中垂直对齐正确对齐（这是使用text(x=means[2], y=0, label="StudentX", cex=1.5, srt=90, adj=c(0,0.5)) 与未旋转的文本相关。以上所有结果将导致：