如何使用ggplot2在轴标签上显示层次结构？

Question

我想用ggplot2创建这样的情节：

（我在这里犯了一个小错误，导致并非所有标签都显示出来。显然我确实想要显示所有标签:)） 但是，我的谷歌搜索没有出现任何问题。我得到的最接近的是来自plotrix的barNest，但是，我不喜欢生成的图表的质量。 ggplot2看起来好多了。

在理想的情况下，我本来希望能够做到这样的事情： scale_x_discrete（“轴标题”，标签= Level1 + Level2 + Level3） 然后Level1，Level2和Level3将成为qplot函数中使用的数据帧的列。 如果我能让它工作，我想创建一个函数来将这种类型的功能添加到scale函数。也许scale_x_hierarchical会更好。 可以使用以下代码生成类似的数据：

data <- data.frame(
  Subject = c(rep(1, 48), rep(2, 48), rep(3, 48), rep(4, 48)), 
  month = rep(c(rep(1, 12), rep(4, 12), rep(7, 12), rep(10, 12)), 4), 
  day = rep(c(rep(1, 4), rep(11, 4), rep(21, 4)), 16), 
  hour = rep(c(0, 6, 12, 18), 48), 
  data = rnorm(192))

顺便说一句，此处使用的图像是使用Spotfire创建的。

Answer 1

这有点不同，但LearnR博客有post关于将表格与图表相关联，以便它看起来像这样：