I am interested in plotting histograms for the following data

 

Isoform

Tumor_65_198

Tumor_50_192

Tumor_80_167

Tumor_80_204

Tumor_95_197

Tumor_70_189

Tumor_90_202

Tumor_40_177

Tumor_60_21

Tumor_70_174

Tumor_70_147

Tumor_50_5

ABCC4-2007

1

1

1

6

1

9

10

1

2

0

10

1

ABCC4-2008

5

8

7

5

3

10

5

5

7

3

10

3

ABCC4-2009

0

0

0

0

0

0

0

0

0

0

0

0

ABCC4-2010

0

0

0

0

0

0

0

0

0

0

0

0

ABCC4-2011

0

10

4

3

2

0

2

4

1

4

10

0

ABCC4-2012

0

0

10

0

0

0

0

0

0

0

0

0

ABCC4-2013

7

10

10

10

8

10

10

4

10

0

10

0

ABCG1-0489

1

0

0

1

9

1

6

1

1

0

0

0

ABCG1-0490

0

0

0

0

0

0

0

0

0

0

0

0

ABCG1-0491

2

0

2

3

1

1

2

2

5

2

1

7

 

Basically 12 different histograms one for each Tumor sample. What is an
easy way to do this?  

I was trying to modify the following example code, but I guess I need
some help as I am not very comfortable with R

require(lattice)
 
sundar.theme <- function() {
        par <- col.whitebg()
        par$strip.background$col <- rep("#000099", 7)
        par$add.text$col <- "#eeeeaa"
        par$add.text$font <- 2
        par$background$col <- "#ffffff"
        par$superpose.line$lty <- rep(1, 7)
        par$superpose.line$col[1:2] <- c("#880000", "#008800")
        par$superpose.symbol$col[1:2] <- c("#880000", "#008800")
        par
      }
 
trellis.par.set(sundar.theme())
 
print(  # necessary if the file is source()'d
  histogram( ~ height | voice.part, data = singer,
          xlab = "Height (inches)", type = "density",
          panel = function(x, ...) {
              panel.histogram(x, ...)
              panel.mathdensity(dmath = dnorm, col = "black",
                                args = list(mean=mean(x),sd=sd(x)))
          } )
  )

 

 

 

Thanks ../Murli

 


	[[alternative HTML version deleted]]

