因子水平重复时锁定因子水平顺序答案

【问题标题】：Lock in factor level order when factor level is duplicated因子水平重复时锁定因子水平顺序
【发布时间】：2018-12-07 18:21:44
【问题描述】：

我正在尝试锁定变量的因子级别顺序，以使结果以与数据框相同的顺序显示在绘图中。

datad$outcome <- factor(data$outcome, levels = unadjusted.combined$outcome)

当某些行重复时，有没有办法解决此顺序：我的行重复，因为我有两个不同度量的结果，这会产生错误：

Error in `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else paste0(labels,  : factor level [54] is duplicated

我的数据看起来像这样；

xvar   outcome
x1     wt_2
x1     wt_3
x1     wt_4
x1     bmi_2
x1     bmi_3  
x1     bmi_4
x2     wt_2
x2     wt_3
x2     wt_4
x2     bmi_2
x2     bmi_3  
x2     bmi_4

最后，我的情节如下：（目前结果按字母顺序排列）

ggplot(data=data, aes(x=outcome, y=estimate, ymin=lci, ymax=uci, colour=xvar)) +  geom_pointrange() + geom_hline(yintercept=0, lty=2) + coord_flip()

【问题讨论】：

在 factor 函数中，您需要使用 order= 选项。
你能解释一下你的意思吗，我已经尝试了不同的选项，但没有奏效

标签： r ggplot2 data-manipulation

【解决方案1】：

这是一个答案的尝试。根据您的问题，您希望结果遵循原始数据的顺序，而不是默认的字母顺序。
以下是一些示例数据：

data<-structure(list(xvar = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 
                      2L, 2L, 2L, 2L, 2L), .Label = c("x1", "x2"), class = "factor"), 
           outcome = structure(c(4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L, 
                     1L, 2L, 3L), .Label = c("bmi_2", "bmi_3", "bmi_4", "wt_2", 
                      "wt_3", "wt_4"), class = "factor"), estimate = c(10.40, 
                       11.24, 10.09, 14.64, 10.48, 8.71, 13.27, 8.87, 9.97, 
                       13.12, 12.17, 8.44)), row.names = c(NA, 
                                          -12L), class = "data.frame")

xvar 和 outcome 都默认为因子。如果我们运行 ggplot plot 命令：

ggplot(data=data, aes(x=outcome, y=estimate,  colour=xvar, ymin=0, ymax=15)) +  
  geom_pointrange() + geom_hline(yintercept=0, lty=2) #+ coord_flip()

x轴按字母顺序排列：

现在为了保留原始顺序，我们可以在 factor 函数中使用 ordered=TRUE 选项。使用levels=传递正确的顺序

#order the factors in the order they appear in the data frame
data$outcome <- factor(data$outcome, levels= unique(data$outcome), ordered=TRUE)

ggplot(data=data, aes(x=outcome, y=estimate,  colour=xvar, ymin=0, ymax=15)) +  
  geom_pointrange() + geom_hline(yintercept=0, lty=2) #+ coord_flip()

现在我们保持了正确的顺序。

这是您的问题变得模糊的地方。如果要按相同顺序绘制 x1 然后 x2 的结果，则需要通过 paste(data$xvar, data$outcome) 创建一个新变量，然后将此新变量用作 x 轴。

希望这能回答你的问题。

【讨论】：