I put the data again because it looks like it went all mixed up. Data is
named pisteet.sum. First row is the header row.

kuvaaja kuva yhteispisteet
Hannu isokala 8
Hannu kaapin alta löytynyt 2
Hannu kaapin alta löytynyt2 8
Hannu limamikko 1
Hannu maukasta marmeladia 8
Hannu skrinnareita 4
Hate madekoukkujen suojelupyhimys 3
Hate matka aikaan joka ei enää palaa 3
Hate munat puoliks padassa 6
Hate pyynikki 2
Hate vailla armeerausta 2
Lassi ajatelkaa, jos Häntä ei olisikaan 2
Lassi elämän viiva 7
Lassi pedot 1
Lassi portsan kundi 3
Lauri hipö 3
Lauri jääpuut 5
Lauri kökar 3
Lauri lumipuu 9
Petteri harmaaleppä 5
Petteri viileä harakka 2
Teemu harppi 2
Teemu Homo sapiens angelus 3
Teemu kainostelua 1
Teemu pinnalla 5
Teemu portinvartija 6
Teemu puikot 1
Teemu verkkovaja 3



10.3.2007 Lauri Nikkinen <lauri.nikkinen@iki.fi> kirjoitti:
>
> Hi R-users,
>
>
>

-Lauri

 I have a dataset like this:
>
>
>
> kuvaaja
>
> kuva
>
> yhteispisteet
>
> Hannu
>
> isokala
>
> 8
>
> Hannu
>
> kaapin alta löytynyt
>
> 2
>
> Hannu
>
> kaapin alta löytynyt 2
>
> 8
>
> Hannu
>
> limamikko
>
> 1
>
> Hannu
>
> maukasta marmeladia
>
> 8
>
> Hannu
>
> skrinnareita
>
> 4
>
> Hate
>
> madekoukkujen suojelupyhimys
>
> 3
>
> Hate
>
> matka aikaan joka ei enää palaa
>
> 3
>
> Hate
>
> munat puoliks padassa
>
> 6
>
> Hate
>
> pyynikki
>
> 2
>
> Hate
>
> vailla armeerausta
>
> 2
>
> Lassi
>
> ajatelkaa, jos Häntä ei olisikaan
>
> 2
>
> Lassi
>
> elämän viiva
>
> 7
>
> Lassi
>
> pedot
>
> 1
>
> Lassi
>
> portsan kundi
>
> 3
>
> Lauri
>
> hipö
>
> 3
>
> Lauri
>
> jääpuut
>
> 5
>
> Lauri
>
> kökar
>
> 3
>
> Lauri
>
> lumipuu
>
> 9
>
> Petteri
>
> harmaaleppä
>
> 5
>
> Petteri
>
> viileä harakka
>
> 2
>
> Teemu
>
> harppi
>
> 2
>
> Teemu
>
> Homo sapiens angelus
>
> 3
>
> Teemu
>
> kainostelua
>
> 1
>
> Teemu
>
> pinnalla
>
> 5
>
> Teemu
>
> portinvartija
>
> 6
>
> Teemu
>
> puikot
>
> 1
>
> Teemu
>
> verkkovaja
>
> 3
>
>
>
> I have done this:
>
>
>
> pisteet.hannu <- subset(pisteet.sum, kuvaaja == "Hannu", select=c(kuva,
> yhteispisteet))
>
> (pisteet.hannu <- pisteet.hannu[rev(order(pisteet.hannu$yhteispisteet)),])
>
> pisteet.lauri <- subset(pisteet.sum, kuvaaja == "Lauri", select=c(kuva,
> yhteispisteet))
>
> (pisteet.lauri <- pisteet.lauri[rev(order(pisteet.lauri$yhteispisteet)),])
>
> pisteet.lassi <- subset(pisteet.sum, kuvaaja == "Lassi", select=c(kuva,
> yhteispisteet))
>
> (pisteet.lassi <- pisteet.lassi[rev(order(pisteet.lassi$yhteispisteet)),])
>
> pisteet.teemu <- subset(pisteet.sum, kuvaaja == "Teemu", select=c(kuva,
> yhteispisteet))
>
> (pisteet.teemu <- pisteet.teemu[rev(order(pisteet.teemu$yhteispisteet)),])
>
> pisteet.petteri <- subset(pisteet.sum, kuvaaja == "Petteri",
> select=c(kuva, yhteispisteet))
>
> (pisteet.petteri <- pisteet.petteri[rev(order(
> pisteet.petteri$yhteispisteet)),])
>
> pisteet.hate <- subset(pisteet.sum, kuvaaja == "Hate", select=c(kuva,
> yhteispisteet))
>
> (pisteet.hate <- pisteet.hate[rev(order(pisteet.hate$yhteispisteet)),])
>
>
>
> opar <- par(mfrow=c(2,3), mar=c(11,3,3,3))
>
>
>
> barplot(as.vector(pisteet.hannu$yhteispisteet),
>
>         names.arg=as.vector(pisteet.hannu$kuva),
>
>         las=3,
>
>         cex.names=0.8,
>
>         main="Hannu",
>
>         ylim=c(0,10)
>
>         )
>
> barplot(as.vector(pisteet.lauri$yhteispisteet),
>
>         names.arg=as.vector(pisteet.lauri$kuva),
>
>         las=3,
>
>         cex.names=0.8,
>
>         main="Lauri",
>
>         ylim=c(0,10)
>
>         )
>
> barplot(as.vector(pisteet.lassi$yhteispisteet),
>
>         names.arg=as.vector(pisteet.lassi$kuva),
>
>         las=3,
>
>         cex.names=0.8,
>
>         main="Lassi",
>
>         ylim=c(0,10)
>
>         )
>
> barplot(as.vector(pisteet.teemu$yhteispisteet),
>
>         names.arg=as.vector(pisteet.teemu$kuva),
>
>         las=3,
>
>         cex.names=0.8,
>
>         main="Teemu",
>
>         ylim=c(0,10)
>
>         )
>
> barplot(as.vector(pisteet.petteri$yhteispisteet),
>
>         names.arg=as.vector(pisteet.petteri$kuva),
>
>         las=3,
>
>         cex.names=0.8,
>
>         main="Petteri",
>
>         ylim=c(0,10)
>
>         )
>
> barplot(as.vector(pisteet.hate$yhteispisteet),
>
>         names.arg=as.vector(pisteet.hate$kuva),
>
>         las=3,
>
>         cex.names=0.8,
>
>         main="Hate",
>
>         ylim=c(0,10)
>
>         )
>
> par(opar)
>
>
> Queston is: how do I do this more effectively e.g. using for loop (without
> subsetting, straight from the original data)? Thanks in advance!
>
> -Lauri
>

	[[alternative HTML version deleted]]

