绘制均值直方图并标记个体 mean/PDF
Plot a histogram of means and label individual mean/PDF
所以我有这个图,它显示了一群人的平均分数。我想知道如何在同一张图片中绘制或标记 X(见图片,我用颜料添加了 X),其中 X 表示一个学生与其他学生相比的平均值。
我的代码
CairoPDF(paste('output/picture/', student, '_hist.pdf', sep=''), family='sans',)
hist(means.students.all, xlab="Means", main="Average Ratings")
dev.off()
这里有两种添加标签的方法。首先,一些随机数据和常规直方图:
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
。以上所有结果将导致:
所以我有这个图,它显示了一群人的平均分数。我想知道如何在同一张图片中绘制或标记 X(见图片,我用颜料添加了 X),其中 X 表示一个学生与其他学生相比的平均值。
我的代码
CairoPDF(paste('output/picture/', student, '_hist.pdf', sep=''), family='sans',)
hist(means.students.all, xlab="Means", main="Average Ratings")
dev.off()
这里有两种添加标签的方法。首先,一些随机数据和常规直方图:
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
。以上所有结果将导致: