# [R] barplot beside=TRUE - values differ on scales

Jim Lemon drjimlemon at gmail.com
Thu Oct 13 00:06:40 CEST 2016

```Hi Adrian,
Perhaps what you want is this:

ajdat<-structure(c(112L, 0L, 579L, 1L, 131L, 1L, 2234L, 2L, 2892L, 1L,
528L, 0L, 582L, 2L), .Dim = c(2L, 7L), .Dimnames = list(c("GN",
"CN"), c("DC5", "DC8", "DC14", "DC18", "DC19", "DC20", "DC23"
)))
library(plotrix)
twoord.plot(0.8:6.8,ajdat[2,],1.2:7.2,ajdat[1,],
main="Gene expression by chromosome loss/gain",
lylim=c(-2.2,10),lytickpos=-2:2,
xtickpos=1:7,xticklab=colnames(ajdat),
ylab="Chromosome loss/gain",rylab="GN",
type="bar",lcol=2,rcol=3,halfwidth=0.2)

Jim

On Thu, Oct 13, 2016 at 3:20 AM, Adrian Johnson
<oriolebaltimore at gmail.com> wrote:
> Dear group,
> I have been struggling to barplot two different measurements from one
> subject. These two measures differ in range.  I want to plot row 1
> axis on left side and row 2 values on right side.
>
> For a given column I want to plot GN and CN next to each other.
>
> my dput code is below
> :
>
> structure(c(112L, 0L, 579L, 1L, 131L, 1L, 2234L, 2L, 2892L, 1L,
> 528L, 0L, 582L, 2L), .Dim = c(2L, 7L), .Dimnames = list(c("GN",
> "CN"), c("DC5", "DC8", "DC14", "DC18", "DC19", "DC20", "DC23"
> )))
>
>
> As you can see:
>    DC5 DC8 DC14 DC18 DC19 DC20 DC23
> GN 112 579  131 2234 2892  528  582
> CN   0   1    1    2    1    0    2
>
> GN values are range from 100 - 3000
> while CN are always -2 or -1 or 0 or 1 or 2
>
> Also I cannot log GN values and plot because a difference in 100 units
> also matters in my experiment.
>
> Any help would be greatly appreciated.
>
> Thanks
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> and provide commented, minimal, self-contained, reproducible code.

```