PROSAGA码农传奇-R-列列表上的不同函数，并使用data.table自动生成新列名

列列表上的不同函数，并使用data.table自动生成新列名

作者: ⑩Ⅵ嵗Ｄ夨憶
发布时间: 2025-01-19 04:46:59 (1月前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    如果我理解正确，问题不在于此
    <a href="/questions/tagged/shiny" class="post-tag" title="show questions questionged'shiny'" rel="tag">
      闪亮
    </A>
     首先，但关于如何将不同的聚合函数应用于a的特定列
    <a href="/questions/tagged/data.table" class="post-tag" title="show questions questionged'data.table'" rel="tag">
      data.table
    </A>
    。
  </p>
  <P>
    列的名称和要应用的函数以列表形式给出
     <code>
      mylist
    </code>
     这是由闪亮的应用程序创建的。
  </p>
  <P>
    在我采用的各种方法中，我的选择是
    <EM>
      计算语言
    </EM>
    ，即从内容创建一个完整的表达式
     <code>
      mylist
    </code>
     并评估它：
  </p>
   <pre>
    <code>
      library(magrittr)
library(data.table)
mylist %>%
  names() %>% 
  lapply(
    function(.col) lapply(
      mylist[[.col]], 
      function(.fct) sprintf("%s.%s = %s(%s)", .col, .fct, .fct, .col))) %>% 
  unlist() %>% 
  paste(collapse = ", ") %>% 
  sprintf("as.data.table(mtcars)[, .(%s), by = cyl]", .) %>% 
  parse(text = .) %>% 
  eval()

</code>
  </pre>
  <P>
    这产生了预期的结果
  </p>
  <BLOCKQUOTE>
     <pre>
      <code>
           cyl disp.sum disp.mean    hp.sd drat.sum drat.mean wt.max
1:   6   1283.2  183.3143 24.26049    25.10  3.585714  3.460
2:   4   1156.5  105.1364 20.93453    44.78  4.070909  3.190
3:   8   4943.4  353.1000 50.97689    45.21  3.229286  5.424

</code>
    </pre>
  </BLOCKQUOTE>
  <P>
    解析的字符串由。创建
  </p>
   <pre>
    <code>
      mylist %>%
  names() %>% 
  lapply(
    function(.col) lapply(
      mylist[[.col]], 
      function(.fct) sprintf("%s.%s = %s(%s)", .col, .fct, .fct, .col))) %>% 
  unlist() %>% 
  paste(collapse = ", ") %>% 
  sprintf("as.data.table(mtcars)[, .(%s), by = cyl]", .)

</code>
  </pre>
  <P>
    并且看起来好像是手动编码的：
  </p>
  <BLOCKQUOTE>
     <pre>
      <code>
        [1] "as.data.table(mtcars)[, .(disp.sum = sum(disp), disp.mean = mean(disp), hp.sd = sd(hp), drat.sum = sum(drat), drat.mean = mean(drat), wt.max = max(wt)), by = cyl]"

</code>
    </pre>
  </BLOCKQUOTE>
  <H3>
    数据
  </H3>
  <P>
    为了演示，
     <code>
      mylist
    </code>
     提供“硬编码”：
  </p>
   <pre>
    <code>
      mylist <- list(
  disp = c("sum", "mean"),
  hp = "sd",
  drat = c("sum", "mean"),
  wt = "max")

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