#黒松内sup | Explore Tumblr posts and blogs

8tak4 · 7 years ago

Text

R で Google スプレッドシートを読む

R で CSV を読むなら readr、Excel ファイルを読むなら readxl が最近のトレンド1だが、私は普段から G Suite を使うことが多く、Google スプレッドシートで済ませることが多い。R でスプレッドシートを直接読み込めないかとググったところ、googlesheets というパッケージが使えるそうなので、その使い方を備忘録としてここにまとめる。

インストール

install.packages('googlesheets')

認証

library(googlesheets) gs_auth()

を実行して出力された URL をブラウザのアドレスバーにコピペして移動する。

以下のようにアクセス許可を求められるので、"許可" を選択。

ん? tidyverse-googlesheets??

どうやら tidyverse の googlesheets リポジトリは存在するようだが、tidyverse パッケージには（まだ）組み込まれておらず、install.packages() ではこちらのリポジトリをもとにインストールされる。

さて、認証が済んだらコードが発行されるので、これを R のコンソールにコピペする。

以上で R での認証が完了する。

基本的な使い方

dplyr と合わせると効率よく処理できる。

スプレッドシートの一覧を取得する

gs_ls() 関数を使用する。tibble 形式でリストを取得できる（見せられないスプレッドシートが多いので、出力は改変してある）。

> gs_ls() # A tibble: 1 x 10 sheet_title author perm version <chr> <chr> <chr> <chr> 1 ラーメン二郎訪問記 XXXXXXX rw old # ... with 6 more variables: updated <dttm>, sheet_key <chr>, ws_feed <chr>, # alternate <chr>, self <chr>, alt_key <chr>

スプレッドシートを選択する

gs_title() 関数を使用する。引数にスプレッドシート名を与える。

> gs_title('ラーメン二郎訪問記') Sheet successfully identified: "ラーメン二郎訪問記" Spreadsheet title: ラーメン二郎訪問記 Spreadsheet author: XXXXXXX Date of googlesheets registration: 2017-06-14 18:56:14 GMT Date of last spreadsheet update: 2017-06-14 18:32:26 GMT visibility: private permissions: rw version: old Contains 1 worksheets: (Title): (Nominal worksheet extent as rows x columns) シート1: 1000 x 26 Key: ... Alternate key: ... Browser URL: https://docs.google.com/spreadsheets/d/.../

ちなみに、ラーメン二郎訪問記というスプレッドシートの内容は以下のとおり。もちろんダミーデータである。

スプレッドシートの 1 つのワークシートの内容を取得する

gs_read() 関数を使用する。引数にはワークシートの名前もしくは値（左から数えて1, 2, ...）を与える。

> library(dplyr) > gap <- gs_title('ラーメン二郎訪問記') %>% gs_read(ws = 1) Sheet successfully identified: "ラーメン二郎訪問記" Accessing worksheet titled 'シート1'. Downloading: 250 B Parsed with column specification: cols( 日付 = col_date(format = ""), 店舗 = col_character(), 注文内容 = col_character(), 評価 = col_double(), コメント = col_character() ) > gap # A tibble: 4 x 5 日付店舗注文内容評価コメント <date> <chr> <chr> <dbl> <chr> 1 2017-06-01 松戸駅前小ラーメン 4.0 量が多い 2 2017-06-02 環七一之江汁なし 5.0 いつも通り美味しい 3 2017-06-05 新宿小滝橋通り小ラーメン 4.5 以前よりも美味しくなった気がする 4 2017-06-06 目黒小ラーメン 4.7 ちょうどいい量

例えばセルのフォーマットが日付の場合は date 型に変換してくれたりする。あとはよしなに集計してあげれば OK。

gs_read() の時点で任意のセルのみを取得したい場合は、引数 range にカラム名を含めた範囲を与えてやる。

> gs_title('ラーメン二郎訪問記') %>% gs_read(ws = 1, range = "B1:B5") Sheet successfully identified: "ラーメン二郎訪問記" Accessing worksheet titled 'シート1'. Downloading: 5.6 kB Parsed with column specification: cols( 店舗 = col_character() ) # A tibble: 4 x 1 店舗 <chr> 1 松戸駅前 2 環七一之江 3 新宿小滝橋通り 4 目黒

