0

我有一个数据框，其中一些列包含带空格的级别。当我调用数据框并将结果复制粘贴到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。

4

3 回答 3

2

您的主要关注点似乎是制作一个可重复的示例，因此，有鉴于此，我想到了几个解决方案。

首先是使用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")

StackOverflow 上的某个人可以复制此输出并将其分配给一个名称：

> 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 可重现示例？

于 2013-07-02T18:43:37.407 回答
1

这个问题实际上并没有多大意义，因为它目前的措辞 - 或者，至少我真的想不出你所描述的用例。

不过，这里有一个解决方法：使用printwith quote = TRUE。用你的“tdat”

> 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()等很可能是您应该寻找的方向。

于 2013-07-02T18:45:30.630 回答
1

这个问题的最佳答案似乎是关于将 R 对象复制/粘贴到剪贴板是：

dput(tdat, file="clipboard")

这使用剪贴板作为文件连接，可以保存任何手动复制/粘贴。

于 2013-07-02T19:12:03.730 回答