是否可以通过管道直接进入观星者？

问题描述

是否可以直接通过管道输入stargazer，而不是使用更复杂的方式？

示例：

date %>%
  filter(x1== "yes",x2 == "no") %>% 
  select(x5,x6) -> df
  
cols <- c("x5","x6") 

stargazer(
    df[,cols],type = "text",summary.stat = c("min","p25","mean","p75","max","median","sd","n") 
)

解决方法

是的，您应该能够在 select 中直接通过管道传输 stargazer 的结果。

library(dplyr)
library(stargazer)

mtcars %>%
  filter(cyl == 6) %>%
  select(wt,disp,cyl) %>%
  stargazer(type = "text",summary.stat = c("min","p25","mean","p75","max","median","sd","n"))

=================================================================
Statistic  Min  Pctl(25)  Mean   Pctl(75)  Max  Median St. Dev. N
-----------------------------------------------------------------
wt        2.620  2.822    3.117   3.440   3.460 3.215   0.356   7
disp       145    160    183.314  196.3    258  167.6   41.562  7
cyl         6      6      6.000     6       6     6     0.000   7
-----------------------------------------------------------------

,

我们可以使用

library(dplyr)
library(stargazer)
df %>%
    select(all_of(cols)) %>%
    stargazer(type = "text","n"))