Sure.
I have the following command:
sc <- split(x, list(x$Category, x$SubCategory), drop=TRUE)
where x is
x <- read.csv("Sales2007.dat", header=TRUE)
and the first few rows are:
DayOfYear,Quantity,Fraction,Category,SubCategory
1,82,0.0000390392720794458,"(Unknown)","(Unknown)"
2,78,0.0000371349173438631,"(Unknown)","(Unknown)"
3,112,0.0000533219325963163,"(Unknown)","(Unknown)"
4,155,0.0000737937460038306,"(Unknown)","(Unknown)"
5,157,0.0000747459233716219,"(Unknown)","(Unknown)"
and str(sc) returns something like:
. . . .
$ T/C.X MEN 3
:'data.frame': 29 obs. of 5 variables:
..$ DayOfYear : int [1:29] 31 37 49 57 63 66 68 78 79 83 ...
..$ Quantity : int [1:29] 1 2 1 1 2 1 1 1 1 1 ...
..$ Fraction : num [1:29] 4.76e-07 9.52e-07 4.76e-07 4.76e-07 9.52e-07 ...
..$ Category : Factor w/ 46 levels "(Unknown)","10\" Plates",..: 40 40 40
40 40 40 40 40 40 40 ...
..$ SubCategory: Factor w/ 246 levels "(Unknown)","70's Disco",..: 246 246
246 246 246 246 246 246 246 246 ...
$ Thank You.X MEN 3
:'data.frame': 8 obs. of 5 variables:
..$ DayOfYear : int [1:8] 37 66 240 246 276 287 316 351
..$ Quantity : int [1:8] 4 2 2 1 2 1 13 3
..$ Fraction : num [1:8] 1.90e-06 9.52e-07 9.52e-07 4.76e-07 9.52e-07 ...
..$ Category : Factor w/ 46 levels "(Unknown)","10\" Plates",..: 41 41 41
41 41 41 41 41
..$ SubCategory: Factor w/ 246 levels "(Unknown)","70's Disco",..: 246 246
246 246 246 246 246 246
Just printing 'sc' gives me something like:
. . .
$`Pinatas/Accessories.Wiggles`
DayOfYear Quantity Fraction Category SubCategory
111180 61 1 4.760887e-07 Pinatas/Accessories Wiggles
111181 88 1 4.760887e-07 Pinatas/Accessories Wiggles
111182 91 1 4.760887e-07 Pinatas/Accessories Wiggles
111183 99 2 9.521774e-07 Pinatas/Accessories Wiggles
111184 102 1 4.760887e-07 Pinatas/Accessories Wiggles
. . .
Now basically I want to know how to iterate throwgh sc. I can print out sc[[1]]
etc. from R console and get something like:
> sc[[1]]
DayOfYear Quantity Fraction Category SubCategory
1 1 82 3.903927e-05 (Unknown) (Unknown)
2 2 78 3.713492e-05 (Unknown) (Unknown)
3 3 112 5.332193e-05 (Unknown) (Unknown)
4 4 155 7.379375e-05 (Unknown) (Unknown)
And I know the length of sc is
> length(sc)
[1] 2415
So basically I want to do some kind of summary statistics for each of these
groups from 1 to 2415. I have tried this and it doesn't work but I want
something like
for(i in 1:length(sc)
{
mean(sc[[i]]$Quantity)
}
I would like similar statistics for median, mode, variance, range, etc. for
each group
Thank you
Kevin
---- jim holtman <[EMAIL PROTECTED]> wrote:
> I am not sure what your data looks like. Do 'str(sc)' to show the
> structure. I created a set and this is what I got:
>
> > x <- list(sc,sc,sc,sc)
> > x
> [[1]]
> DayOfYear Quantity Fraction Category SubCategory
> 1 1 82 3.903927e-05 (Unknown) (Unknown)
> 2 2 78 3.713492e-05 (Unknown) (Unknown)
> 3 3 112 5.332193e-05 (Unknown) (Unknown)
>
> [[2]]
> DayOfYear Quantity Fraction Category SubCategory
> 1 1 82 3.903927e-05 (Unknown) (Unknown)
> 2 2 78 3.713492e-05 (Unknown) (Unknown)
> 3 3 112 5.332193e-05 (Unknown) (Unknown)
>
> [[3]]
> DayOfYear Quantity Fraction Category SubCategory
> 1 1 82 3.903927e-05 (Unknown) (Unknown)
> 2 2 78 3.713492e-05 (Unknown) (Unknown)
> 3 3 112 5.332193e-05 (Unknown) (Unknown)
>
> [[4]]
> DayOfYear Quantity Fraction Category SubCategory
> 1 1 82 3.903927e-05 (Unknown) (Unknown)
> 2 2 78 3.713492e-05 (Unknown) (Unknown)
> 3 3 112 5.332193e-05 (Unknown) (Unknown)
>
> > x[[1]]
> DayOfYear Quantity Fraction Category SubCategory
> 1 1 82 3.903927e-05 (Unknown) (Unknown)
> 2 2 78 3.713492e-05 (Unknown) (Unknown)
> 3 3 112 5.332193e-05 (Unknown) (Unknown)
> > x[[1]]$Category
> [1] (Unknown) (Unknown) (Unknown)
> Levels: (Unknown)
> >
>
> not sure exactly what you are working with or trying to do with it.
> If the data is not too large, paste the results of 'dput(sc)' in the
> email so people can easily reconstruct your data.
>
______________________________________________
R-help@r-project.org mailing list
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.
