Skip to content
Prev 305255 / 398506 Next

Maintaining specific order when using aggregate or change order on axis

Hi,
In that case, try this:
#made up data
Coral1<-read.table(text="
Seamount Station? Depth? Pico? Nano Micro Total_Ch
Coral??? 1401 Surface 0.216 3.270 4.240??? 7.726
Coral??? 1401??? Fmax 0.359 3.890 4.900??? 9.149
Coral??? 1401? Below 0.178 1.360 1.210??? 2.748
Coral??? 1402 Surface 0.231 4.140 3.670??? 8.041
Coral??? 1402??? Fmax 0.863 4.340 3.750??? 8.953
Coral??? 1402? Below 0.176 0.386 0.214??? 0.776
Coral??? 1401 Surface 0.216 3.270 4.240??? 7.726
Coral??? 1401??? Shallow 0.359 3.890 4.900??? 9.149
Coral??? 1401? Deep 0.278 1.860 1.210??? 2.748
Coral??? 1402 Surface 0.331 4.940 3.670??? 8.041
Coral??? 1402??? Fmax 0.493 4.840 3.750??? 8.953
Coral??? 1402? Below 0.186 0.486 0.214??? 0.776
",sep="",header=TRUE,stringsAsFactors=FALSE)
?Coral2<-with(Coral1 , aggregate(cbind(Pico, Nano, Micro), list(Depth),FUN=mean))
Coral2[order(order(c("Surface","Shallow","Deep","Fmax","Below"))),]
#? Group.1????? Pico???? Nano??? Micro
#5 Surface 0.2485000 3.905000 3.955000
#4 Shallow 0.3590000 3.890000 4.900000
#2??? Deep 0.2780000 1.860000 1.210000
#3??? Fmax 0.5716667 4.356667 4.133333
#1?? Below 0.1800000 0.744000 0.546000
A.K.
Message-ID: <1347393624.39310.YahooMailNeo@web142601.mail.bf1.yahoo.com>
In-Reply-To: <CAPEc57G63aaqHX=cpbm4-FLYXpBUtx6poanLHpBjpuxU1V0AnQ@mail.gmail.com>