基于Facet变量重新排序X变量

我正在创建一个构面网格。我试图根据指定构面变量（。〜Order）的级别颠倒x轴（Context）上的级别顺序。（例如，对于Order，如果“NFF”，那么Context的顺序=“NF”，“IF”;如果是“IFF”，则Context的顺序=“IF”，“NF”）。基于Facet变量重新排序X变量

Order <- c("NFF", "NFF", "NFF", "NFF", "IFF", "IFF", "IFF", "IFF") 
Concept <- c("BT","BT", "H", "H", "BT", "BT", "H", "H") 
Context <- c("NF", "IF", "NF", "IF", "IF", "NF", "IF", "NF") 
Mean <- c(3.587, 3.857, 3.467, 3.101, 2.986, 3.965, 3.154, 3.555) 
SE <- c(0.13, 0.229, 0.143, 0.251, 0.281, 0.159, 0.251, 0.143) 

FlowExp1 <- data.frame(Order, Concept, Context, Mean, SE)

我到目前为止已经尝试：

FlowExp1$Context <- factor(FlowExp1.3$Context, 
        levels = c("No Friction", "Implied Friction")) 

limits <- aes(ymax = Mean + SE, ymin=Mean - SE) 
dodge <- position_dodge(width=0.5) 
cb<- c("dark grey", "grey30") 

p <- ggplot(FlowExp1, aes(fill=Concept, y=Mean, x=Context)) 
p2<- p + geom_bar(position="dodge", stat="identity", width = .5) 


p2 + 
    geom_bar(position=dodge) + 
    scale_fill_manual(values=cb, guide = FALSE)+ 
    geom_errorbar(limits, position=dodge, width=0.25) + 
    ylim(0,5) + 
    facet_grid(. ~ Order)

这几乎工程，我只需要在扭转语境的顺序

编辑数据我的工作facet_grid的第二个图形。

来源

2015-06-20 Dev15

请向你的一位同事展示这件事，看看他们是否能够理解这个请求。也许他们可以帮助你编辑它，以便我们其他人可以理解地阅读它。 –

您可以通过创建一个虚拟变量是在x轴上的变量，你被小面变量之间的interaction为此，

library(ggplot2) 

## Use a subset of the diamonds dataset 
data(diamonds) 
dat <- droplevels(with(diamonds, diamonds[color %in% c("E","I") & 
           clarity %in% c("SI2", "SI1"), ])) 

## See what it looks like first 
p <- ggplot(dat, aes(fill=color, y=carat, x=clarity)) 
p2 <- p + geom_bar(position="dodge", stat="identity", width=0.5) 
p2 + facet_grid(. ~ cut, scales="free_x")

enter image description here

这里的目标是仅在“高级”方面更改此图中的清晰度（x轴）顺序。

## Create a new factor of the interactions between variables of interest 
dat$fact <- with(dat, interaction(cut, clarity)) 

## Change the order of clarity in "Premium" facet only 
inds <- levels(dat$fact) 
inds[grep("Premium", inds)] <- rev(grep("Premium", inds, value=T)) 
dat$fact <- factor(dat$fact, levels=inds) 

## Plot it 
p <- ggplot(dat, aes(fill=color, y=carat, x=fact)) 
p2 <- p + geom_bar(position="dodge", stat="identity", width=0.5) 
p2 + facet_grid(. ~ cut, scales="free_x") + 
    scale_x_discrete(labels="") + xlab("Clarity")

enter image description here

通知SI2和SI1的顺序在Premium面板已切换。

来源

2015-06-20 05:58:15 jenesaisquoi

非常感谢！这是诀窍！ – Dev15

有关如何反转x轴刻度标签的想法？我一直在搜索没有运气。如果没有，或许网格安排或类似的会比我的目的方面更好。 – Dev15

使用gridExtra结束。更容易处理逆转。 – Dev15

基于Facet变量重新排序X变量

回答

相关问题