Freq in dataframe

You want to use the as.data.frame method for tables, so

ddat <- as.table(ddat)
as.data.frame(ddat)

Time   Dose Group Freq
1  Week 32 Dose 1     A    8
2  Week 52 Dose 1     A   10
3  Week 32 Dose 2     A    7
4  Week 52 Dose 2     A   13
5  Week 32 Dose 3     A    8
6  Week 52 Dose 3     A   15
7  Week 32 Dose 1     B    7
8  Week 52 Dose 1     B    9
9  Week 32 Dose 2     B    6
10 Week 52 Dose 2     B    9
11 Week 32 Dose 3     B    7
12 Week 52 Dose 3     B   10
13 Week 32 Dose 1     C   11
14 Week 52 Dose 1     C   13
15 Week 32 Dose 2     C    7
16 Week 52 Dose 2     C   16
17 Week 32 Dose 3     C    8
18 Week 52 Dose 3     C   16

-pd

Dear R users,

# This is my data:

ddat <- array(c(8,10,7,13,8,15,
             7,9,6,9,7,10,
              11,13,7,16,8,16
              ),
             dim = c(2,3,3),
              dimnames = list(
             Time = c("Week 32","Week 52"),
              Dose = c("Dose 1","Dose 2","Dose 3"),
            Group = c("A","B","C")))
ddat

# and I'd like to have data like that:

as.data.frame(UCBAdmissions)

# I tried with 

as.data.frame(ddat) 

# and this is the result:

as.data.frame(ddat)

       Dose 1.A Dose 2.A Dose 3.A Dose 1.B Dose 2.B Dose 3.B Dose 1.C Dose 2.C Dose 3.C
Week 32        8        7        8        7        6        7       11        7        8
Week 52       10       13       15        9        9       10       13       16       16

Someone could help me ?
Thanks in advance,

M. Tripoli

_________________________

Dott. Massimiliano Tripoli
Ufficio Assessment Europeo - European Assessment Office 
Agenzia Italiana del farmaco - Italian Medicine Agency
Via del Tritone 181 - 00187 Roma
Tel. +39-06-59784643
E-mail: m.tripoli at aifa.gov.it

______________________________________________
R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Peter Dalgaard, Professor,
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Office: A 4.23
Email: pd.mes at cbs.dk  Priv: PDalgd at gmail.com

On Aug 5, 2016, at 4:43 AM, Tripoli Massimiliano <M.Tripoli at aifa.gov.it> wrote:

Dear R users,

# This is my data:

ddat <- array(c(8,10,7,13,8,15,
             7,9,6,9,7,10,
              11,13,7,16,8,16
              ),
             dim = c(2,3,3),
              dimnames = list(
             Time = c("Week 32","Week 52"),
              Dose = c("Dose 1","Dose 2","Dose 3"),
            Group = c("A","B","C")))
ddat

# and I'd like to have data like that:

as.data.frame(UCBAdmissions)

# I tried with 

as.data.frame(ddat) 

# and this is the result:

as.data.frame(ddat)

       Dose 1.A Dose 2.A Dose 3.A Dose 1.B Dose 2.B Dose 3.B Dose 1.C Dose 2.C Dose 3.C
Week 32        8        7        8        7        6        7       11        7        8
Week 52       10       13       15        9        9       10       13       16       16

Someone could help me ?
Thanks in advance,

M. Tripoli

This has to do with method dispatch.

UCBAdmissions is a table:

class(UCBAdmissions)

[1] "table"

ddat is an array as you created it:

class(ddat)

[1] "array"


There is an as.data.frame() method for arrays (as.data.frame.array()) which results in a flattening of the object and this is defined in ?as.data.frame in the Details section:

"Arrays can be converted to data frames. One-dimensional arrays are treated like vectors and two-dimensional arrays like matrices. Arrays with more than two dimensions are converted to matrices by ?flattening? all dimensions after the first and creating suitable column labels."

In the case of UCBAdmissions, as.data.frame.table() is called yielding the alternative result that you observe.

If you want to get the same result from ddat, you can either coerce it to a table first:

as.data.frame(as.table(ddat))

Time   Dose Group Freq
1  Week 32 Dose 1     A    8
2  Week 52 Dose 1     A   10
3  Week 32 Dose 2     A    7
4  Week 52 Dose 2     A   13
5  Week 32 Dose 3     A    8
6  Week 52 Dose 3     A   15
7  Week 32 Dose 1     B    7
8  Week 52 Dose 1     B    9
9  Week 32 Dose 2     B    6
10 Week 52 Dose 2     B    9
11 Week 32 Dose 3     B    7
12 Week 52 Dose 3     B   10
13 Week 32 Dose 1     C   11
14 Week 52 Dose 1     C   13
15 Week 32 Dose 2     C    7
16 Week 52 Dose 2     C   16
17 Week 32 Dose 3     C    8
18 Week 52 Dose 3     C   16

or explicitly call as.data.frame.table():

as.data.frame.table(ddat)

Time   Dose Group Freq
1  Week 32 Dose 1     A    8
2  Week 52 Dose 1     A   10
3  Week 32 Dose 2     A    7
4  Week 52 Dose 2     A   13
5  Week 32 Dose 3     A    8
6  Week 52 Dose 3     A   15
7  Week 32 Dose 1     B    7
8  Week 52 Dose 1     B    9
9  Week 32 Dose 2     B    6
10 Week 52 Dose 2     B    9
11 Week 32 Dose 3     B    7
12 Week 52 Dose 3     B   10
13 Week 32 Dose 1     C   11
14 Week 52 Dose 1     C   13
15 Week 32 Dose 2     C    7
16 Week 52 Dose 2     C   16
17 Week 32 Dose 3     C    8
18 Week 52 Dose 3     C   16

Regards,

Marc Schwartz