8

如果我想从最大到最小对 ggplot2 条形图中的条形进行排序，那么我通常会更新条形类别的因子水平，如下所示

one_group <- data.frame(
  height   = runif(5),
  category = gl(5, 1)
)

o <- order(one_group$height, decreasing = TRUE)
one_group$category <- factor(one_group$category, levels = one_group$category[o])

p_one_group <- ggplot(one_group, aes(category, height)) +
  geom_bar(stat = "identity")
p_one_group

如果有几组我想要在不同方面的条形图，每个方面都有从最大到最小（以及不同的 x 轴）排序的条形，那么该技术就会失效。

给定一些样本数据

two_groups <- data.frame(
  height   = runif(10),
  category = gl(5, 2),
  group    = gl(2, 1, 10, labels = letters[1:2])
)

和绘图代码

p_two_groups <- ggplot(two_groups, aes(category, height)) +
  geom_bar(stat = "identity") +
  facet_grid(. ~ group, scales = "free_x")
p_two_groups

我需要做什么才能正确订购酒吧？

如果有帮助，需要解决的等效问题是：在完成分面后如何更新因子水平？

4

2 回答 2

15

这是一个黑客：

two_groups <- transform(two_groups, category2 = factor(paste(group, category)))
two_groups <- transform(two_groups, category2 = reorder(category2, rank(height)))

ggplot(two_groups, aes(category2, height)) +
  geom_bar(stat = "identity") +
  facet_grid(. ~ group, scales = "free_x") +
  scale_x_discrete(labels=two_groups$category, breaks=two_groups$category2)
  1. 使所有条目的唯一因子变量（类别2）
  2. 根据高度对变量重新排序
  3. 绘制变量：aes(x=category2)
  4. 使用 scale_x_discrete 中变量 (category2) 的原始值 (category) 重新标记轴。
于 2011-03-24T03:31:39.280 回答
3

这是实现您想要的东西的技巧。我无法弄清楚如何获得刻度线下方的类别值。因此，如果有人可以帮助解决这个问题，那就太好了。让我知道这个是否奏效

# add a height rank variable to the data frame
two_groups = ddply(two_groups, .(group), transform, hrank = rank(height));

# plot the graph

p_two_groups <- ggplot(two_groups, aes(-hrank, height)) +
  geom_bar(stat = "identity") +
  facet_grid(. ~ group, scales = "free_x") +
  opts(axis.text.x = theme_blank()) +
  geom_text(aes(y = 0, label = category, vjust = 1.5))
于 2011-03-23T20:32:04.247 回答