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)

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

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