Как отобразить кадр данных с разделителями в R?
У меня есть датафрейм, где некоторые столбцы содержат уровни с пробелами. Когда я вызываю фрейм данных и копирую, вставляю результат в read.table(text="")
это не работает, потому что в разных строках неравное количество пробелов. Итак, как сделать чистое отображение кадра данных, чтобы я мог скопировать, вставить его в read.table, указав разделитель, чтобы я мог быстро воспроизвести воспроизводимый пример? Также как удалить автоматическую нумерацию (1,2,3,...)?
> tdat
uL Intensity sample
1 6.0 29355.00 PCAM MCH LOW-atp,E1E2,UbK48
2 4.0 36034.00 PCAM MCH LOW-atp,E1E2,UbK48
3 2.0 42571.00 PCAM MCH LOW-atp,E1E2,UbK48
4 1.0 62325.00 PCAM MCH LOW-atp,E1E2,UbK48
5 0.5 79505.00 PCAM MCH LOW-atp,E1E2,UbK48
6 25.0 25190.00 MCH Mild
7 20.0 19721.50 MCH Mild
В этом кадре данных у меня есть 3 столбца, я бы хотел, чтобы R отображал разделитель между каждым столбцом, чтобы я мог легко использовать read.table.
3 ответа
Похоже, ваша главная задача - сделать воспроизводимый пример, поэтому в свете этого есть пара решений, которые приходят на ум.
Первый заключается в использовании write.table
:
> write.table(iris, row.names=F)
"Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width" "Species"
5.1 3.5 1.4 0.2 "setosa"
4.9 3 1.4 0.2 "setosa"
4.7 3.2 1.3 0.2 "setosa"
Второй заключается в использовании dput
:
> dput(iris[1:2, ])
structure(list(Sepal.Length = c(5.1, 4.9), Sepal.Width = c(3.5, 3), Petal.Length = c(1.4, 1.4), Petal.Width = c(0.2, 0.2), Species = structure(c(1L, 1L), .Label = c("setosa", "versicolor", "virginica"), class = "factor")), .Names = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species"), row.names = 1:2, class = "data.frame")
Кто-то в Stackru может скопировать этот вывод и присвоить его имени:
> my.data <- structure(list(Sepal.Length = c(5.1, 4.9), Sepal.Width = c(3.5, 3), Petal.Length = c(1.4, 1.4), Petal.Width = c(0.2, 0.2), Species = structure(c(1L, 1L), .Label = c("setosa", "versicolor", "virginica"), class = "factor")), .Names = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species"), row.names = 1:2, class = "data.frame")
> my.data
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
Вы, вероятно, должны взглянуть на этот вопрос: как сделать отличный воспроизводимый пример R?
Лучший ответ на этот вопрос, который, похоже, касается копирования / вставки объекта R в буфер обмена, заключается в следующем:
dput(tdat, file="clipboard")
При этом буфер обмена используется в качестве файлового соединения, что сохраняет любые ручные копии / вставки.
Этот вопрос не имеет особого смысла, так как в настоящее время он сформулирован - или, по крайней мере, я не могу придумать сценарий использования того, что вы описываете.
Тем не менее, вот обходной путь: Использование print
с quote = TRUE
, С твоим "тдатом"
> print(tdat, quote = TRUE)
uL Intensity sample
1 " 6.0" "29355.0" "PCAM MCH LOW-atp,E1E2,UbK48"
2 " 4.0" "36034.0" "PCAM MCH LOW-atp,E1E2,UbK48"
3 " 2.0" "42571.0" "PCAM MCH LOW-atp,E1E2,UbK48"
4 " 1.0" "62325.0" "PCAM MCH LOW-atp,E1E2,UbK48"
5 " 0.5" "79505.0" "PCAM MCH LOW-atp,E1E2,UbK48"
6 "25.0" "25190.0" "MCH Mild"
7 "20.0" "19721.5" "MCH Mild"
Это может быть прочитано, как вы описываете:
## Note the single quote below
read.table(text = '<<the stuff you copied from print(tdat, quote = TRUE)>>', ...)
Все рекомендации использовать dput()
и так далее, скорее всего, направление, которое вы должны смотреть.