Как связать строки с целым числом и символом - PullRequest
Новая
       9

Как связать строки с целым числом и символом

0 голосов
/ 15 ноября 2018

Я хотел бы связать все свои файлы вместе, я уже использовал этот код для других файлов, и он работал хорошо, теперь у меня проблема с целым числом и символом. Вот код: 

library(tidyverse)
library(dplyr)

read_pvt_file2 <- function(filename){
  print(filename)
  subject_id <- substr(basename(filename), 1, 8)
  data <- read_csv(filename)
  colnames(data) <- c("Nb", "RawTime",  "reSYS",    "reDIA",    "Physiocal",     
  "Time",   "Score")

  data$Subject <- subject_id
  data
  }


all_csv_files_in_dir <- function(dir){
   list.files(dir, pattern = "\\.csv$", full.names = TRUE, recursive = TRUE)
 }


 df_all <- bind_rows(map(all_csv_files_in_dir("F:/Study/Dawn simulation 
light/Analysis/Hemodynamics/Labview Done BP files"), read_pvt_file2))

Но вот ошибка, которую я получил: 

Error in bind_rows_(x, .id) : 
  Column `Score` can't be converted from integer to character

Вы знаете, как бороться с этой ошибкой? Спасибо.

...