在ggplot2中按照某一年的观察值对面板数据进行排序

2019年8月6日 240次阅读

我正在使用ggplot2绘制一个简单的数据面板.来自同一个体(区域)的观察来自两个不同的波,我想绘制我的图表,通过仅一个波的值来排序个体.但是,ggplot默认按两个波的平均值排序.这是
data的基本样本.

data <- read.table(text = "

 ID  Country time     Theil0
 1      AT1 2004 0.10358155
 2      AT2 2004 0.08181044
 3      AT3 2004 0.08238252
 4      BE1 2004 0.14754138
 5      BE2 2004 0.07205898
 6      BE3 2004 0.09522730
 7      AT1 2010 0.10901556
 8      AT2 2010 0.09593889
 9      AT3 2010 0.07579683
 10     BE1 2010 0.16500438
 11     BE2 2010 0.08313131
 12     BE3 2010 0.10281853

", sep = "", header = TRUE)

这是情节的代码：

library(ggplot2)

pd <- position_dodge(0.4)

ggplot(data, aes(x=reorder(Country, Theil0), y=Theil0, colour = as.factor(time))) +   
   geom_point(size=3, position = pd)+
   xlab("Region") +
   theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) +
   ylab("Index") +
   ggtitle("2004 and 2010")

由此产生的情节：

正如您所看到的,仅按2010年的值排序(而不是两年的平均值)将使BE2和AT3观测值切换顺序,这是我在图中所希望的.谢谢你对此有任何帮助.

最佳答案 我创建了一个使用通用xs和ys的可重现的示例.基本上,您需要在因子上使用有序函数：

x <- letters[1:4]
y1 <- 1:4
y2 <- c(1, 4, 2, 5) + 1

library(ggplot2)
library(reshape2) # used to melt the dummy dataset

df <- data.frame(x = x, y1 = y1, y2 = y2)
df2 <- melt(df, id.vars = "x", variable.name = "Group", value.name = "y")

df2$Group <- factor(df2$Group)
gg1 <- ggplot(data = df2, aes( x = x, y = y, color = Group)) +
       geom_point()
ggsave("eample1.jpg", gg1, width = 3, height = 3)

给出类似于你的情节：

但是,x可能会重新排序：

df2$x2 <- ordered(df2$x, x[order(y2)])
gg2 <- ggplot(data = df2, aes( x = x2, y = y, color = Group)) +
       geom_point()
ggsave("eample2.jpg", gg2, width = 3, height = 3)

这给出了这个数字：

另外,我很多都被绊倒了.我发现ggplot2中的调整级别有时会被欺骗.

点赞