Hi valerio,
Any chance of letting me know how "it didn't work out"? For example
your code and the resulting error message.
Jim
On Wed, Jun 3, 2015 at 10:32 PM, valerio orfano <ingorf...@hotmail.com> wrote:
> Hi Jim and thanx. Unfortunately it didn’t work out!!
>
> any other help?
>
> rgds valerio
> On 03 Jun 2015, at 02:29, Jim Lemon <drjimle...@gmail.com> wrote:
>
>> Hi valerio,
>> This is a guess, but try running your code with "htmlize" (prettyR).
>> Change the "pdf" call to:
>>
>> png("C:/Users/Administrator/Desktop/treemap1.png")
>> map.market(id = data1$Id, area = data1$size, group = data1$Storage,
>> color = data1$col, lab=c(TRUE,TRUE), main="Test Map")
>> dev.off()
>> png("C:/Users/Administrator/Desktop/treemap2.png")
>> map.market(id = data2$Id, area = data2$size, group = data2$Storage,
>> color = data2$col, lab=c(TRUE,TRUE), main="Test Map")
>> dev.off()
>> png("C:/Users/Administrator/Desktop/treemap3.png")
>> map.market(id = data3$Id, area = data3$size, group = data3$Storage,
>> color = data3$col, lab=c(TRUE,TRUE), main="Test Map")
>> dev.off()
>>
>> as I think you are producing three images.
>>
>> # assume the code above is in a file "vo.R" in the R working directory
>> library(prettyR)
>> htmlize("vo.R")
>>
>> This should produce a file "vo.html" with the plots in it.
>>
>> Jim
>>
>> On Wed, Jun 3, 2015 at 1:49 AM, valerio orfano <ingorf...@hotmail.com> wrote:
>>> HI All,
>>>
>>> i need to call the tree map function in R to display my multiple disks
>>> usage, using ‘portfolio' library. I need furthermore to generate multiple
>>> page each showing the treemap of each disk. It works fine if use pdf file ,
>>> but my boss wants to save the result into an html file. Any help? I’ve
>>> tried with R2HTML library without success. The output of map.market is a
>>> ‘gTree' object. Any help is appreciated.
>>>
>>> library(portfolio)
>>> data1 <- read.csv("C:/Users/Administrator/Desktop/prova_data1.txt",
>>> sep='\t', stringsAsFactors = FALSE)
>>> data2 <- read.csv("C:/Users/Administrator/Desktop/prova_data2.txt",
>>> sep='\t', stringsAsFactors = FALSE)
>>> data2 <- read.csv("C:/Users/Administrator/Desktop/prova_data3.txt",
>>> sep='\t', stringsAsFactors = FALSE)
>>> pdf("C:/Users/Administrator/Desktop/treemap.pdf")
>>> map.market(id = data1$Id, area = data1$size, group = data1$Storage, color =
>>> data1$col, lab=c(TRUE,TRUE), main="Test Map")
>>> map.market(id = data2$Id, area = data2$size, group = data2$Storage, color =
>>> data2$col, lab=c(TRUE,TRUE), main="Test Map")
>>> map.market(id = data3$Id, area = data3$size, group = data3$Storage, color =
>>> data3$col, lab=c(TRUE,TRUE), main="Test Map")
>>> dev.off()
>>> ______________________________________________
>>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>> https://stat.ethz.ch/mailman/listinfo/r-help
>>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>>> and provide commented, minimal, self-contained, reproducible code.
>
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
