Незначительное дополнение к ответу neilfws.Эта функция-обертка отлично подходит для того, чтобы помочь ответить на вопросы о стековом потоке, когда спрашивающий поместил необработанные данные в свой вопрос, а не предоставил фрейм данных.
textToTable <- function(text, ...)
{
dfr <- read.table(tc <- textConnection(text), ...)
close(tc)
dfr
}
При использовании, например
textToTable("first,second\nthird,fourth\n", sep = ",")