Rのツリーマップ（「ポートフォリオ」ライブラリを使用）の縮尺を調整/制御するにはどうすればよいですか？

Question

私はRと 'portfolio'ライブラリを使ってツリーマップを構築しています。縮尺はデフォルトで '-1000〜1000'です。

たとえば、「0〜1000」にする必要があります。私はmap.market（）に 'scale'パラメータがあることは知っていますが、何を渡すべきかを知ることはできません。

Answer 1

ゼロの周りに対称的なカラーマッピングは、ハードmap.marketに符号化される：

legend.ncols <- 51 
l.x <- (0:(legend.ncols - 1))/(legend.ncols) 
l.y <- unit(0.25, "npc") 
l.cols <- color.ramp.rgb(seq(-1, 1, by = 2/(legend.ncols - 
    1))) 
if (is.null(scale)) { 
    l.end <- max(abs(data$color.orig)) 
} 
else { 
    l.end <- scale 
} 

と、

top.list <- gList(textGrob(label = main, y = unit(0.7, "npc"), 
    just = c("center", "center"), gp = gpar(cex = 2)), segmentsGrob(x0 = seq(0, 
    1, by = 0.25), y0 = unit(0.25, "npc"), x1 = seq(0, 1, 
    by = 0.25), y1 = unit(0.2, "npc")), rectGrob(x = l.x, 
    y = l.y, width = 1/legend.ncols, height = unit(1, "lines"), 
    just = c("left", "bottom"), gp = gpar(col = NA, fill = l.cols), 
    default.units = "npc"), textGrob(label = format(l.end * 
    seq(-1, 1, by = 0.5), trim = TRUE), x = seq(0, 1, by = 0.25), 
    y = 0.1, default.units = "npc", just = c("center", "center"), 
    gp = gpar(col = "black", cex = 0.8, fontface = "bold"))) 

注seq(-1,1,...)文の存在を。 scaleパラメータは、絶対サイズにのみ影響します。