スプレッドシートをダウンロードしたい

gs_download() 関数を使用する。拡張子を判別して CSV, xlsx, PDF をカレントディレクトリにダウンロードできる。戻り値はファイルのパス。

gs_title("ラーメン二郎訪問記") %>% + gs_download(ws = 1, to = 'jiro.csv')

まとめ

googlesheets パッケージを用いて R から Google スプレッドシートを取得する方法を紹介しました。

参考

googlesheets Basic Usage

要出典 ↩︎

0 notes

sana-sup · 8 years ago

Photo

----------------------------

사나숲 오픈데이 2

SaNa-Sup Open Day 2

씨앗만다라프로젝트

Seed Mandala Project

2017-04-24 월요일 Mon.

10am-3pm

----------------------------

준비물---장갑, 삽, 낫, 씨앗, 음료수, 도시락, 간식, 돗자리등 필요한 것들 持ち物---軍手、ちいさなスコップ、鎌、種、飲み物、お弁当、おやつ、敷物など What to bring— working gloves, small shovel, grass sickle, seeds, drinking water, lunch, snack, picnic mat etc.

----------------------------

원하는 시간에 오셔서 원하는 시간에 가시면 돼요. いつでも来て、いつでも帰れます。 Come and leave anytime.

---------------------------- 사나숲 오픈데이1에 많은 분들이 와주셔서 씨앗, 맛있는 음식들, 미소도 같이 나누고 아름다운 봄날에 희망찬 미래가 있다는 걸 다시 알게 되었어요. 하늘, 해, 비, 흙, 나무, 풀, 돌, 벌레, 새... 여러 존재에게 말없는 감사하면서 계속 새로운 순간이 나타나면서 사라지는 흐름 속에 있다는 걸 온몸으로 느끼고 있어요.

이번에는 평일날 월요일에 사나숲 오픈데이2를 열릴 예정이에요. 화요일 오후부터 비소식이 있어서 수도없는 사나숲에서 씨앗뿌리기에 좋은 날이 될 것 같아요.

제주도 남서쪽에 단산과 산방산이란 라인이 아름다운 산들이 있어요.바로 두산 사이에 사나숲을 만들려고 2016년말부터 시작했어요.사나숲은 퍼머컬처 예술공간 프로젝트에요.천천히 숲밭을 만들려고 하는데 올해 2017년은 사나숲이 어떤 곳인지 알아볼려고 실험중이에요. 아무것도 없고 모두 있는 곳이에요.지금은 작은 꽃들이 예쁘게 피고 새들이 봄 노래를 부르고 있어요.

숲밭프로젝트, 해초퇴비프로젝트를 비롯하여 특히 봄에는 씨앗만다라프로젝트를 실행중이라서 이번에 오픈 데이를 마련하고 그 때 와주시는 분들이랑 씨앗을 뿌릴 수 있으면 해요.

저의들이 토종씨앗을 중심으로 모았던 씨앗을 뿌리셔도 되고 뿌리고 싶은 씨앗을 가져오셔도 돼요.

편한 마음을 가지고 봄의 아름다운 시간을 나누러 오세요.미래를 위해서 씨앗 뿌리고 이야기를 나눠요. ----------------------------

The first Open Day was a great experience with so many people from all over Jeju island. We shared seeds, food, drink and smile on a beautiful spring day. I could feel we have hopeful future with the experience. I always try to express my gratitude without words towards sky, Sun, rain, soil, trees, grasses, stones, insects, birds... and I recognize we live in the flow of every moment changing with appearing and disappearing with my whole body.

SaNa-Sup will have the second open day on April 24, Monday. The weather forecast says it will be rainy after Tuesday afternoon, and Monday will be perfect timing for sowing seeds.

SaNa-Sup is a project creating a permaculture and art space in a beautiful landscape between Mt.Tan and Mt.S in Sage-ri, south-west of Jeju island.

We have started some projects such as Forest garden project, Seaweed compost project and Seed mandala project since the end of 2016.

The coming open day is for seeding in spring to observe the land and space through a year 2017 before making a design of SaNa-Sup. We will prepare some seeds, mainly native seeds and you can bring whatever you would like to plant.

Nothing is here, and we have everything.Pretty tiny flowers are blooming, birds are singing spring songs.

