ggplot中缺少组（使用knitR）

我想使用ggplot为3x2组生成箱线图，并使用knitR将其解析为word文档。情节应该是这样的

它在R中工作，但在knitR中，我得到了类似于下面的一个，它删除了一个分组变量（ggplot（aes（））中的“color”，下面的s），并更改了图例的顺序

我使用以下功能进行打印：

  boxplot_t1t2 <- function(data, group, variable, time, ylab)
  {
    ggplot(data, aes(x = group, y = variable, fill = group, colour = time)) + 
      stat_boxplot(geom = 'errorbar') +
      geom_boxplot() +
      labs(x = "", y = ylab) +
      scale_fill_manual(values = c("khaki1", "mediumseagreen", "olivedrab2")) +
      scale_x_discrete(labels = str_wrap(c("", "", ""), width = 2)) +
      scale_colour_manual(values = c("black", "black")) +
      scale_colour_grey(start = 0.4, end = 0) +
      theme(...)
  }

boxplot\u t1t2