dat7<-map_dfr(
  list.files(
   here("INSPECTIONDATA","反応検査印刷データ"), #反応検査データが格納されているフォルダを指定
    pattern = "13\\\\.csv$", #抽出したいcsvファイルを指定、「11」は単純反応を示す
    full.names = TRUE,
    recursive = TRUE),　#full.names=はTRUEに設定することで相対ファイルパスになる、FALSEにするとファイル名だけになるので失敗する
  ~read_csv(.x, #読み込むための関数
            col_names = FALSE,#先頭行に項目名が含まれてないので、col_names=FALSEとする
            col_types = cols("X1" = col_character(),
                             "X2" = col_character()),
#識別番号に0000や0001と入力していたりすると、文字データとして認識されてエラーを起こすのでcol_character()に指定しておく
            locale = locale(encoding = "shift-jis")) #文字化け対策として設定
)

steering<- c("測定日時","ID","名前","年齢","性別","コース番号","操作の速さランク同年代比","操作の正確性ランク","適応性ランク同年代比","左右バランス偏りランク同年代比","操作順応ランク同年代比","操作の速さランク30to59比","操作の正確性ランク","適応性ランク30to59比","左右バランス偏りランク30to59比","操作順応ランク30to59比","反応動作平均時間","操作正確性パイロン車線進入と非逸脱回数%","適応性15回達成までの失敗回数","左右車線偏向時間比率%","適応性課題前後半時間差","前後半パイロン表示レーン番号1","前後半反応時間1","前後半パイロン表示レーン番号2","前後半反応時間2","前後半パイロン表示レーン番号3","前後半反応時間3","前後半パイロン表示レーン番号4","前後半反応時間4","前後半パイロン表示レーン番号5","前後半反応時間5","前後半パイロン表示レーン番号6","前後半反応時間6","前後半パイロン表示レーン番号7","前後半反応時間7","前後半パイロン表示レーン番号8","前後半反応時間8","前後半パイロン表示レーン番号9","前後半反応時間9","前後半パイロン表示レーン番号10","前後半反応時間10","前後半パイロン表示レーン番号11","前後半反応時間11","前後半パイロン表示レーン番号12","前後半反応時間12","前後半パイロン表示レーン番号13","前後半反応時間13","前後半パイロン表示レーン番号14","前後半反応時間14","前後半パイロン表示レーン番号15","前後半反応時間15","前後半パイロン表示レーン番号16","前後半反応時間16","前後半パイロン表示レーン番号17","前後半反応時間17","前後半パイロン表示レーン番号18","前後半反応時間18","前後半パイロン表示レーン番号19","前後半反応時間19","前後半パイロン表示レーン番号20","前後半反応時間20","前後半パイロン表示レーン番号21","前後半反応時間21","前後半パイロン表示レーン番号22","前後半反応時間22","前後半パイロン表示レーン番号23","前後半反応時間23","前後半パイロン表示レーン番号24","前後半反応時間24","前後半パイロン表示レーン番号25","前後半反応時間25","前後半パイロン表示レーン番号26","前後半反応時間26","前後半パイロン表示レーン番号27","前後半反応時間27","前後半パイロン表示レーン番号28","前後半反応時間28","前後半パイロン表示レーン番号29","前後半反応時間29","前後半パイロン表示レーン番号30","前後半反応時間30","前後半パイロン表示レーン番号31","前後半反応時間31","前後半パイロン表示レーン番号32","前後半反応時間32","課題前半で右1レーン移動した試行回数","課題前半で右2レーン移動した試行回数","課題前半で左1レーン移動した試行回数","課題前半で左2レーン移動した試行回数","課題前半で右1レーン移動した成功回数","課題前半で右2レーン移動した成功回数","課題前半で左1レーン移動した成功回数","課題前半で左2レーン移動した成功回数","課題前半で右1レーン移動した平均時間","課題前半で右2レーン移動した平均時間", "課題前半で左1レーン移動した平均時間","課題前半で左2レーン移動した平均時間","課題前半のレーン移動反応時間平均","課題前半の右1レーン移動反応時間SD","課題前半の右2レーン移動反応時間SD", "課題前半の左1レーン移動反応時間SD","課題前半の左2レーン移動反応時間SD","課題前半のレーン移動反応時間SD","課題中盤で右1レーン移動した試行回数","課題中盤で右2レーン移動した試行回数","課題中盤で左1レーン移動した試行回数","課題中盤で左2レーン移動した試行回数","課題中盤で右1レーン移動した成功回数","課題中盤で右2レーン移動した成功回数","課題中盤で左1レーン移動した成功回数","課題中盤で左2レーン移動した成功回数","課題中盤で右1レーン移動した平均時間","課題中盤で右2レーン移動した平均時間","課題中盤で左1レーン移動した平均時間","課題中盤で左2レーン移動した平均時間","課題中盤のレーン移動反応時間平均","課題中盤の右1レーン移動反応時間SD","課題中盤の右2レーン移動反応時間SD","課題中盤の左1レーン移動反応時間SD","課題中盤の左2レーン移動反応時間SD","課題中盤のレーン移動反応時間SD","課題後半で右1レーン移動した試行回数","課題後半で右2レーン移動した試行回数","課題後半で左1レーン移動した試行回数","課題後半で左2レーン移動した試行回数","課題後半で右1レーン移動した成功回数","課題後半で右2レーン移動した成功回数","課題後半で左1レーン移動した成功回数","課題後半で左2レーン移動した成功回数","課題後半で右1レーン移動した平均時間","課題後半で右2レーン移動した平均時間","課題後半で左1レーン移動した平均時間","課題後半で左2レーン移動した平均時間","課題後半のレーン移動反応時間平均","課題後半の右1レーン移動反応時間SD","課題後半の右2レーン移動反応時間SD","課題後半の左1レーン移動反応時間SD","課題後半の左2レーン移動反応時間SD","課題後半のレーン移動反応時間SD","適応性課題前後半時間差重複","中盤パイロン表示レーン番号1","中盤反応時間1","中盤パイロン表示レーン番号2","中盤反応時間2","中盤パイロン表示レーン番号3","中盤反応時間3","中盤パイロン表示レーン番号4","中盤反応時間4","検査設定速度")

colnames(dat7)<-steering