It will be great to share time and talk about future. ---------------------------- SaNa-Sup Open Day 1にたくさんの人々がお越しくださり、種まきおいしいもの微笑みを分かち合い、美しい春の日に希望にあふれる未来が存在することを再確認しました。空、太陽、雨、土、木、草、石、虫、鳥….さまざまな存在に言葉にならない感謝を胸に抱き、一瞬一瞬現れては消えてゆく流れの中に生きていることを全身で感じています。

今回は平日の月曜日にSaNa-Sup Open Day 2を開催する予定です。火曜日の午後から雨が降ると予報が出ているので、水道のないSaNa-Supで種まきをするのにちょうどぴったりの日になりそうです。

済州島の南西部に簞山と山房山という稜線の美しい山があります。ふたつの山の真ん中にSaNa-Supを作ろうと2016年末から動きはじめました。SaNa-Supはパーマカルチャーとアートの空間のプロジェクトです。ゆっくりとフォレストガーデンをつくっていこうと、今年2017年はSaNa-Supがどんなところなのか探っていこうと実験中です。

なにもなく、そしてすべてのある場所です。今は小さな花が咲きあふれ鳥たちは春の歌をうたっています。

フォレストガーデンプロジェクト、海藻コンポスト��ロジェクトをはじめ、特に春には種の紋様プロジェクトに取り組んでいるので、今回のオープンデイではいろんな種をまこうと思っています。在来種を中心に用意した種をまいても、まきたい種を持ってきてもいいですね。

わくわくした心とともに春のおだやかな時間を共有しにきてくださいね。未来のために種をまきお話できることを願っています。 ---------------------------- 문의 More details Yangjah 공일공-사오사이-일삼팔삼 zero one zero- four five four two-one three eight three

----------------------------

Homepage

http://sanasupjeju.wixsite.com/sana-sup ---------------------------- 제주도 서귀포시 안덕면 사계리 2947   済州島西帰浦市安徳面沙渓里2947  2947 Sage-ri, Andeok-myeon, Seogwipo-city, Jeju-island, South Korea

----------------------------

지도 map 地図 http://sanasupjeju.wixsite.com/sana-sup/contact

—————————-

버스정류장 “사계리사무소”에서 오른쪽에 산방산을 바라보면서 걸어서 10분 이내에요.

バス停「沙渓里事務所」で降り右手に山房山を眺めながら歩いて10分以内です。

—————————-

주차장이 없는데 LOHAS 펜션 건너 편 청자 주변 갓길에 세우시면 돼요. 자동차 앞에 전화번호를 붙이세요.  

駐車場がないのでLOHASペンションの向かい側の路肩に車を停めてください。車のフロントガラスに携帯番号を貼っておいてくださいね。

---------------------------- 사나숲에 오시는 길 SaNa-Supへの行き方 Access to SaNa-Sup

버스정류장"사계리사무소"에서 내리시고 부동산 골목을 올라가세요.　バス停「沙渓里事務所」で降りて、不動産が角にある道を登っていきます。 

산방산을 오른쪽에 바라보면서 직진하세요.　山房山を右手に眺めながらまっすぐ進みます。 

사거리에서 직진하세요.   四つ角もそのまま直進します。 

LOHAS 펜션 가기 전에 왼쪽 골목으로 들어가세요.( 주차장이 없어서 LOHAS 펜션 건너 편 청자 주변 갓길에 세우시면 돼요. 자동차 앞에 전화번호를 붙이세요.)   LOHASペンションの手前、左手にある小道を入っていきます。（駐車場がないので、LOHASペンションを渡ったところにある休憩所周辺の路肩に駐車するのがいいでしょう。自動車の前に携帯番号を貼りましょう。）

 골목을 나무까지 직진하세요. 小道を木のところまでまっすぐ進みます。 

오른쪽에 보이는 검은 색 지붕 집 건너 편에 사나숲이 있어요. 右手に見える黒い屋根の家の向かい側にSaNa-Supがあります。 

소나무에서 오른쪽으로 가세요. 松の木の三叉路で右手に行きます。 

왼쪽에 사나숲이 보이죠. 左手にSaNa-Supがみえるでしょう～。

#SaNa-Sup #Open day #permaculture #garden #farm #sustainability #Jeju

0 notes