1 Objective

Bekerja menggunakan google spreadsheet dan R. Untuk dapat melanjutkan tutorial ini Anda membutuhkan akses internet yang baik dan sebuah akun google (gmail) untuk mengakses google spreadsheets.

2 Load Package

library(googlesheets)
library(dplyr)

3 Upload Data To Googlehseets

Untuk tutorial kali ini kita akan menggunakan data mtcars yang sudah tersedia di R. Kita akan membahas cara upload data dari R ke googlesheets terlebih dahulu.

  1. Buka googlesheets dan buat sebuah spreadsheet baru dengan nama test. Jika Anda belum login menggunakan akun gmail, maka Anda perlu login terlebih dahulu.
  2. Kita perlu modifikasi data mtcars yang sudah ada dengan membuat sebuah kolom baru berisi nama model kendaraan pada rownames dari mtcars.
mcars <- mtcars %>% 
  mutate(model = rownames(mtcars)) %>% 
  select(model, everything())

head(mcars)

Fungsi select() di kasus ini untuk menempatkan variable model di posisi paling kiri.

  1. Untuk mengakses googlesheets test yang sudah dibuat tadi, gunakan fungsi gs_title().
gs <- gs_title("test")

Mungkin Anda akan diminta login lagi untuk dapat mengakses googlesheets. Login lah dengan akun yang sama ketika membuat googlesheets test tadi. Fungsi gs_title() untuk me-register googlesheets yang akan digunakan, bukan untuk membacanya ke R.

  1. Upload data mcars yang sudah dibuat dengan fungsi gs_edit_cell().
gs_edit_cells(gs, input = mcars)

Sekarang Anda dapat lihat bahwa googlesheets test sudah berisi data.

Baiklah! kita sudah membahas cara menyimpan data dari R ke googlesheets.

4 Read Data From Googlehseets

Membaca atau import data dari googlesheets ke R sangat mudah.

  1. Register googlesheets yang akan digunakan berdasarkan namanya di google spreadsheet. Kita akan menggunakan googlesheets dengan nama test yang tadi dibuat.
gs <- gs_title("test")

Kemudian setelah berhasil maka kita bisa import ke R menjadi data.frame dengan fungsi gs_read().

mcars2 <- gs_read(gs)

Downloading: 860 B     
Downloading: 860 B     
Downloading: 870 B     
Downloading: 870 B     
Downloading: 870 B     
Downloading: 870 B

Anda sudah berhasil membaca data dari googlesheets menjadi data.frame. Data dari googlesheets test dibaca dengan men-download-nya terlebih dahulu dengan ukuran 870 Byte menjadi data.frame di R.

head(mcars2)

Selanjutnya Anda dapat melakukan proses analisis berikutnya seperti pada data.frame.

