-1

我目前正在使用 ggplot2 生成预测算法的比较图facet_grid。有没有办法指定子图的顺序？就我而言，我有兴趣通过 MSE 按升序查看它们。我怎样才能做到这一点？阅读facet_grid文档不会敲响任何警钟。

绘图代码如下所示：

ggplot(df_all, mapping=aes(x=t, y=value, color=label, shape=label)) +  
   geom_point() + ggtitle('Test vs. Predicted') + theme(legend.position='none') + facet_grid(. ~ group) + 
geom_segment(data=df_error_all, aes(x=df_error_all$x,y=df_error_all$y,xend=df_error_all$xend,yend=df_error_all$yend), size=0.3) + 
geom_segment(data=df_arrow_all, aes(x=df_arrow_all$x,y=df_arrow_all$y,xend=df_arrow_all$xend,yend=df_arrow_all$yend), size=0.3)
4

1 回答 1

4

正如@joran 和其他人所提到的， facet_grid 排序基于因子列的级别。

您可以使用relevel更改顺序。（修改原始列或创建新列）

df_all[["newGroup"]] <- relevel(df_all[["group"]], "value1")

##  OR: 
df_all[["group"]] <- relevel(df_all[["group"]], "value1")

更新：

我的 utils 文件中有以下函数，一旦我碰到，relevel我认为这是多余的。但正如@DWin 在下面的评论中指出的那样，relevel不能将多个级别用作ref.

在这些情况下，setFactorOrder可能会有用

setFactorOrder <- function(x, order=sort(levels(x))) { 
# Returns a factor ordered by `order`.  
# If order is missing, defaults to `levels(x)` if available, else to `sort(unique(x))`
# Useful for ggplot and elsewhere were ordering is based on the order of the levels

  if (!is.factor(x)) {
    warning("`x` is not a factor. Will coerce.")
    levs <- sort(unique(x))
    if (missing(order))
      order <- levs
  } else {
    levs <- levels(x)
  }

  # any values in order, not in levels(x)
  NotInx <- setdiff(order, levs)

  if (length(NotInx)) {
    warning ("Some values not in x:\n", paste(NotInx, collapse=", "))
  }

  # levels(x) not explicitly named in order
  Remaining <-  setdiff(levs, order)

  order <- c(setdiff(order, NotInx), Remaining)

  factor(x, level=order)
}

请注意，您必须分配 的结果setFactorOrder，如下所示：

x <- setFactorOrder(x, c("value1", "value2"))

# or
df_all[["group"]] <- setFactorOrder(df_all[["group"]], c("Ketchup", "Catsup", "Mustard"))
于 2013-10-15T15:01:19.643 回答