排序因素。 ggplot2 vs plyr，将标签位置固定到barplot的问题

Question

我试图在盒子上绘制带有标签的堆积箱图。 但是因子变量所强加的排序，ggplot2通过排序识别和绘图，plyr似乎不尊重这种排序，并试图通过order.by强制排序给出缺失值，可能是公式的原因。

pos = order_by(Segment, 1-((cumsum(antal) - (0.5 * antal))/sum(antal) ) )

如果我将因子1000+更改为999，则预期结果与词典排序的预期原因相同

要重现的数据和代码

tblVector_Value  <-  structure(list(antal = c(190L, 21L, 33L, 18L, 241L, 77L,102L, 42L, 45L, 32L), 
last_Year = c(2020L, 2021L, 2020L, 2021L, 2020L, 2021L, 2020L, 2021L, 2020L, 2021L), 
Segment = structure(c(1L, 1L, 3L, 3L, 2L, 2L, 4L, 4L, 5L, 5L), 
.Label = c("0-100", "100-200", "1000+", "200-300", "300-400", "Error"),class = "factor")),
 .Names = c("antal", "last_Year", "Segment"), 
row.names = c(5L, 6L, 11L, 12L, 18L, 19L, 24L, 25L, 30L, 31L), 
class = "data.frame")

library(ggplot2)
library(plyr)
## create factor    
tblVector_Value$Segment <-factor(tblVector_Value$Segment, c("0-100", "100-200","200-300","300-400", "1000+"))
tblVector_Value <- ddply(tblVector_Value, .(last_Year), transform, pos = 1-((cumsum(antal) - (0.5 * antal))/sum(antal) ))

ggplot(tblVector_Value[order(tblVector_Value$Segment, decreasing = T),],
aes(x=last_Year, y = antal,fill = Segment)) +
geom_bar(position = "fill",stat = "identity") +
scale_y_continuous(labels = percent_format()) + labs(title="% segment") +
geom_text(aes(label = antal, y = pos), size = 3)

Answer 1

使用最新版本的gplot2，geom_text()也可以正确放置标签，用于堆积和填充条形图。因此，如果可以接受的是标签没有完全放在方框的中间，则不必使用plyr或其他任何包来明确计算位置。

tblVector_Value$Segment <- factor(tblVector_Value$Segment, 
                                  c("0-100", "100-200","200-300","300-400", "1000+"))
# turn last_Year into factor to avoid continuous x scale
tblVector_Value$last_Year <- factor(tblVector_Value$last_Year)

library(ggplot2)   # CRAN version 2.2.1 used
ggplot(tblVector_Value, aes(x = last_Year, y = antal, fill = Segment, label = antal)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = scales::percent) + labs(title="% segment") +
  geom_text(size = 3, position = "fill", vjust = 2)

请注意，vjust可用于微调文本标签的位置。试试vjust = 1.5或vjust = 1.0。