我正在尝试在ggplot2中创建一个多面点图,但无法让内部面板类别以我想要的顺序出现 . 绘制圆点图的代码是:
g <- ggplot(df2, aes(x=Y, y=label)) + geom_point()
g <- g + facet_grid(incentive ~ ., scale="free")
g <- g + geom_errorbarh(aes(xmax = Y + se, xmin = Y - se))
g <- g + geom_vline(xintercept=1/6, linetype=2, colour="red")
g <- g + opts(title="% Subjects Choosing Non-Focal Image",
strip.text.y = theme_text()
) + xlab("%") + ylab("Groups")
print(g)
情节的问题在于,在“仅限货币”方面,1美分和5美分类别的顺序错误 . 问题似乎不是因素本身的顺序,如:
> levels(df2$label)
[1] "0" "1" "1 cent" "5 cent" "6"
>
Update :排序因子似乎不会改变绘图顺序,即使用label3绘图,其中:
df2 $ label3 1 0 1 1分5分6级别:0 <1 <1分<5分<6
>str(df2$label3)
Ord.factor w/ 5 levels "0"<"1"<"1 cent"<..: 1 2 3 4 5
实际数据框:
df2 <- structure(list(Y = c(0.0869565217391304, 0.148148148148148, 0.172413793103448,
0.384615384615385, 0.5625), group = c(0L, 1L, 5L, 3L, 6L), se = c(0.0856368459098186,
0.079039229753282, 0.0762650540661762, 0.0805448741815074, 0.0726021684593052
), nudged = c(FALSE, TRUE, TRUE, TRUE, TRUE), incentive = structure(c(1L,
2L, 3L, 3L, 4L), .Label = c("Default behavior", "Imbalance only",
"Money only", "Money & Imbalance together"), class = "factor"),
label = structure(1:5, .Label = c("0", "1", "1 cent", "5 cent",
"6"), class = "factor"), plot_order = c(0, 1, 2, 3, 4)), .Names = c("Y",
"group", "se", "nudged", "incentive", "label", "plot_order"),
row.names = c("as.factor(group)0",
"as.factor(group)1", "as.factor(group)5", "as.factor(group)3",
"as.factor(group)6"), class = "data.frame")
2 回答
你的问题是
facet_grid
正在按照与激励 Value (0,1分,5美分等)的顺序相冲突的顺序绘制激励类型('Default Behavior'等),这就是为什么你没有得到在Money Only组中您想要的顺序 . 修复它的最简单方法是重新排序incentive
因子,以便在底部而不是顶部绘制默认行为:并按原样保留其余代码 . 然后你得到这个情节:
这听起来和看起来很奇怪(因为标签按因子级别的顺序排序,正如@Dirk Eddelbuettel也在上面写的那样),但你总是可以使用scale_discrete .
我根据你的代码编写了一个小例子,但看起来也很奇怪,请参阅: