Adding dimnames to image()

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Adding dimnames to image()

Markus Preisetanz
Dear Colleagues,

 

does anybody know how to add dimnames to an image. Right now I'm using

 

image(as.matrix(df3), col=brewer.pal(9,"Blues"))

 

where df3 is a data.frame.

dimnames(as.matrix(df3)) delivers

 

[[1]]

 [1] "RFM_A1" "RFM_A2" "RFM_A4" "RFM_A5" "RFM_A7" "RFM_B3" "RFM_B6" "RFM_B7" "RFM_B8" "RFM_B9" "RFM_C2" "RFM_C5" "RFM_C7"

[14] "RFM_D5" "RFM_D7" "RFM_D8" "RFM_A3" "RFM_A6" "RFM_B1" "RFM_B2" "RFM_B4" "RFM_B5" "RFM_C1" "RFM_C3" "RFM_C4" "RFM_C6"

[27] "RFM_C8" "RFM_C9" "RFM_D1" "RFM_D2" "RFM_D3" "RFM_D4" "RFM_D6" "RFM_D9"

 

[[2]]

[1] "Clus1" "Clus2" "Clus3" "Clus4" "Clus5" "Clus6" "Clus7"

 

The entries in the cells of the matrix are numeric.

 

All I get are axises with decimal numbers ranging from 0 to 1.

 

Thank you, sincerely

___________________

Markus Preisetanz

Consultant

 

Client Vela GmbH

Albert-Roßhaupter-Str. 32

81369 München

fon:          +49 (0) 89 742 17-113

fax:          +49 (0) 89 742 17-150

mailto:[hidden email] <mailto:[hidden email]>



Diese E-Mail enthält vertrauliche und/oder rechtlich geschützte Informationen. Wenn Sie nicht der richtige Adressat sind oder diese E-Mail irrtümlich erhalten haben, informieren Sie bitte sofort den Absender und vernichten Sie diese Mail. Das unerlaubte Kopieren sowie die unbefugte Weitergabe dieser E-Mail ist nicht gestattet.

This e-mail may contain confidential and/or privileged infor...{{dropped}}


______________________________________________
[hidden email] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
Reply | Threaded
Open this post in threaded view
|

Re: Adding dimnames to image()

Roger Bivand
On Mon, 13 Feb 2006, Markus Preisetanz wrote:

> Dear Colleagues,
>
>  
>
> does anybody know how to add dimnames to an image. Right now I'm using
>

I think you are looking for axis labels - they are taken by default from
your missing x and y arguments. Try something like:

image(matrix(rnorm(200), 10, 20), axes=FALSE)
axis(1, at=seq(0,1,length.out=10), labels=LETTERS[1:10])
axis(2, at=seq(0,1,length.out=20), labels=letters[1:20])
box()

I guess you'll want to set par(mar=) to give a bit more space, and maybe
rotate the labels too.

>  
>
> image(as.matrix(df3), col=brewer.pal(9,"Blues"))
>
>  
>
> where df3 is a data.frame.
>
> dimnames(as.matrix(df3)) delivers
>
>  
>
> [[1]]
>
>  [1] "RFM_A1" "RFM_A2" "RFM_A4" "RFM_A5" "RFM_A7" "RFM_B3" "RFM_B6" "RFM_B7" "RFM_B8" "RFM_B9" "RFM_C2" "RFM_C5" "RFM_C7"
>
> [14] "RFM_D5" "RFM_D7" "RFM_D8" "RFM_A3" "RFM_A6" "RFM_B1" "RFM_B2" "RFM_B4" "RFM_B5" "RFM_C1" "RFM_C3" "RFM_C4" "RFM_C6"
>
> [27] "RFM_C8" "RFM_C9" "RFM_D1" "RFM_D2" "RFM_D3" "RFM_D4" "RFM_D6" "RFM_D9"
>
>  
>
> [[2]]
>
> [1] "Clus1" "Clus2" "Clus3" "Clus4" "Clus5" "Clus6" "Clus7"
>
>  
>
> The entries in the cells of the matrix are numeric.
>
>  
>
> All I get are axises with decimal numbers ranging from 0 to 1.
>
>  
>
> Thank you, sincerely
>
> ___________________
>
> Markus Preisetanz
>
> Consultant
>
>  
>
> Client Vela GmbH
>
> Albert-Roßhaupter-Str. 32
>
> 81369 München
>
> fon:          +49 (0) 89 742 17-113
>
> fax:          +49 (0) 89 742 17-150
>
> mailto:[hidden email] <mailto:[hidden email]>
>
>
>
> Diese E-Mail enthält vertrauliche und/oder rechtlich geschützte Informationen. Wenn Sie nicht der richtige Adressat sind oder diese E-Mail irrtümlich erhalten haben, informieren Sie bitte sofort den Absender und vernichten Sie diese Mail. Das unerlaubte Kopieren sowie die unbefugte Weitergabe dieser E-Mail ist nicht gestattet.
>
> This e-mail may contain confidential and/or privileged infor...{{dropped}}
>
>

--
Roger Bivand
Economic Geography Section, Department of Economics, Norwegian School of
Economics and Business Administration, Helleveien 30, N-5045 Bergen,
Norway. voice: +47 55 95 93 55; fax +47 55 95 95 43
e-mail: [hidden email]

______________________________________________
[hidden email] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
Roger Bivand
Department of Economics
NHH Norwegian School of Economics
Helleveien 30
N-5045 Bergen, Norway