Как устранить ошибку «Атрибут класса в столбце 1 разных элементов не совпадает» в R

dput, который вы предоставили dt.tidied[[142]], был неполным, поэтому я объясню, что может произойти, на примере. Предположим, что ваши таблицы данных d1 и d2 выглядят так:

library(lubridate)

d1 = structure(
  list(V1 = c(NA, NA, NA),
       V2 = c("SRad(SRAD)","Temp [?C] (TT)", "Temp QCode (TTC)")),
  row.names = c(NA, -3L),
  class = c("data.table", "data.frame")
)

d2 = structure(
  list(V1 = c(NA, NA, NA),
       V2 = c(956.902, 961.01, 965.114)),
  row.names = c(NA, -44615L),
  class = c("data.table", "data.frame")
)

Мы создадим список для хранения этих двух data.tables и сохраним их в элементах 1 и 2 списка:

dt.tidied.working <- vector("list", length = 2)

dt.tidied.working[[1]] <- d1
dt.tidied.working[[2]] <- d2

Теперь мы можем проверить атрибут класса столбца 1 для каждого элемента списка:

> class(dt.tidied.working[[1]]$V1)
[1] "logical"

> class(dt.tidied.working[[2]]$V1)
[1] "logical"

Итак, мы видим, что в этом очень простом примере оба столбца имеют один и тот же класс, logical, поэтому, когда мы используем rbindlist, мы не получим ошибку, которую вы получаете.

merged <- rbindlist(dt.tidied.working, fill = TRUE, use.names = TRUE)

 V1               V2
1: NA       SRad(SRAD)
2: NA   Temp [?C] (TT)
3: NA Temp QCode (TTC)
4: NA          956.902
5: NA           961.01
6: NA          965.114

Теперь давайте изменим атрибут класса для второй таблицы данных на то, что, как я думаю, может содержать ваша полная таблица данных, основываясь на ваших комментариях:

## not working example
d1 = structure(
  list(V1 = c(NA, NA, NA),
       V2 = c("SRad(SRAD)","Temp [?C] (TT)", "Temp QCode (TTC)")),
  row.names = c(NA, -3L),
  class = c("data.table", "data.frame")
)

d2 = structure(
  list(V1 = ymd_hms(c("2004-08-01T00:00:00","2004-08-02T00:00:00","2004-08-03T00:00:00")),
       V2 = c(956.902, 961.01, 965.114)),
  row.names = c(NA, -44615L),
  class = c("data.table", "data.frame")
)

dt.tidied.not.working <- vector("list", length = 2)

dt.tidied.not.working[[1]] <- d1
dt.tidied.not.working[[2]] <- d2

Теперь мы снова проверим атрибуты класса, как в предыдущем примере, и вы увидите, что два столбца теперь имеют разные атрибуты, и когда мы попытаемся rbind.list, вы получите ту же ошибку.

> class(dt.tidied.not.working[[1]]$V1)
[1] "logical"
> class(dt.tidied.not.working[[2]]$V1)
[1] "POSIXct" "POSIXt"

> merged <- rbindlist(dt.tidied.not.working, fill = TRUE, use.names = TRUE)
Error in rbindlist(dt.tidied.not.working, fill = TRUE, use.names = TRUE) : 
  Class attribute on column 1 of item 2 does not match with column 1 of item 1.

Возможное решение

Основываясь на вашем выводе dt.tidied[[23]], кажется, что у вас есть значения NA там, где должны быть значения ymd_hms. Это может быть проблемой, с которой вы столкнулись. Если это так, то вы можете проверить элементы списка dt, который содержит файлы, которые вы читаете, чтобы увидеть, какие файлы имеют NA в столбце V1. Если это действительно проблема, вам нужно будет выяснить, что делать с этими наблюдениями (удалить их или исправить, назначив значения даты/времени).

Кроме того, вывод d1=dput(dt.tidied[[142]]), который вы предоставили в своем вопросе, является неполным, поскольку вы не включили structure(... так же, как для d1=dput(dt.tidied[[23]]). Пожалуйста, предоставьте полную и точную информацию, чтобы нам было легче вам помочь.

Если вы не хотите проверять каждый элемент вашего списка dt, вы можете использовать функцию rbind.fill из библиотеки plyr:

library(plyr)

dt.tidied.not.working <- lapply(dt.tidied.not.working, function(x) as.data.frame(x))
merged <- plyr::rbind.fill(dt.tidied.not.working)

> merged
         V1               V2
1        NA       SRad(SRAD)
2        NA   Temp [?C] (TT)
3        NA Temp QCode (TTC)
4 1.091e+09          956.902
5 1.091e+09           961.01
6 1.091e+09          965.114