2
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

R shiny でデータの基礎分析用アプリの作成①

Last updated at Posted at 2021-03-05

はじめに

R shiny でアプリを作ってみた(詳細はこちら)があまりにもシンプルであったため、もう少し、複雑なものを作ってみたいと思い取り組んだ。内容としてはcsvファイルを読み込んで、データの基礎分析(統計量の計算、可視化等)を自動で行えるようなアプリを開発したい。長くなりそうなので、テーマごとに分けて記事を書いていきたいと思う。

使うデータの準備

まずはこちらの記事で作成した人の性別、身長、体重、血液型があるデータを取り扱いたいと思う。記事の通り1000人分のデータを作成したら、それを csv ファイルに出力する。

> str(df)
'data.frame':	1000 obs. of  4 variables:
 $ SEX   : chr  "female" "male" "male" "male" ...
 $ HEIGHT: num  154 178 163 176 156 ...
 $ WEIGHT: num  48 70.8 48.2 76.4 40.9 ...
 $ BLOOD : chr  "O" "A" "A" "O" ...
> write.csv(df, "./data.csv")

これで使用するデータが用意できた。

ファイルの読み込みと表示

まず基礎となるファイルを読み込んで表示するアプリを作成する。

app.R
# Load packages ----
library(shiny)


# Source helpers ----


# User interface ----
ui <- fluidPage(
  titlePanel("Basic analysis"),
  
  sidebarLayout(
    sidebarPanel(
      fileInput("file",
                label = "File input",
                accept = c("text/csv"),
                multiple = FALSE,
                width = "80%")
    ),
    
    mainPanel(
      dataTableOutput("outFile"),
    )
  )
)

# Server logic
server <- function(input, output) {
  
  inFile <- reactive({
    tmp <- input$file
    if (is.null(tmp)){
      return(NULL)
    } else {
      df <- read.csv(tmp$datapath, header=TRUE)
      return(df)
    }
  })
  
  output$outFile <- renderDataTable({
    data.frame(inFile())
  })

}

# Run the app
shinyApp(ui, server)

これを実行し、data.csvを読み込ませると、

analysis_app_1.png

となりデータテーブルの表示ができた。

タブの作成

mainPanel に tabsetPanel を加えて書き換える。タブごとにデータ、統計量、可視化を変えれるように作成する。タブの中身については次の記事で書いていこうと思う。

app.R
# Load packages ----
library(shiny)


# Source helpers ----


# User interface ----
ui <- fluidPage(
  titlePanel("Basic analysis"),
  
  sidebarLayout(
    sidebarPanel(
      fileInput("file",
                label = "File input",
                accept = c("text/csv"),
                multiple = FALSE,
                width = "80%")
    ),
    
    mainPanel(
      tabsetPanel(type = "tabs",
                  tabPanel("Data", dataTableOutput("outFile")),
                  tabPanel("Statistic", h1("Statistics value")),
                  tabPanel("Visualize", h1("Plot"))
      )
                  
    )
  )
)

# Server logic
server <- function(input, output) {
  
  inFile <- reactive({
    tmp <- input$file
    if (is.null(tmp)){
      return(NULL)
    } else {
      df <- read.csv(tmp$datapath, header=TRUE)
      return(df)
    }
  })
  
  output$outFile <- renderDataTable({
    data.frame(inFile())
  })

}

# Run the app
shinyApp(ui, server)

analysis_app_2.gif

おわりに

次の記事ではタブの一つである基礎統計量の算出と表示を行いたいと思う。

R shiny でデータの基礎分析用アプリの作成②

2
2
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
2
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?