Well, here's something to hopefully get you started. If you have
something else in mind, please specify. -Ben
# working with data frame 'd'
d <- structure(list(A = structure(c(15L, 14L, 13L, 12L, 11L, 10L,
9L, 8L, 7L, 6L, 5L, 4L, 3L, 2L, 1L), .Label = c("110", "112",
"114", "117", "119", "121", "124", "126", "129", "131", "134",
"137", "139", "142", "145"), class = "factor"), B = c(0L, 0L,
0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L), C = c(0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, -1L, -1L, -1L, -1L, 0L, 0L, 0L),
D = c(0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 0L,
0L, 0L), E = c(0L, 0L, 0L, -1L, -1L, -1L, -1L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L), F = c(1L, 1L, 1L, 1L, 1L, 1L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c("A", "B", "C", "D",
"E", "F"), row.names = c(NA, -15L), class = "data.frame")
library(reshape)
d_melted <- melt( d, id.vars="A" )
qplot(A,value,fill=variable,geom="bar",data=d_melted)