Разбор ascii-art в R

Question

У меня есть некоторые данные, сгенерированные другой программой, в основном в форме ASCII-искусства.

 ----++++++++++++
 5555566667888889
 0246802468024680
 0000000000000000
 ................
 0000000000000001
 0000000000000020
 0000000000000300

Синтаксический анализ этих данных имеет смысл: col1, col2 -, 500.0 -, 520.0 -, 540.0 -, 560.0 +, 580.0 +, 600.0 +, 620.0 +, 640.0 +, 660.0 +, 780.0 +, 800.0 +, 820.0 +, 840.0 +, 860.003 +, 880.02 +, 900.1

Любые советы при написании разбора чего-нибудь такого грязного?

Answer 1

Если это ваши данные

tt <- "----++++++++++++
5555566667888889
0246802468024680
0000000000000000
................
0000000000000001
0000000000000020
0000000000000300"

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

lines <- strsplit(tt, "\n")[[1]]
cells <- t(do.call(rbind, strsplit(lines, "")))
signs <- cells[, 1]
digits <- apply(cells[, -1], 1, paste, collapse="")
data.frame(col1= signs, col2=as.numeric(digits))