R-ggplot2在geom_bar（？）中的排序更改

Question

昨天我制作了一些旧图表，并对geom_bar中的排序感到惊讶-条形图和饼图已更改。

不久前我发布了这个问题

R-ggplot中的奇怪饼图行为

在开始时，我提供了一个示例-相同的短代码现在产生了不同的图表。 我误会了吗？ 这对我来说真是令人惊讶。

感谢您的任何评论。

编码：

library(ggplot2)
library(data.table)

c1 <- c(2,3)
c2 <- c("second","third")
c2 <- factor(c2, levels = c("first","second","third","fourth"))
c3 <- c(0.7,0.3)
cs <- data.frame(c1,c2,c3)
ct <- data.table(cs)
colx <- c("blue","red")
midpoint <- cumsum(ct$c3) - ct$c3/2

ct

keycols = c("c1")
setkeyv(ct,keycols)


vysg <- ggplot(ct, aes(x=1,y=c3,fill=c2)) + 
          geom_bar(stat="identity",width=2) + 
          coord_polar(theta='y')+
          theme(axis.ticks=element_blank(), axis.title=element_blank(), 
            axis.text.y = element_blank(), panel.grid  = element_blank(),
            axis.text.x = element_text(color=colx,size=15,hjust=0))+ 
        scale_y_continuous(breaks = midpoint, labels = ct$c2)  + 
        scale_fill_manual(values=colx) +
        scale_x_continuous(limits=c(-1,2.5))
vysg

它产生这张图

而原始图表（由完全相同的代码生成，看起来像这样）

我注意到订单声明的结尾，但它不会影响此示例。

谢谢您的任何评论，我可能对明显的事情视而不见。

Answer 1

我已在Axeman的提示下在Github上提问。

原因是更改条形图的顺序。

http://ggplot2.tidyverse.org/articles/releases/ggplot2-2.2.0.html

为了保持与先前相同的结果，有必要应对这种情况。 链接中提示了几种可能性。 在我的情况下，我改变了coord_polar的方向并改变了中点

breaks = 1-midpoint #instead of: midpoint
coord_polar(theta='y', direction=-1)  #instead of: coord_polar(theta='y')

整个脚本：

library(ggplot2)
library(data.table)

c1 <- c(2,3)
c2 <- c("second","third")
c2 <- factor(c2, levels = c("first","second","third","fourth"))
c3 <- c(0.7,0.3)
cs <- data.frame(c1,c2,c3)
ct <- data.table(cs)
colx <- c("blue","red")
midpoint <- cumsum(ct$c3) - ct$c3/2

ct

keycols = c("c1")
setkeyv(ct,keycols)


vysg <- ggplot(ct, aes(x=1,y=c3,fill=c2)) + 
          geom_bar(stat="identity",width=2) + 
          coord_polar(theta='y', direction=-1)+
          theme(axis.ticks=element_blank(), axis.title=element_blank(), 
            axis.text.y = element_blank(), panel.grid  = element_blank(),
            axis.text.x = element_text(color=colx,size=15,hjust=0))+ 
        scale_y_continuous(breaks = 1-midpoint, labels = ct$c2)  + 
        scale_fill_manual(values=colx) +
        scale_x_continuous(limits=c(-1,2.5))
vysg

现在在ggplot 2.2.0中提供与ggplot 1.0.1中的原始脚本相同的结果