在 R 中硬编码数据框

Question

我有一个data.frame对象，例如数据集'iris'。我想在脚本中加入如下内容：

Sepal.Length_2 <- c(5.1, 4.9, 4.7, 4.6, ...)
Sepal.Width_2 <- c(3.5, 3.0, 3.2, 3.1, ...)
Petal.Length_2 <- c(1.4, 1.4, 1.3, 1.5, ...)
Petal.Width_2 <- c(0.2, 0.2, 0.2, 0.2, ...)
Species_2 <- c(setosa,setosa, setosa, setosa, ...)

iris2 <- data.frame(Sepal.Length_2, Sepal.Width_2, Petal.Length_2, Petal.Width_2)

（我想要实现类似目标的原因是因为我正在构建一个闪亮的应用程序，它将在引入自己的数据之前使用数据作为预定义示例）。

我发现了一种使用以下函数的有趣方法：

library(stringr)
str_c(iris$Sepal.Length, sep = "", collapse = ",")

哪个returns:

5.1,4.9,4.7,4.6,5,5.4,4.6,5,4.4,4.9,5.4,4.8,4.8,4.3,5.8,5.7,5.4,5.1,5.7,5.1,5.4,5.1,4.6,5.1,4.8,5,5,5.2,5.2,4.7,4.8,5.4,5.2,5.5,4.9,5,5.5,4.9,4.4,5.1,5,4.5,4.4,5,5.1,4.8,5.1,4.6,5.3,5,7,6.4,6.9,5.5,6.5,5.7,6.3,4.9,6.6,5.2,5,5.9,6,6.1,5.6,6.7,5.6,5.8,6.2,5.6,5.9,6.1,6.3,6.1,6.4,6.6,6.8,6.7,6,5.7,5.5,5.5,5.8,6,5.4,6,6.7,6.3,5.6,5.5,5.5,6.1,5.8,5,5.6,5.7,5.7,6.2,5.1,5.7,6.3,5.8,7.1,6.3,6.5,7.6,4.9,7.3,6.7,7.2,6.5,6.4,6.8,5.7,5.8,6.4,6.5,7.7,7.7,6,6.9,5.6,7.7,6.3,6.7,7.2,6.2,6.1,6.4,7.2,7.4,7.9,6.4,6.3,6.1,7.7,6.3,6.4,6,6.9,6.7,6.9,5.8,6.8,6.7,6.7,6.3,6.5,6.2,5.9

所以使用这种方法会更容易。但问题出在字符向量上，因为它们必须在“”之间定义。

那么，是否有函数、方法或其他东西可以从数据框对象中获取准备好在脚本中进行硬编码的数据？

Answer 1

我们可以使用dput创建一个可重现的结构

dput(iris)

在 R 中硬编码数据框

Hardcode a data frame in R

r

dataframe

hardcode