LS0tDQp0aXRsZTogICJXb3JrIFdpdGggR29vZ2xlIFNwcmVhZHNoZWV0IEFuZCBSIg0KYXV0aG9yOiAiQnkgQWVwIEhpZGF5YXR1bG9oIg0KZGF0ZTogICAiMjAxOSBBdWd1c3QgMTciDQpvdXRwdXQ6IA0KICBodG1sX25vdGVib29rOg0KICAgIG51bWJlcl9zZWN0aW9uczogeWVzDQogICAgdGhlbWU6IHNwYWNlbGFiDQogICAgZGZfcHJpbnQ6IHBhZ2VkDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZGVwdGg6IDQNCiAgICB0b2NfZmxvYXQ6IHRydWUNCi0tLQ0KDQo8c3R5bGUgdHlwZT0idGV4dC9jc3MiPg0KDQpib2R5eyAvKiBOb3JtYWwgICovDQogICAgICBmb250LXNpemU6IDE0cHg7DQogIH0NCnRkIHsgIC8qIFRhYmxlICAqLw0KICBmb250LXNpemU6IDEycHg7DQp9DQpoMS50aXRsZSB7DQogIGZvbnQtc2l6ZTogMzhweDsNCiAgY29sb3I6IGxpZ2h0Ymx1ZTsNCiAgZm9udC13ZWlnaHQ6IGJvbGQ7DQp9DQpoMSB7IC8qIEhlYWRlciAxICovDQogIGZvbnQtc2l6ZTogMjRweDsNCiAgY29sb3I6IERhcmtCbHVlOw0KfQ0KaDIgeyAvKiBIZWFkZXIgMiAqLw0KICBmb250LXNpemU6IDIwcHg7DQogIGNvbG9yOiBEYXJrQmx1ZTsNCn0NCmgzIHsgLyogSGVhZGVyIDMgKi8NCiAgZm9udC1zaXplOiAxNnB4Ow0KIyAgZm9udC1mYW1pbHk6ICJUaW1lcyBOZXcgUm9tYW4iLCBUaW1lcywgc2VyaWY7DQogIGNvbG9yOiBEYXJrQmx1ZTsNCn0NCmg0IHsgLyogSGVhZGVyIDQgKi8NCiAgZm9udC1zaXplOiAxNHB4Ow0KICBjb2xvcjogRGFya0JsdWU7DQp9DQpjb2RlLnJ7IC8qIENvZGUgYmxvY2sgKi8NCiAgICBmb250LXNpemU6IDEycHg7DQp9DQpwcmUgeyAvKiBDb2RlIGJsb2NrIC0gZGV0ZXJtaW5lcyBjb2RlIHNwYWNpbmcgYmV0d2VlbiBsaW5lcyAqLw0KICAgIGZvbnQtc2l6ZTogMTJweDsNCn0NCjwvc3R5bGU+DQoNCg0KYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9DQoja25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG89VFJVRSwgcmVzdWx0cz0naG9sZCcsIHdhcm5pbmc9RkFMU0UsIGZpZy5zaG93PSdob2xkJywgbWVzc2FnZT1GQUxTRSkgDQpvcHRpb25zKHNjaXBlbiA9IDk5KQ0KYGBgDQoNCg0KIyBPYmplY3RpdmUNCg0KQmVrZXJqYSBtZW5nZ3VuYWthbiBnb29nbGUgc3ByZWFkc2hlZXQgZGFuIFIuIFVudHVrIGRhcGF0IG1lbGFuanV0a2FuIHR1dG9yaWFsIGluaSBBbmRhIG1lbWJ1dHVoa2FuIGFrc2VzIGludGVybmV0IHlhbmcgYmFpayBkYW4gc2VidWFoIGFrdW4gZ29vZ2xlIChnbWFpbCkgdW50dWsgbWVuZ2Frc2VzIFtnb29nbGUgc3ByZWFkc2hlZXRzXShodHRwczovL3d3dy5nb29nbGUuY29tL3NoZWV0cy9hYm91dC8pLg0KDQojIExvYWQgUGFja2FnZQ0KDQpgYGB7cn0NCmxpYnJhcnkoZ29vZ2xlc2hlZXRzKQ0KbGlicmFyeShkcGx5cikNCmBgYA0KDQojIFVwbG9hZCBEYXRhIFRvIEdvb2dsZWhzZWV0cw0KDQpVbnR1ayB0dXRvcmlhbCBrYWxpIGluaSBraXRhIGFrYW4gbWVuZ2d1bmFrYW4gZGF0YSBgbXRjYXJzYCB5YW5nIHN1ZGFoIHRlcnNlZGlhIGRpIFIuIEtpdGEgYWthbiBtZW1iYWhhcyBjYXJhIHVwbG9hZCBkYXRhIGRhcmkgUiBrZSBnb29nbGVzaGVldHMgdGVybGViaWggZGFodWx1Lg0KDQoxLiBCdWthIFtnb29nbGVzaGVldHNdKFtnb29nbGUgc3ByZWFkc2hlZXRzXShodHRwczovL3d3dy5nb29nbGUuY29tL3NoZWV0cy9hYm91dC8pKSBkYW4gYnVhdCBzZWJ1YWggc3ByZWFkc2hlZXQgYmFydSBkZW5nYW4gbmFtYSBgdGVzdGAuIEppa2EgQW5kYSBiZWx1bSBsb2dpbiBtZW5nZ3VuYWthbiBha3VuIGdtYWlsLCBtYWthIEFuZGEgcGVybHUgbG9naW4gdGVybGViaWggZGFodWx1Lg0KMi4gS2l0YSBwZXJsdSBtb2RpZmlrYXNpIGRhdGEgYG10Y2Fyc2AgeWFuZyBzdWRhaCBhZGEgZGVuZ2FuIG1lbWJ1YXQgc2VidWFoIGtvbG9tIGJhcnUgYmVyaXNpIG5hbWEgbW9kZWwga2VuZGFyYWFuIHBhZGEgYHJvd25hbWVzYCBkYXJpIGBtdGNhcnNgLg0KDQpgYGB7cn0NCm1jYXJzIDwtIG10Y2FycyAlPiUgDQogIG11dGF0ZShtb2RlbCA9IHJvd25hbWVzKG10Y2FycykpICU+JSANCiAgc2VsZWN0KG1vZGVsLCBldmVyeXRoaW5nKCkpDQoNCmhlYWQobWNhcnMpDQpgYGANCg0KRnVuZ3NpIGBzZWxlY3QoKWAgZGkga2FzdXMgaW5pIHVudHVrIG1lbmVtcGF0a2FuIHZhcmlhYmxlIGBtb2RlbGAgZGkgcG9zaXNpIHBhbGluZyBraXJpLg0KDQozLiBVbnR1ayBtZW5nYWtzZXMgZ29vZ2xlc2hlZXRzIGB0ZXN0YCB5YW5nIHN1ZGFoIGRpYnVhdCB0YWRpLCBndW5ha2FuIGZ1bmdzaSBgZ3NfdGl0bGUoKWAuDQoNCmBgYHtyfQ0KZ3MgPC0gZ3NfdGl0bGUoInRlc3QiKSANCmBgYA0KDQpNdW5na2luIEFuZGEgYWthbiBkaW1pbnRhIGxvZ2luIGxhZ2kgdW50dWsgZGFwYXQgbWVuZ2Frc2VzIGdvb2dsZXNoZWV0cy4gTG9naW4gbGFoIGRlbmdhbiBha3VuIHlhbmcgc2FtYSBrZXRpa2EgbWVtYnVhdCBnb29nbGVzaGVldHMgYHRlc3RgIHRhZGkuIEZ1bmdzaSBgZ3NfdGl0bGUoKWAgdW50dWsgbWUtcmVnaXN0ZXIgZ29vZ2xlc2hlZXRzIHlhbmcgYWthbiBkaWd1bmFrYW4sIGJ1a2FuIHVudHVrIG1lbWJhY2FueWEga2UgUi4NCg0KNC4gVXBsb2FkIGRhdGEgYG1jYXJzYCB5YW5nIHN1ZGFoIGRpYnVhdCBkZW5nYW4gZnVuZ3NpIGBnc19lZGl0X2NlbGwoKWAuDQoNCmBgYHtyfQ0KZ3NfZWRpdF9jZWxscyhncywgaW5wdXQgPSBtY2FycykNCmBgYA0KDQpTZWthcmFuZyBBbmRhIGRhcGF0IGxpaGF0IGJhaHdhIGdvb2dsZXNoZWV0cyBgdGVzdGAgc3VkYWggYmVyaXNpIGRhdGEuDQoNCkJhaWtsYWghIGtpdGEgc3VkYWggbWVtYmFoYXMgY2FyYSBtZW55aW1wYW4gZGF0YSBkYXJpIFIga2UgZ29vZ2xlc2hlZXRzLg0KDQojIFJlYWQgRGF0YSBGcm9tIEdvb2dsZWhzZWV0cw0KDQpNZW1iYWNhIGF0YXUgaW1wb3J0IGRhdGEgZGFyaSBnb29nbGVzaGVldHMga2UgUiBzYW5nYXQgbXVkYWguDQoNCjEuIFJlZ2lzdGVyIGdvb2dsZXNoZWV0cyB5YW5nIGFrYW4gZGlndW5ha2FuIGJlcmRhc2Fya2FuIG5hbWFueWEgZGkgZ29vZ2xlIHNwcmVhZHNoZWV0LiBLaXRhIGFrYW4gbWVuZ2d1bmFrYW4gZ29vZ2xlc2hlZXRzIGRlbmdhbiBuYW1hIGB0ZXN0YCB5YW5nIHRhZGkgZGlidWF0Lg0KDQpgYGB7cn0NCmdzIDwtIGdzX3RpdGxlKCJ0ZXN0IikgDQpgYGANCg0KS2VtdWRpYW4gc2V0ZWxhaCBiZXJoYXNpbCBtYWthIGtpdGEgYmlzYSBpbXBvcnQga2UgUiBtZW5qYWRpIGRhdGEuZnJhbWUgZGVuZ2FuIGZ1bmdzaSBgZ3NfcmVhZCgpYC4NCg0KYGBge3J9DQptY2FyczIgPC0gZ3NfcmVhZChncykNCmBgYA0KDQpBbmRhIHN1ZGFoIGJlcmhhc2lsIG1lbWJhY2EgZGF0YSBkYXJpIGdvb2dsZXNoZWV0cyBtZW5qYWRpIGRhdGEuZnJhbWUuIERhdGEgZGFyaSBnb29nbGVzaGVldHMgYHRlc3RgIGRpYmFjYSBkZW5nYW4gbWVuLWRvd25sb2FkLW55YSB0ZXJsZWJpaCBkYWh1bHUgZGVuZ2FuIHVrdXJhbiA4NzAgQnl0ZSBtZW5qYWRpIGRhdGEuZnJhbWUgZGkgUi4NCg0KYGBge3J9DQpoZWFkKG1jYXJzMikNCmBgYA0KDQpTZWxhbmp1dG55YSBBbmRhIGRhcGF0IG1lbGFrdWthbiBwcm9zZXMgYW5hbGlzaXMgYmVyaWt1dG55YSBzZXBlcnRpIHBhZGEgZGF0YS5mcmFtZS4NCg==