Блог

Я пытаюсь импортировать несколько файлов .db3 и повторно связать их вместе для дальнейшего анализа. У меня нет проблем с импортом одного файла .db3, но мой rbind не будет работать, несмотря на то, что он отлично работает для файлов .csv. Где я ошибся?

 df <- c()
for (x in list.files(pattern="*.db3")){
  sqlite <- dbDriver("SQLite")
  mydb <- dbConnect(sqlite, x)
  dbListTables(mydb)
  results <- dbSendQuery(mydb, "SELECT * FROM gps_data")
  data = fetch(results, n = -1)
  data$Label <- factor(x)
  data <- rbind(df, data)
}
  

Любая помощь, которую вы можете предложить, была бы отличной!

Давайте внимательно рассмотрим этот rbind вызов в конце вашего цикла:

 df <- c()
for (x in list.files(pattern="*.db3")){
    sqlite <- dbDriver("SQLite")
    mydb <- dbConnect(sqlite, x)
    dbListTables(mydb)
    results <- dbSendQuery(mydb, "SELECT * FROM gps_data")
    data = fetch(results, n = -1)
    data$Label <- factor(x)
    data <- rbind(df, data)
}
  

Вы создали объект df , затем вы привязываете data его к концу и используете его для переопределения существующего data (примечание df не изменилось). Отлично. Теперь ваш цикл начинается снова, создавая новый data объект и привязывая его к …. df . Doh! Это простая ошибка, но вы связываете вещи в неправильном порядке. Попробуйте изменить эту последнюю строку на:

 df <- rbind( df, data )
  

и посмотрите, как это происходит.

То, что вы будете делать по-другому, это перезаписывать df снова и снова, увеличивая его каждый раз. Когда вы перезаписывали data , вы возвращались и воссоздавали его заново, отбрасывая то, что вы только что сделали.