Вопрос:

Как прочитать / импортировать CSV один раз и создать код, чтобы вам не приходилось читать / импортировать снова

r csv

26 просмотра

1 ответ

35 Репутация автора

У меня есть R-скрипт, которым я хотел бы поделиться с людьми, но в настоящее время он зависит от чтения многих отдельных файлов CSV в кадры данных для запуска. Мне интересно, есть ли какой-нибудь быстрый и простой способ прочитать файлы CSV, а затем создать строки кода для создания фрейма данных без необходимости читать внешние файлы в будущем (у меня есть десятки файлов CSV с сотнями записей каждый, но я только хочу поделиться .R файл).

Как пример, у меня в настоящее время есть:

> species <- read.csv("species.csv")
> species
  SpeciesID        ScientificName Mortality
1        11      Acer_platanoides      2.27
2        57 Gleditsia_triacanthos      1.33
3       132         Tilia_cordata      1.33
4         1        Abies_balsamea      3.33

Прочитав базы данных csv один раз, я хотел бы создать код, чтобы мне больше не приходилось читать csv (и чтобы я мог отправлять людям один R-скрипт, а не R-скрипт с десятками других файлов).

Итак, может ли вышесказанное как-то привести к следующему без необходимости выписывать все это вручную? Спасибо.

> species <- data.frame("SpeciesID" = c(11, 57, 132, 1),
+                       "ScientificName" = c("Acer_platanoides", "Gleditsia_triacanthos", "Tilia_cordata", "Abies_balsamea"),
+                       "Mortality" = c(2.27, 1.33, 1.33, 3.34))
> species
  SpeciesID        ScientificName Mortality
1        11      Acer_platanoides      2.27
2        57 Gleditsia_triacanthos      1.33
3       132         Tilia_cordata      1.33
4         1        Abies_balsamea      3.34
Автор: James_S Источник Размещён: 12.06.2019 01:25

Ответы (1)


1 плюс

26 Репутация автора

Решение

Похоже, что вам нужно сделать, чтобы создать воспроизводимый пример . Следование решению Joris Meys dput()делает его довольно простым.

Пример из связанного решения:

> dput(head(iris,4))
structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6), Sepal.Width = c(3.5, 
3, 3.2, 3.1), Petal.Length = c(1.4, 1.4, 1.3, 1.5), Petal.Width = c(0.2, 
0.2, 0.2, 0.2), Species = structure(c(1L, 1L, 1L, 1L), .Label = c("setosa", 
"versicolor", "virginica"), class = "factor")), .Names = c("Sepal.Length", 
"Sepal.Width", "Petal.Length", "Petal.Width", "Species"), row.names = c(NA, 
4L), class = "data.frame")
Автор: A. Korinda Размещён: 12.06.2019 01:34
Вопросы из категории :
32x32