直方图：打印组标签

Question

我使用以下直方图命令来显示具有二进制标签（0或1）的标签数据集的功能。

require(lattice)
data <- data.frame(num_child=1:10,label=rep(0:1,each=5))
histogram( ~ data$num_child | data$label ,xlab="Number of children")

我得到了一对直方图，如预期的那样，x轴标记为“儿童数”，y轴标记为“总数百分比”。但是，两个图上方的标签都是“data $ label”而不是组标签的值。 histogram命令采用xlab和ylab作为参数，但似乎没有组标签的参数。如何打印组标签（即“0”和“1”）？

Answer 1

看起来最简单的解决方案是将您的分组更改为一个因素：

histogram( ~ data$num_child | as.factor(data$label),xlab="Number of children")