정보

    • 업무명     : 파일 읽는 GUI를 제공하는 "ezpickr" 패키지 소개

    • 작성자     : 이상호

    • 작성일     : 2020-01-06

    • 설   명      :

    • 수정이력 :

     

     내용

    [특징]

    • 파일을 쉽게 읽기 위해서 "ezpickr" 패키지가 요구되며 이 프로그램은 이러한 목적을 달성하기 위한 소프트웨어

     

     

    [기능]

    • ezpickr 패키지 소개

     

    [활용 자료]

    • 없음

     

    [자료 처리 방안 및 활용 분석 기법]

    • 없음

     

    [사용법]

    • 소스 코드 예시 참조

     

    [사용 OS]

    • Windows 10

     

    [사용 언어]

    • R v3.6.2

    • R Studio v1.2.5033

     

     소스 코드

    [명세]

    • 전역 설정

      • 최대 10 자리 설정

      • 메모리 해제

    # Set Option
    options(digits = 10)
    memory.limit(size = 9999999999999)

     

    • 라이브러리 읽기

    # Library Load
    library(ezpickr)
    library(ForImp)
    library(openxlsx)

     

    • Data Frame 설정

      • id : x축

      • group : y축

      • value : 범례값

      • timeA : 범례 제목

      • timeB : 범례 설명

    # Set Data Frame
    n = 10
    
    dfData = tibble::tibble(
        id = 1:n
        , group = sample(seq(1:10), n, replace = TRUE)
        , timeA = rnorm(n)
        , timeB = rnorm(n)
        )

     

     

    • Data Frame 재 설정

      • time A-B열에 대해 NA값 설정

    # Update Data Frame
    dfData[, 3:4] = ForImp::missingmat2(dfData[, 3:4], missing = 10)

     

     

    • Data Frame 출력

    # Write Using Data Frame
    openxlsx::write.xlsx(dfData, "dfData.xlsx")

     

     

    • "ezpickr::pick"를 이용한 파일 읽기

      • 해당 패키지는 GUI을 제공할 뿐만 아니라 다양한 파일 형식 지원

      • 파일 형식 : csv, csv2, tsv, txt xls, xlsx, json, html, htm, php, pdf, doc, docx, rtf, RData, Rda, RDS, sav, por, sas7bdat, sas7bcat, dta

      • 또한 여러 시트에 대한 엑셀 목록을 읽기 때문에 매우 편리

    # Read Using ezpickr::pick
    dfReadData = ezpickr::pick()

     

     

     

    [전체]

    # Set Option
    options(digits = 10)
    memory.limit(size = 9999999999999)
    
    # Library Load
    library(ezpickr)
    library(ForImp)
    library(openxlsx)
    
    # Set Data Frame
    n = 10
    
    dfData = tibble::tibble(
        id = 1:n
        , group = sample(seq(1:10), n, replace = TRUE)
        , timeA = rnorm(n)
        , timeB = rnorm(n)
        )
    
    dfData
    
    # Update Data Frame
    dfData[, 3:4] = ForImp::missingmat2(dfData[, 3:4], missing = 10)
    
    # Write Using Data Frame
    openxlsx::write.xlsx(dfData, "dfData.xlsx")
    
    
    # Read Using ezpickr::pick
    dfReadData = ezpickr::pick()

     

     참고 문헌

    [논문]

    • 없음

    [보고서]

    • 없음

    [URL]

    • 없음

     

     문의사항

    [기상학/프로그래밍 언어]

    • sangho.lee.1990@gmail.com

    [해양학/천문학/빅데이터]

    • saimang0804@gmail.com
    • 네이버 블러그 공유하기
    • 네이버 밴드에 공유하기
    • 페이스북 공유하기
    • 카카오스토리 공유하기