Rで解析：Googleスプレッドシートの操作ができる！「googlesheets」パッケージ

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

#パッケージの読み込み
library("googlesheets")

###準備#####
#データ例の作成
TestData <- data.frame(Name = rep(c("karada", "good", "R and Anime"), each = 5),
                       Data1 = rep(1:5, times = 3),
                       Data2 = c(dnorm(1:5, mean = 10, sd = 3) * 100,
                                 dnorm(1:5, mean = 8, sd = 5) * 100,
                                 dnorm(1:5, mean = 22, sd = 10) * 100))
########

#&#12464;&#12540;&#12464;&#12523;&#12489;&#12521;&#12452;&#12502;&#12408;&#12398;&#12525;&#12464;&#12452;&#12531;:gs_auth&#12467;&#12510;&#12531;&#12489;
#&#23455;&#34892;&#12377;&#12427;&#12392;&#12464;&#12540;&#12464;&#12523;&#12408;&#12398;&#12525;&#12464;&#12452;&#12531;&#12392;googlesheets&#12395;&#12424;&#12427;
#&#35377;&#21487;&#12398;&#12522;&#12463;&#12456;&#12473;&#12488;&#30011;&#38754;&#12364;&#12502;&#12521;&#12454;&#12470;&#12395;&#34920;&#31034;&#12373;&#12428;&#12414;&#12377;&#12290;
gs_auth(new_user = TRUE)

#&#12464;&#12540;&#12464;&#12523;&#12471;&#12540;&#12488;&#12434;&#20316;&#25104;:gs_new&#12467;&#12510;&#12531;&#12489;
#&#26360;&#12365;&#36796;&#12416;&#12487;&#12540;&#12479;&#12434;&#25351;&#23450;:input&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12487;&#12540;&#12479;&#31684;&#22258;&#20197;&#22806;&#12398;&#12475;&#12523;&#34920;&#31034;&#35373;&#23450;:trim&#12458;&#12503;&#12471;&#12519;&#12531;
gs_new(title = "TestData", input = TestData, trim = TRUE)

#&#12471;&#12540;&#12488;&#12434;&#36861;&#21152;:gs_ws_new&#12467;&#12510;&#12531;&#12489;
#&#12471;&#12540;&#12488;&#21517;&#12434;&#25351;&#23450;:ws&#12458;&#12503;&#12471;&#12519;&#12531;
#gs_title&#12467;&#12510;&#12531;&#12489;&#12391;&#23550;&#35937;&#12398;&#12501;&#12449;&#12452;&#12523;&#12434;&#25351;&#23450;&#12375;&#12414;&#12377;
gs_ws_new(gs_title("TestData"), ws = "Sheet1", input = LETTERS[1:26], trim = TRUE)

#&#12471;&#12540;&#12488;&#21517;&#12398;&#22793;&#26356;:gs_ws_rename
#&#22793;&#26356;&#23550;&#35937;&#12398;&#12471;&#12540;&#12488;:from&#12458;&#12503;&#12471;&#12519;&#12531;
#&#22793;&#26356;&#24460;&#12398;&#12471;&#12540;&#12488;&#21517;:to
gs_ws_rename(gs_title("TestData"), from = "Sheet1", to = "&#12363;&#12425;&#12384;&#12395;&#12356;&#12356;&#12418;&#12398;")

#&#12501;&#12449;&#12452;&#12523;&#12398;&#21066;&#38500;:gs_delete&#12467;&#12510;&#12531;&#12489;
#gs_title&#12467;&#12510;&#12531;&#12489;&#12391;&#23550;&#35937;&#12398;&#12501;&#12449;&#12452;&#12523;&#12434;&#25351;&#23450;&#12375;&#12414;&#12377;
gs_delete(gs_title("TestData"))

#&#12464;&#12540;&#12464;&#12523;&#12489;&#12521;&#12452;&#12502;&#12395;&#20445;&#23384;&#12373;&#12428;&#12390;&#12356;&#12427;&#12473;&#12503;&#12524;&#12483;&#12489;&#12471;&#12540;&#12488;&#21517;&#12434;&#21462;&#24471;:gs_ls&#12467;&#12510;&#12531;&#12489;
gs_ls()
Source: local data frame [2 x 10]
sheet_title     &#12288;author  perm version             updated  sheet_key
1  TestData    karada-good   rw     new  2015-07-05 11:34:31  1fsRp-AO&hellip;
Variables not shown: ws_feed (chr), alternate (chr), self (chr), alt_key (chr)

#&#12464;&#12540;&#12464;&#12523;&#12489;&#12521;&#12452;&#12502;&#12363;&#12425;&#12487;&#12540;&#12479;&#12398;&#21462;&#24471;:gs_read&#12467;&#12510;&#12531;&#12489;
#&#35501;&#12415;&#36796;&#12415;&#12471;&#12540;&#12488;&#12398;&#25351;&#23450;:ws&#12458;&#12503;&#12471;&#12519;&#12531;
readData <- gs_read(gs_title("TestData"), ws = 1)
Source: local data frame [15 x 3]

Name Data1     Data2
(chr) (int)     (dbl)
1       karada     1 0.1477283
2       karada     2 0.3798662
3       karada     3 0.8740630
4       karada     4 1.7996989
5       karada     5 3.3159046
6         good     1 2.9945493
7         good     2 3.8837211
8         good     3 4.8394145
9         good     4 5.7938311
10        good     5 6.6644921
11 R and Anime     1 0.4398360
12 R and Anime     2 0.5399097
13 R and Anime     3 0.6561581
14 R and Anime     4 0.7895016
15 R and Anime     5 0.9404908

#&#20316;&#26989;&#12487;&#12451;&#12524;&#12463;&#12488;&#12522;&#12395;&#12471;&#12540;&#12488;&#12434;&#12456;&#12463;&#12475;&#12523;&#12391;&#20445;&#23384;:gs_download&#12467;&#12510;&#12531;&#12489;
gs_download(gs_title("TestData"), to = "TestData.xlsx")