On Jul 20, 2011, at 10:42 AM, Geophagus wrote:
*Hi @ all,
I have a question concerning the possibilty of grouping the columns
of a
matrix.
R groups the columns alphabetically.
What can I do to group the columns in my specifications?
Dear Earth Eater;
You can create a factor whose levels are ordered to your
specification. Your columns: "umweltkompartiment" obviously has those
levels. This might also offer advantages in situations where there was
not complete representation of all levels in all the files
So your tapply() calls could have been of this form:
b1_1<-tapply(b1$betriebs_id,
factor( b1$umweltkompartiment, levels=
c("Gesamt", "Wasser", "Boden", "Luft", "Abwasser",
"Gefährliche Abfälle", "nicht gefährliche
Abfälle") )
,length)
# code would e more compact if you created a facvtor vector and use it
as an argument to factor:
faclevs <- c("Gesamt", "Wasser", "Boden", "Luft", "Abwasser",
"Gefährliche Abfälle", "nicht gefährliche
Abfälle")
b1_1<-tapply(b1$betriebs_id,
factor( b1$umweltkompartiment, levels= faclev )
,length)
<< lather, rinse, repeat x 3>>
--
David.
The script is the following:*
#R-Skript: Anzahl xyz
#Quelldatei einlesen
b<-read.csv2("Z:/int/xyz.csv", header=TRUE)
#Teilmengen für die Einzeljahre generieren
b1<-subset(b,jahr=="2007")
b2<-subset(b,jahr=="2008")
b3<-subset(b,jahr=="2009")
#tapply für die Einzeljahre auf die jeweilige BranchenID
b1_1<-tapply(b1$betriebs_id,b1$umweltkompartiment,length)
b1_2<-tapply(b2$betriebs_id,b2$umweltkompartiment,length)
b1_3<-tapply(b3$betriebs_id,b3$umweltkompartiment,length)
#Verbinden der Ergebnisse
b11<-rbind(b1_1,b1_2,b1_3)
Gesamt<-apply(X=b11,MARGIN=1, sum)
b13<-cbind(Gesamt,b11)
b13
Gesamt Abwasser Boden Gefährliche Abfälle Luft nicht gefährliche
Abfälle Wasser
b1_1 9832 432 18 3147 2839
1592 1804
b1_2 10271 413 28 3360 2920
1715 1835
b1_3 9983 404 21 3405 2741
1691 1721
*Now I want to have the following order of the columns:
Gesamt, Wasser, Boden, Luft, Abwasser, Gefährliche Abfälle, nicht
gefährliche Abfälle
Thanks a lot for your answers!
Fak*
--
View this message in context:
http://r.789695.n4.nabble.com/Grouping-columns-tp3681018p3681018.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
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.
David Winsemius, MD
West Hartford, CT
______________________________________________
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.
