Rで解析：ファイルを楽々読み込む「ezpickr」パッケージ

ファイルをGUIで楽々読み込むパッケージの紹介です。対応ファイルは「csv、csv2、tsv、txt、xls、xlsx、json、html、htm、php、pdf、doc、docx、rtf、RData、Rda、RDS、sav(SPSS)、por、sas7bdat、sas7bcat、dta、xpt、mbox、Rmd」の25種類です。非常に利用が簡単なパッケージです。

なお、ファイル名および内容に日本語が含まれていても問題ありません。

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

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

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

#パッケージのインストール
install.packages("ezpickr")

#もしくはR 4.3.1の場合
remotes::install_github('jooyoungseo/mboxr')
remotes::install_github('trinker/textreadr')
remotes::install_github('jooyoungseo/ezpickr')

コマンドの紹介

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
set.seed(1234)
n <- 10
TestData <- data.frame(ID = 1:n,
                       Group = sample(c("A", "&#12486;&#12473;&#12488;", "C"),
                                      n, replace = TRUE),
                       Time_A = rnorm(n),
                       Time_B = rnorm(n))

#ForImp&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#21033;&#29992;
if(!require("ForImp", quietly = TRUE)){
  install.packages("ForImp");require("ForImp")
}
#&#27424;&#25613;&#20516;&#12434;&#20195;&#20837;
TestData[, 3:4] <- missingmat2(TestData[, 3:4], missing = 10)

#&#20445;&#23384;&#22580;&#25152;&#12434;&#25351;&#23450;&#12375;&#12390;xlsx&#12391;&#20986;&#21147;
#openxlsx&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#21033;&#29992;
if(!require("openxlsx", quietly = TRUE)){
  install.packages("openxlsx");require("openxlsx")
}
#&#20445;&#23384;
setwd(dir = choose.dir(caption = "&#20445;&#23384;&#22580;&#25152;&#12434;&#25351;&#23450;"))
write.xlsx(TestData, "TestData.xlsx")
#######

#&#12480;&#12452;&#12450;&#12525;&#12464;&#12363;&#12425;&#12501;&#12449;&#12452;&#12523;&#12434;&#35501;&#12415;&#36796;&#12416;:pick&#12467;&#12510;&#12531;&#12489;
#&#35501;&#12415;&#36796;&#12415;&#21487;&#33021;&#12394;&#12501;&#12449;&#12452;&#12523;&#24418;&#24335;:
#csv, csv2, tsv, txt, xls, xlsx, json, html, htm, php, pdf,
#doc, docx, rtf, RData, Rda, RDS, sav(SPSS), por, sas7bdat,
#sas7bcat, dta, xpt, mbox, Rmd
#&#12487;&#12540;&#12479;&#20363;&#12434;&#35501;&#12415;&#36796;&#12415;
ReadData <- pick()
#&#30906;&#35469;
ReadData
# A tibble: 10 x 4
ID Group  Time_A  Time_B
<dbl> <chr>   <dbl>   <dbl>
1     1 &#12486;&#12473;&#12488; NA      0.705 
2     2 &#12486;&#12473;&#12488; NA     -0.647 
3     3 A      NA      0.868 
4     4 C      -0.517 NA     
5     5 A      NA      0.310 
6     6 A       0.880 NA     
7     7 &#12486;&#12473;&#12488;  1.37  NA     
8     8 &#12486;&#12473;&#12488; -1.69  NA     
9     9 C      -0.627 NA     
10    10 &#12486;&#12473;&#12488; NA      0.0114

実行例

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