如何重塑文本文件?

时间:2017-05-30 09:18:35

标签: r dataframe reshape

我有一个这样的文件,我想重新整形并转换成列:

   fe=read.table("foo.txt")
   > fe
            V1
  1         9
  2        Sd
  3          2
  4       Sd
  5          5
  6       Smn
  7          7
  8        Smn
  9          5
  10      bf
  11         4
  12      bf

 > str(fe)
 'data.frame':   12 obs. of  1 variable:
  $ V1: Factor 

期望的输出:

 Sd 9 2
 Smn 5 7
 bf 5 4

2 个答案:

答案 0 :(得分:3)

另一种选择:

# step 1: create new dataframe
fe2 <- data.frame(id = fe$V1[c(FALSE,TRUE)], 
                  num = as.numeric(as.character(fe$V1[c(TRUE,FALSE)])))

# step 2: reshape into the desired format
fe2$rid <- with(fe2, ave(as.character(id), id, FUN = seq_along))
reshape(fe2, idvar = "id", timevar = "rid", direction = "wide")

返回data.frame:

   id num.1 num.2
1  Sd     9     2
3 Smn     5     7
5  bf     5     4

作为第2步的替代方案,您还可以使用data.table - 包:

# step 2 (alternative): reshape into the desired format
library(data.table) # v1.9.8 or higher is required for the 'rowid'-function
dcast(setDT(fe2), id ~ rowid(id, prefix = 'num.'), value.var = 'num')

这将返回 data.table (这是一个增强的 data.frame ),其结构与基本R解决方案相同。

答案 1 :(得分:2)

我们重新整理专栏&#39; V1&#39;转换为matrix然后转换为data.frame,然后转换为unstack并转置以获得预期的输出

d1 <- as.data.frame(matrix(fe$V1, ncol=2, byrow = TRUE))
d1$V1 <- as.integer(as.character(d1$V1))
res <- t(unstack(d1, V1~V2))   
res
#    [,1] [,2]
#bf     5    4
#Sd     9    2
#Smn    5    7