Question

我正在尝试在ggplot匿名函数上使用lapply

if (inputMethodP=="WITHINFILE")
                    {
                        par(mfrow=c(5,listPortions))
                            plotList<-lapply(RangeStatResultP, function(listPart)
                        {


                                ggplot(matrixPart, aes(x = factor(Var2), y=value)) + geom_violin()+
                                ggtitle(names(listPart)+xlab(listnum)+ylab("Coverage")+
                                stat_summary(fun.y = median, geom = "point", position = position_dodge(width = .9),
                                size = 6, shape = 4, show_guide = F)
                        })


                    }

当我将这段代码插入到我的脚本中时，它会给出我的错误

Error: unexpected '}' in:
"                                         size = 6, shape = 4, show_guide = F)
    }"

我的语法错了吗？我似乎无法追捕任何造成这种情况的流浪。

Answer 1

你错过了一个关闭ggtitle()的义务，因为names()也需要一个关闭的人。

if (inputMethodP == "WITHINFILE") {
  par(mfrow = c(5, listPortions))
  plotList <- lapply(RangeStatResultP, function(listPart) {
    ggplot(matrixPart, aes(x = factor(Var2), y = value)) +
      geom_violin()+
      ggtitle(names(listPart)) +
      xlab(listnum) +
      ylab("Coverage") +
      stat_summary(fun.y = median, geom = "point",
                   position = position_dodge(width = .9), size = 6, shape = 4,
                   show_guide = F)
  })
}

与匿名ggplot函数的lapply错误

1 个答案: