将奇怪的data.frame转换为R中的矩阵

Question

I have the following data.frame and convert into matrix object after deleting each delimiter.

> data
  ID        COL1        COL2        COL3        COL4         COL5
1  1     1,2,3,4     5,6,7,8  9,10,11,12 13,14,15,16  17,18,19,20
2  2 11,12,13,14 15,16,17,18 19,20,21,22 23,24,25,26  27,28,29,30
3  3 21,22,23,24 25,26,27,28 29,30,31,32 33,34,35,36  37,38,39,40
4  4 31,32,33,34 35,36,37,38 39,40,41,42 43,44,45,46  47,48,49,50
5  5 41,42,43,44 45,46,47,48 49,50,51,52 53,54,55,56  57,58,59,60
6  6 51,52,53,54 55,56,57,58 59,60,61,62 63,64,65,66  67,68,69,70
7  7 61,62,63,64 65,66,67,68 69,70,71,72 73,74,75,76  77,78,79,80
8  8 71,72,73,74 75,76,77,78 79,80,81,82 83,84,85,86  87,88,89,90
9  9 81,82,83,84 85,86,87,88 89,90,91,92 93,94,95,96 97,98,99,100

===>

> data.new
  [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20]  [,21]
1   1    1    2    3    4    5    6    7    8     9    10    11    12    13    14    15    16    17    18    19     20
2   2   11   12   13   14   15   16   17   18    19    20    21    22    23    24    25    26    27    28    29     30
3   3   21   22   23   24   25   26   27   28    29    30    31    32    33    34    35    36    37    38    39     40
4   4   31   32   33   34   35   36   37   38    39    40    41    42    43    44    45    46    47    48    49     50
5   5   41   42   43   44   45   46   47   48    49    50    51    52    53    54    55    56    57    58    59     60
6   6   51   52   53   54   55   56   57   58    59    60    61    62    63    64    65    66    67    68    69     70
7   7   61   62   63   64   65   66   67   68    69    70    71    72    73    74    75    76    77    78    79     80
8   8   71   72   73   74   75   76   77   78    79    80    81    82    83    84    85    86    87    88    89     90
9   9   81   82   83   84   85   86   87   88    89    90    91    92    93    94    95    96    97    98    99    100

To do this, what functions of apply() should I apply?

Thanks in advance Sean

Answer 1

You don't really need apply at all. You can re-read the data. Try any of these three possibilities.

In base R, (1) you could paste the columns together by row then read that text with read.csv

dc <- do.call(paste, c(data, list(sep = ",")))
unname(as.matrix(read.csv(text = dc, header = FALSE)))

Or, (2) using scan directly

matrix(scan(text = dc, what = integer(), sep = ","), length(dc), byrow = TRUE)

Or, (3) you could use cSplit from splitstackshape

library(splitstackshape)
unname(as.matrix(cSplit(data, 2:6)))

Answer 2

A solution based on apply :

t(apply(data, 1, function(x) as.numeric(unlist(strsplit(x, ",")))))

How it works?

The function apply is used to apply a function to each row of the data frame. The character vectors are split at the commas ( strsplit ). This returns a list. This list is converted to a vector with unlist . Next, as.numeric is used to transform the character vector to a numeric vector. The function apply returns a matrix in which a column corresponds to a row in the original data frame. Finally, the function t is used to transpose the matrix.