小编Max*_*Max的帖子

我正在尝试计算一些摘要信息,以帮助我检查数据集中不同组中的异常值.我能得到的那种输出的我想用dplyr::group_by()和dplyr::summarise()-与每个组给定变量的概要信息的数据帧.像这样的东西:

Sepal.Length_outlier_check <- iris %>%
  dplyr::group_by(Species) %>% 
  dplyr::summarise(min = min(Sepal.Length, na.rm = TRUE),
                   max = max(Sepal.Length, na.rm = TRUE),
                   median = median(Sepal.Length, na.rm = TRUE),
                   MAD = mad(Sepal.Length, na.rm = TRUE),
                   MAD_lowlim = median - (3 * MAD),
                   MAD_highlim = median + (3 * MAD),
                   Outliers_low = any(Sepal.Length < MAD_lowlim, na.rm = TRUE),
                   Outliers_high = any(Sepal.Length > MAD_highlim, na.rm = TRUE)
                   )

Sepal.Length_outlier_check

但是,我希望能够将它放在For循环中,以便能够为数据集中的每个不同变量生成类似的汇总数据帧.我是新手使用循​​环,但我认为它可能需要看起来像这样:

vars <- list(colnames(iris))

for (i in vars) {

x <- iris %>% …

当在小屏幕上查看我的 Shiny 应用程序时，我想将shiny::navbarPage(collapsible = TRUE)导航元素折叠到菜单中。默认情况下，当浏览器宽度小于 940 像素时会触发折叠。有什么方法可以改变这一点，以便在稍大的浏览器宽度（例如 1200 像素）下触发折叠？

我在不使用 LESS 的情况下查看了Bootstrap 3 Navbar Collapse和Change bootstrap navbar Collapse 断点，但不知道如何让它与 Shiny 一起工作。

闪亮玩具应用程序：

library(shiny)

ui <- navbarPage("This app has a long title to take up space for the purposes of this example", collapsible = TRUE,
                 
                 tabPanel("Panel that also has a long title 1"),
                 tabPanel("Panel that also has a long title 2"),
                 tabPanel("Panel that also has a long title 3")
                 
                 )

server <- function(input, output) {}

shinyApp(ui …