PROSAGA码农传奇-模型可视化-在图标题中使用数据框变量名称

<div class =“post-text”itemprop =“text”>
  
    你可以给出名字
     <code>
 vars
 </code>
     然后使用其中之一
     <code>
 map2()
 </code>
     要么
     <code>
 imap()
 </code>
     功能来自
     <code>
 purrr
 </code>
     打包以循环它们。要包含上标/下标/数学符号，请使用
     <code>
 expression()
 </code>
     和...一起
     <code>
 parse(text = ...)
 </code>
     （另见这些
    <a href="https://stackoverflow.com/a/52430787/786542">
      例1
    </A>
    ，
    <a href="https://stackoverflow.com/a/52040204/786542">
      例题
    </A>
    ）。
  
   <pre class="lang-r prettyprint-override">
 <code>
 names(vars) <- c(expression('effect of Rx'^{1}), 
 "response", 
 expression(weight/individual %.% kg[2])
 )
vars
#> "effect of Rx"^{\n 1\n} response 
#> "v1" "v2" 
#> weight/individual %.% kg[2] 
#> "v3"

### from purrr package
map2(vars, names(vars), ~ ggqqplot(example.df, x = .x, combine = FALSE, facet.by = "origin") +
       ggtitle(parse(text = .y)))

# or `imap(x, ...)` which is short hand for map2(x, names(x), ...) 
imap(vars, ~ ggqqplot(example.df, x = .x, combine = FALSE, facet.by = "origin") +
       ggtitle(parse(text = .y)))

#> $`"effect of Rx"^{\n    1\n}`

</code>
 </pre>
  
    <img src =“https://i.imgur.com/wvQoL1j.png”alt =“”/>
  
   <pre class="lang-r prettyprint-override">
 <code>
 #> 
#> $response

</code>
 </pre>
  
    <img src =“https://i.imgur.com/Ebar0BO.png”alt =“”/>
  
   <pre class="lang-r prettyprint-override">
 <code>
 #> 
#> $`weight/individual %.% kg[2]`

</code>
 </pre>
  
    <img src =“https://i.imgur.com/e7J9esn.png"alt =”“/>
  
  
    
      创建于2019-03-11由
      <a href="https://reprex.tidyverse.org" rel="nofollow noreferrer">
        代表包
      </A>
       （v0.2.1.9000）
    
  
</DIV>