data <- read.table('hackr.txt',header = T, sep =';', skip=22, stringsAsFactors = FALSE)
# Optional: cn <- colnames(data)
tmp <- as.data.frame(stringr::str_split_fixed(data[,1], "\t",n=Inf))[2:nrow(data),]
Я также могу очистить (удалить) некоторые ненужные столбцы для вас:
for (f in names(tmp)) {
if (length(unique(tmp[[f]])) == 1) {
cat(f, "is constant. I am deleting it.\n"); tmp[[f]] <- NULL
}}
head(tmp)
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11
2018-05-28 20:38:34 00:00:29.9 32.1 32.1 -.- -.- -.- -.-
2018-05-28 20:38:34 00:00:29.8 32.7 32.4 -.- -.- -.- -.-
2018-05-28 20:38:34 00:00:29.7 31.9 32.2 -.- -.- -.- -.-
2018-05-28 20:38:34 00:00:29.6 34.9 33.1 -.- -.- -.- -.-
2018-05-28 20:38:34 00:00:29.5 70.6 63.6 -.- -.- -.- -.-
2018-05-28 20:38:34 00:00:29.4 70.4 65.7 -.- -.- -.- -.-
Если вы хотите сохранить исходные заголовки, просто запустите необязательную (закомментированную) строку и проанализируйте их с помощью логики того же типа. У них другой разделитель, чем у остальной части вашего стола.