Contents of /trunk/community/talks/200808_debconf8/debian_med_stats

#!/bin/sh
# This script draws a barplot to visualise the dependant packages of
# med-bio, med-imaging and med-practice over the years.  The data
# are in debian_med_stats.dat

R --no-save <<EOT
library(plotrix)
dmstats <- read.table(file='debian_med_stats.dat', sep = '\t', fill=TRUE, header=TRUE )
png("dmstats.png", width = 800, height = 600)
dmstats.mat <- as.matrix(dmstats)[,2:4]
rownames(dmstats.mat) <- dmstats[['Year']]
dmstats.mat <- t(dmstats.mat)

# plot <- barplot(dmstats.mat,beside=TRUE,col=rainbow(3),legend.text=TRUE)
plot <- barplot(dmstats.mat,beside=TRUE,col=rainbow(3),
                # legend = colnames(dmstats[,2:4]),
                main = "Number of dependencies of selected Debian Med metapackages"
                )
legend(x="topleft", colnames(dmstats[,2:4]),fill=rainbow(3), inset=0.05)

EOT
1	tille	2317	#!/bin/sh
2			# This script draws a barplot to visualise the dependant packages of
3			# med-bio, med-imaging and med-practice over the years. The data
4			# are in debian_med_stats.dat
5
6			R --no-save <<EOT
7			library(plotrix)
8			dmstats <- read.table(file='debian_med_stats.dat', sep = '\t', fill=TRUE, header=TRUE )
9			png("dmstats.png", width = 800, height = 600)
10			dmstats.mat <- as.matrix(dmstats)[,2:4]
11			rownames(dmstats.mat) <- dmstats[['Year']]
12			dmstats.mat <- t(dmstats.mat)
13
14	tille	2323	# plot <- barplot(dmstats.mat,beside=TRUE,col=rainbow(3),legend.text=TRUE)
15			plot <- barplot(dmstats.mat,beside=TRUE,col=rainbow(3),
16			# legend = colnames(dmstats[,2:4]),
17			main = "Number of dependencies of selected Debian Med metapackages"
18			)
19			legend(x="topleft", colnames(dmstats[,2:4]),fill=rainbow(3), inset=0.05)
20	tille	2317
21			EOT