绘制均值直方图并标注单个均值/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

这里有两种添加标签的方法。首先是一些随机数据和规则直方图：

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()。

text(x=means[2], y=0, label="StudentX", cex=1.5, srt=90, adj=c(0,0.5))

通过这种方式，您可以绘制一个完整的字符串(如学生的名字)，使用srt将其旋转90度，以更好地匹配该图形，并使用adj正确地将文本与左水平对齐和居中的垂直对齐对齐(这与未旋转的文本相关)。所有这些都将导致：

​

​