Google Form を作成

https://docs.google.com/forms/d/e/1FAIpQLSc3Wy47u9e7CRcQiuKlcaQ8wbkGi4Z2CHjwkVBrb-n0Bm2rhA/viewform?usp=pp_url

webshot("https://docs.google.com/forms/d/e/1FAIpQLSc3Wy47u9e7CRcQiuKlcaQ8wbkGi4Z2CHjwkVBrb-n0Bm2rhA/viewform?usp=sf_link")

回答を受け取った後、Google Form で「回答をスプレッドシートに表示」を実行します。

R で Google Spreadsheet を読み込み

library(googlesheets4)
gs4_auth()
## ! Using an auto-discovered, cached token.
##   To suppress this message, modify your code or options to clearly consent to
##   the use of a cached token.
##   See gargle's "Non-interactive auth" vignette for more details:
##   <https://gargle.r-lib.org/articles/non-interactive-auth.html>
## ℹ The googlesheets4 package is using a cached token for
##   'baba.yoshihiko@gmail.com'.
dfGoogle <- read_sheet(
  ss = "1Ydt2zlrunjtrnLxtmtw2JgeO88-WXEukAo46p3SLeQQ"
  )
## Auto-refreshing stale OAuth token.
## ✓ Reading from "フレイル(回答)".
## ✓ Range 'フォームの回答 1'.
datatable(dfGoogle)

第4列(フレイル評価基準)にどの項目が選択されたかが格納されています。

dfGoogle[grep("体重減少", dfGoogle$フレイル評価基準), "weightloss"] <- 1
dfGoogle[grep("主観的疲労感", dfGoogle$フレイル評価基準), "exhaustion"] <- 1
dfGoogle[grep("日常生活活動量の減少", dfGoogle$フレイル評価基準), "lowactivity"] <- 1
dfGoogle[grep(" 身体能力(歩行速度)の減弱", dfGoogle$フレイル評価基準), "slowness"] <- 1
dfGoogle[grep("筋力(握力)の低下", dfGoogle$フレイル評価基準), "weakness"] <- 1