需要将逗号分开的值转换为R数据框架

Question

我有一个看起来像这样的数据文件（TXT文件）： 输入：aviles.txt 控制0.53、0.36、0.20，-0.37，-0.60，-0.64，-0.68，-1.27 膝盖0.73、0.31、0.03，-0.29，-0.56，-0.96，-1.61 眼睛-0.78，-0.86，-1.35，-1.48，-1.52，-2.04，-2.83 注意：每行的第一个值之后没有逗号。

数据框中的预期输出： 控制膝盖的眼睛 0.53 0.73 -0.78 0.36 0.31 -0.86 0.2 0.03 -1.35 -0.37 -0.29 -1.48 -0.6 -0.56 -1.52 -0.64 -0.96 -2.04 -0.68 -1.61 -2.83 -1.27

如何使用R进行操作？

Answer 1

我们可以使用.txt使用readlines读取文件，然后使用read.csv在删除初始单词以读取为data.frame。定界符，，t ranspose并设置列名称，并使用字符词提取的

lines <- readLines('trials.txt')
out <- setNames(as.data.frame(t(read.csv(text=sub("\\S+\\s+", "", lines), 
     header = FALSE))), sub("^(\\S+).*", "\\1", lines) )
row.names(out) <- NULL

- 输出

> out
  Control Knees  Eyes
1    0.53  0.73 -0.78
2    0.36  0.31 -0.86
3    0.20  0.03 -1.35
4   -0.37 -0.29 -1.48
5   -0.60 -0.56 -1.52
6   -0.64 -0.96 -2.04
7   -0.68 -1.61 -2.83
8   -1.27    NA    NA

---

或稍微更容易的选项是在上创建，第一个空间，使用read.csv读取

out <- read.csv(text = sub("\\s+", ",", lines), header = FALSE)
out <- setNames(as.data.frame(t(out[-1])), out[[1]])
row.names(out) <- NULL