swap hist() colours

Hi,
i created a set of graphs and want to find out how to swap the bar colours
(from white to black) and set it to be default for all graph that i will
produce (f.e. for different number of columns). some sugggestions?
thanks in advance.

here is an example:
##############################
a <-read.table("http://www.scandinavia.sk/data/R/kotlina1.csv", sep=";",
header=T)
PAR_11_yes <- subset(a, a$kot_clc06  == 11)
PAR_hist11_yes <- hist(PAR_11_yes$PAR_11_p, breaks= c(0.1*0:10),
plot="FALSE")
PAR_hist11_c_yes <- (PAR_hist11_yes$counts)
LR_11_yes <- subset(a, a$kot_clc06  == 11)
LR_hist11_yes <- hist(LR_11_yes$LR_11_p, breaks= c(0.1*0:10), plot="FALSE")
LR_hist11_c_yes <- (LR_hist11_yes$counts)
RK_11_yes <- subset(a, a$kot_clc06  == 11)
RK_hist11_yes <- hist(RK_11_yes$RK_11_p, breaks= c(0.1*0:10), plot="FALSE")
RK_hist11_c_yes <- (RK_hist11_yes$counts)
yes.results_11 <-
data.frame(PAR_hist11_c_yes,LR_hist11_c_yes,RK_hist11_c_yes)
#dataframe to matrix
yes.matrix_11<-data.matrix(yes.results_11)
colnames(yes.matrix_11) <-c ("PAR", "LR", "RK")
barplot(yes.matrix_11, beside =TRUE,ylim=c(0,250))
abline(v=(6),col = "black", lty=3, xpd= F)
abline(v=(17),col = "black", lty=3, xpd= F)
abline(v=(28),col = "black", lty=3, xpd= F)
f <- c(11.5,22.5)
axis(1, f,labels = FALSE)
box()
###############################

Robert Pazur

	[[alternative HTML version deleted]]