小编Nic*_*ano的帖子

我正在尝试在 rmarkdonw html 文档中生成格式良好的列联表。这是代码：

---\ntitle: "Probabilidad"\nauthor: "Nicol\xc3\xa1s Molano Gonzalez"\ndate: "7 de Abril de 2020"\noutput:\n  html_document:\n  fig_caption: true\n---\n\n```{r echo=F, message = FALSE, warning =F}\n\nlibrary(tidyverse)\nlibrary(kableExtra)\nlibrary(knitr)\n\nset.seed(150)\n\n```\n

这是表的数据：

```{r echo=FALSE, results = \'asis\'}\n\nca_ctr_r<-.3\n\nn   <- 250\nnCA <- round(n*ca_ctr_r)\nz0  <- data.frame(status=c(rep("CA",nCA),rep("CTR",n-nCA)))\nz0$exposition <- NA\nexp_CA  <- .45\nexp_CTR <- .19\n\nz0[z0$status %in% "CA","exposition"]  <- ifelse(runif(nCA) < exp_CA,"yes","no")\nz0[z0$status %in% "CTR","exposition"] <- ifelse(runif(n-nCA) < exp_CA,"yes","no")\n\nz0$exposition <- factor(z0$exposition,levels = c("yes","no"))\n\n```\n

这是打印列联表的代码，应该改进。

```{r echo=FALSE, results = \'asis\'}\n\nres  <- kable(t(table(z0)%>%addmargins))\n#res <- kable(t(table(z0)))\nkable_styling(res,"striped", position = "center",full_width = F) %>% add_header_above(c("exposition","status"=2," "))\n\n```\n …

我想在 purrr 包的 map 函数中使用省略号参数。这是一个玩具示例：

f1<-function(x,a=NA,b=NA,prs=seq(0, 1, 0.25),SW=T){
  if(SW){
    res<-data.frame(name1=a,name2=b,t(quantile(x, prs, na.rm = T)),  mean=mean(x, na.rm = T), sd=sd(x, na.rm = T),
                    NAs=length(x[is.na(x)]),n=length(x[!is.na(x)]),SWp=shapiro.test(x)$p.value,stringsAsFactors =F)
  }else
  {
    res<-data.frame(name1=a,name2=b,t(quantile(x, prs, na.rm = T)),  mean=mean(x, na.rm = T), sd=sd(x, na.rm = T),
                    NAs=length(x[is.na(x)]),n=length(x[!is.na(x)]),stringsAsFactors =F)
  }
return(res)
}

f1(c(NA,rnorm(25),NA),SW=F)
f1(c(NA,rnorm(25),NA))

现在我想在另一个函数 f2 中使用 f1：

f2<-function(df,...){
  res<-map_df(colnames(df),~f1(df[,.],a=.,...))
  return(res)
}

其中 ... 主要用于操作 f1 函数中的 SW 和 a 或 b 参数。但是 f2 没有做我想要的，可以在这里看到

f2(iris[,-5])
f2(iris[,-5],SW=F)

我感谢任何有关如何使用 addecuatelly ... 内地图的指南

我有以下清单：

mylist<-list(c("25","0"),c("50","1"),c("100","2"))

我想立即提取列表中每个元素的第一个元素。那是

c(mylist[[1]][1],mylist[[2]][1],mylist[[3]][1])

我尝试了以下但没有成功：

mylist[[]][1]; mylist[[.]][1]; mylist[1:3][1]

我感谢任何有效地做到这一点的建议

我正在构建一个 R 包，并且我正在大量使用管道运算符 %>%。我正在徘徊如何使用 :: 运算符从 purrr 包中调用它。我尝试过，purrr::%>%但出现错误。

我感谢任何有关此的指南。

PD：我应该从 magrittr 而不是 purrr 打电话给管道操作员吗？