将不同大小的行转换为列

Question

我正在读取一个包含许多不同行的数据文件,所有行都可以有不同的长度,如下所示:

dataFile <- read.table("file.txt", as.is=TRUE);

行可以如下:

1 5 2 6 2 1
2 6 24
2 6 1 5 2 7 982 24 6
25 2

我需要将行转换为列.然后,我将使用这样的小提琴情节列:

names(dataCol)[1] <- "x";
jpeg("violinplot.jpg", width = 1000, height = 1000);
do.call(vioplot,c(dataCol,))
dev.off()

我假设任何列的空字符串/占位符都会比具有最大条目数的列具有更少的条目.怎么做到呢？

Answer 1

使用fill = TRUE参数read.table.然后将行更改为列,用于t转置.使用您的数据看起来像......

df <- read.table( text = "1 5 2 6 2 1
2 6 24
2 6 1 5 2 7 982 24 6
25 2
" , header = FALSE , fill = TRUE )

df
#  V1 V2 V3 V4 V5 V6  V7 V8 V9
#1  1  5  2  6  2  1  NA NA NA
#2  2  6 24 NA NA NA  NA NA NA
#3  2  6  1  5  2  7 982 24  6
#4 25  2 NA NA NA NA  NA NA NA

t(df)
#   [,1] [,2] [,3] [,4]
#V1    1    2    2   25
#V2    5    6    6    2
#V3    2   24    1   NA
#V4    6   NA    5   NA
#V5    2   NA    2   NA
#V6    1   NA    7   NA
#V7   NA   NA  982   NA
#V8   NA   NA   24   NA
#V9   NA   NA    6   NA