绘制位置=“身份” ggplot2中的geom_col-某些藏在其他背后的系列是不可见的

Question

我正在尝试以Bar-chart格式绘制年度时间序列。

我有7组年度数据，并且它们处于设定顺序（因此，相同的数据集每年具有最低的值，并且相同的数据集是每年最高的值

） ...

但是当我将其绘制为堆叠的条形图时，抽奖顺序是指某些条且不可见的。我一生不知道如何覆盖这一点。我尝试了因子和水平，无法破解它。

如果我绘制为位置=“躲避”，我可以看到组中的较早的少数数量较小，因此当我使用位置=“身份”时，它们是'后面'（即隐形）的'。

在绘制位置=“身份”时，是否有一种方法可以对大到小？

此代码与我的前几行创建了类似的数据框架：

temp2 <- as.data.frame(matrix(1:70, 5, 14))
colnames(temp2) <- c("FY", "B", "L1", "L2", "L3", "L4", "M1", "M2", "M3", "M4", 
                     "H1", "H2", "H3", "H4")
temp2$FY <- 1976:1980
temp2$B <- c(800, 935, 650, 850, 650)
temp2$L1 <- temp2$B * 1.0149
temp2$L2 <- temp2$B * 1.0161
temp2$L3 <- temp2$B * 1.0191
temp2$L4 <- temp2$B * 1.0269
temp2$H1 <- temp2$B * 0.9323
temp2$H2 <- temp2$B * 0.9269
temp2$H3 <- temp2$B * 0.9135
temp2$H4 <- temp2$B * 0.8787
temp2$M1 <- temp2$B * 0.9867
temp2$M2 <- temp2$B * 0.9856
temp2$M3 <- temp2$B * 0.9827
temp2$M4 <- temp2$B * 0.9754
temp2 <- gather(temp2, Type, Rain, 
               B:H4, factor_key=TRUE)
temp2 <- ddply(temp2, .(FY, Type), summarise,
               Rain = sum(Rain, na.rm=TRUE))

然后，如果我这样做：

ggplot(temp2, aes(x=FY, y=Rain, colour=Type)) + geom_line()

...我获得了一个普通的线路图，您可以在其中看到所有系列。 但是，如果我这样做：

ggplot(temp2, aes(x=FY, y=Rain, fill=Type)) + geom_col(position="identity")

...那么一些酒吧隐藏在其他条后面。

ggplot(temp2, aes(x=FY, y=Rain, fill=Type)) + geom_col(position="dodge")

...表明第二个第四和第五条通常比第一个栏高，但最后8个栏较低。我需要通过以“类型”中的“类型”中的值对我从其他数据框架中奏效的此预定义顺序进行排序来以某种方式重新排序我的数据。

希望这很清楚。

编辑： （这是使用我的完整数据集，但希望您能获得要旨） position =“ dodge”

很明显，每个“ bundle”有7个系列。

但是位置=“身份”只有5个出现。关于每个图的轮廓的某些内容可能会干扰系列之间的差异很小吗？ 态

Answer 1

您可以使用forcats :: fct_reorder（）通过lain订购值。这仅在type值中的相对顺序中的相对顺序相同。最好在以下躲闪图中看到。

library(ggplot2)
library(plyr)
library(tidyr)
library(forcats)

ggplot(temp2, aes(x = FY, y = Rain,
                  fill = fct_reorder(Type, Rain),
                  colour = fct_reorder(Type, Rain))) + 
  geom_col(position="identity")

ggplot(temp2, aes(x = FY, y = Rain, fill = fct_reorder(Type, Rain))) + 
  geom_col(position="dodge")

^{在2022-05-09创建的 reprex软件包（v2.0.1）}