R !!!across() https://datascience-blog.com/2020/06/02/202427 ヘルパー関数 starts_with() where()