R 설치 및 R studio, R shiny 설치

■R Gui 다운로드

 

파일- 작업디렉토리 변경 - (emp 담겨있는 폴더를 선택)

또는 setwd 명령어 사용

지정 csv를 지정변수명으로 설정하기

> emp <- read.csv("emp.csv", header=T)

> pie(emp$sal, col=rainbow(14))   # 그래프 나오는 명령어

 

 

새스크립트 열어서

명령어만 쓰면 (실행: 컨트롤 R)

다른 콘솔창에 결과가 나온다

 

 

※ R실행할 때 관리자 권한으로 실행해야 한다.

그래야 패키지 설치할때 에러 안뜬다.

 

 

 

■ Rstudio 실행

※ 아나콘다 네비게이터를 통해서 설치하면 한글오류가 나타난다.

구글에서 다운로드해서 설치하기를 권장.

 

컨트롤 1  (새창키기)

 

setwd("d:\\data")   # 사용폴더 지정시키기. 실행은 컨트롤 엔터

emp <- read.csv("emp.csv", header=T)

emp

 

알트+마이너스키 : 화살표 만들기

 

 

R 자동실행 함수  *사용폴더 설정 및 필요패키지를 간단하게 실행시킨다.

fun <- function(){

 

  eval( library(data.table) )

 

  eval( library(lubridate) )

 

  eval( library(doBy) )

 

  eval( library(shiny) )

 

  eval( library(utils) )

 

  eval( setwd('d:\\Rdata') )

 

 

 

  emp <<- eval(read.csv('emp.csv',header=T))

 

  dept <<- eval(read.csv('dept.csv',header=T))

 

  eval( attach(emp) )

 

  eval( attach(dept) )

 

}

 

fun()

 

 

 

 

■ R shyiny 설치

 

"샤이니란?"

url을 쉽게 만드는 패키지

 

install.package("shiny")

#샤이니 패키지 설치합니다

 

library('shiny')

runExample("01_hello")

 

 

 

 

※ 페이지 하단에 있는 코드 복사해서 가져올수 있다.

library(shiny)

# Define UI for app that draws a histogram ----
ui <- fluidPage(

# App title ----
  titlePanel("Hello Shiny!"),

# Sidebar layout with input and output definitions ----
  sidebarLayout(

# Sidebar panel for inputs ----
    sidebarPanel(

# Input: Slider for the number of bins ----
      sliderInput(inputId = "bins",
                  label = "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)

),

# Main panel for displaying outputs ----
    mainPanel(

# Output: Histogram ----
      plotOutput(outputId = "distPlot")

)
  )
)

# Define server logic required to draw a histogram ----
server <- function(input, output) {

# Histogram of the Old Faithful Geyser Data ----
  # with requested number of bins
  # This expression that generates a histogram is wrapped in a call
  # to renderPlot to indicate that:
  #
  # 1. It is "reactive" and therefore should be automatically
  #    re-executed when inputs (input$bins) change
  # 2. Its output type is a plot
  output$distPlot <- renderPlot({

x    <- faithful$waiting
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

hist(x, breaks = bins, col = "#75AADB", border = "white",
         xlab = "Waiting time to next eruption (in mins)",
         main = "Histogram of waiting times")

})

}

# Create Shiny app ----
shinyApp(ui = ui, server = server)