PROSAGA码农传奇-模型可视化-dplyr Mutate中的错误

dplyr Mutate中的错误 - 循环遍历列以生成图形

作者: 無口君
发布时间: 2024-10-12 09:59:19 (25天前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    编程用
     <code>
      tidyverse
    </code>
     包需要一些习惯。在这种情况下，你正在治疗
     <code>
      i
    </code>
     好像它是一个表达式，实际上它是一个字符串。你可以把它转换成
     <code>
      quosure
    </code>
     然后在需要时取消引用它，如下所示：
  </p>
   <pre>
    <code>
      for(i in miRs){
    i <- rlang::parse_expr(i)
    dat2 <- cts %>%
        tibble::rownames_to_column(var="outlier") %>%
        group_by(type) %>%
        mutate(is_outlier=ifelse(is_outlier(!!i),
                                 !!i,
                                 as.numeric(NA)))
    dat2$outlier[which(is.na(dat2$is_outlier))] <- as.numeric(NA)
    dev.new()
    p <- ggplot(dat2, aes(y=!!i, x=factor(type))) +
        geom_boxplot() +
        geom_text(aes(label=outlier),
                  na.rm=TRUE,
                  hjust=0.05) +
        geom_dotplot(binaxis='y',
                     stackdir='center',
                     dotsize=1,
                     binwidth = .5)
    print(p)
}

</code>
  </pre>
</DIV>