Rで解析：Shinyのウィジットがいろいろ収録「shinyWidgets」パッケージ

Shinyのウィジットがいろいろと収録されているパッケージの紹介です。一覧は「shinyWidgetsGallery」コマンドを実行することで確認することができます。

本パッケージを利用することでShinyの利用に幅が広がるのではないでしょうか。実行コマンドでは収録ウィジットを利用しBoxPlotで使うデータ数を調整する例を紹介しています。

また、Shinyに関しては下記記事を参考ください。

パッケージバージョンは0.1.5。実行コマンドはwindows 11のR version 4.1.2で確認しています。

パッケージのインストール

下記、コマンドを実行してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
install.packages("shinyWidgets")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("shinyWidgets")

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12395;&#21547;&#12414;&#12428;&#12390;&#12356;&#12427;&#20840;&#12467;&#12510;&#12531;&#12489;&#12434;Shiny&#12391;&#34920;&#31034;:shinyWidgetsGallery&#12467;&#12510;&#12531;&#12489;
shinyWidgetsGallery()

###&#21442;&#32771;_dropdownButton&#12434;&#21033;&#29992;&#12375;&#12390;BoxPlot&#12391;&#20351;&#12358;&#12487;&#12540;&#12479;&#25968;&#12434;&#35519;&#25972;&#12377;&#12427;#####
#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("shiny")
library("shinyWidgets")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
#tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
set.seed(1234)
TestData <- tibble(Group = sample(paste0("Group", 1:4), 50,
                                  replace = TRUE),
                   Data = sample(c(51:100), 50, replace = TRUE))
########

#UI&#37096;&#20998;&#12434;&#35352;&#36848;
ui <- fluidPage(
  tags$h2("BoxPlot&#12398;&#20351;&#29992;&#12487;&#12540;&#12479;&#25968;&#12434;&#36984;&#25246;"),
  br(),
  #status&#12458;&#12503;&#12471;&#12519;&#12531;:"info","primary","danger","warning","success"
  #icon&#12467;&#12510;&#12531;&#12489;:shiny&#12497;&#12483;&#12465;&#12540;&#12472;&#12395;&#21454;&#37682;&#12373;&#12428;&#12390;&#12356;&#12427;&#12467;&#12510;&#12531;&#12489;&#12391;&#12377;
  #&#12450;&#12452;&#12467;&#12531;&#12399;https://getbootstrap.com/docs/3.3/components/#glyphicons&#12414;&#12383;&#12399;
  #https://fontawesome.com/icons&#12434;&#21442;&#29031;
  #&#35443;&#12375;&#12367;&#12399;&#12300;?icon&#12301;&#12434;&#23455;&#34892;,
  dropdownButton(
    tags$h3("&#20351;&#29992;&#12487;&#12540;&#12479;&#25968;&#12434;&#36984;&#25246;"),
    sliderInput(inputId = "BoxData",
                label = "BoxData",
                value = 25,
                min = 10,
                max = 50),
    circle = TRUE, status = "primary",
    icon = icon("fire"), width = "300px",
    tooltip = tooltipOptions(title = "BoxPlot&#12398;&#20351;&#29992;&#12487;&#12540;&#12479;&#25968;&#12434;&#35519;&#25972;")
  ),
  br(),
  br(),
  br(),
  br(),
  br(),
  br(),
  plotOutput(outputId = "BoxPlot")
)

#server&#37096;&#20998;&#12434;&#35352;&#36848;
server <- function(input, output, session) {
  #&#12487;&#12540;&#12479;&#12434;&#25277;&#20986;
  selectedData <- reactive({
    TestData %>%
      slice_sample(n = input$BoxData)
  })
  
  #BoxPlot&#12434;&#25551;&#20889;
  output$BoxPlot <- renderPlot({
    ggplot(selectedData(), aes(x = Group, y = Data, fill = Group)) +
      geom_boxplot()
  })
  
}

#Shiny&#12398;&#23455;&#34892;
shinyApp(ui = ui, server = server)

出力例

・shinyWidgetsGalleryコマンド

・参考_dropdownButtonを利用してBoxPlotで使うデータ数を調整する

少しでも、あなたの解析が楽になりますように！！