Чи є назва цієї діаграми - свого роду перехрес між круговою діаграмою та мекко сюжетом


9

Чи є назва цієї діаграми нижче (отримана від Міністерства бізнесу, інновацій та зайнятості Нової Зеландії , для якого я працюю, але я не брав участі у створенні цього сюжету)? Він складається з прямокутників, де площа пропорційна змінній і нагадує своєрідний хрест між круговою діаграмою, мозаїчною сюжетом та мекко сюжетом. Це, можливо, найближче до сюжету мекко, але є складністю, що ми працюємо не з колонами, а з більш складними лобзиками.

Оригінал виглядає трохи краще, оскільки між прямокутниками для кожного регіону є білі межі.

Дивно, але насправді це вражає мене не надто поганою статистичною графікою, хоча це можна було б покращити шляхом кращого використання кольорів, відображених на щось значуще. New York Times використовувала потужну інтерактивну версію, що показує бюджет США на 2011 рік .

Цікавим завданням є продумати автоматичний алгоритм, щоб намалювати його і зробити так, щоб він також виглядав розумним. Прямокутники повинні мати різні співвідношення сторін у прийнятному діапазоні.

введіть тут опис зображення


Кінцевий результат проекту, який розпочався з цього питання, можна побачити в інтерактивному веб-інструменті, посилаючись
Пітер Елліс

Відповіді:


11

Я думаю, що це карта, ( http://en.wikipedia.org/wiki/Treemapping ).

Існує кілька пакетів, наприклад, в R, які створюють карти. Один з пакетів називається treemap, а інший - портфоліо. Наприклад, Натан Яу пропонує підручник про те, як створити карту за допомогою R ( http://flowingdata.com/2010/02/11/an-easy-way-to-make-a-treemap/ ).


12

Питання в назві, але наскільки добре воно працює, також є відкритим для обговорення.

Ось щось набагато прозаїчніше, як альтернатива, горизонтальна діаграма.

введіть тут опис зображення

Те, що ми могли б хотіти зробити з таким графіком, варіюється від деякого розуміння загальної структури до певного огляду окремих випадків (що стосується Хоук-Бей тощо). Я б запевнив, що обом простіше за допомогою гістограми. Невеликі деталі полягають у тому, що я використовую малі регістри в заголовках та іменах, де легко і не повторювати знак%. Я грубо наслідував кольорове кодування, не з'ясовуючи, що це означає, так що це так само чітко або незрозуміло, як те, що ви скопіювали.

Я припускаю, що частина привабливості деревних карток полягає у їхній відносній новинці. Вони можуть працювати так само добре або краще, ніж барні діаграми, якщо є десятки імен, які можуть бути розповсюджені на двовимірну область, а не вказані у довгій колонці. Але, на мою думку, 15 іменних ігор, смугова діаграма залишається сильним конкурентом.

Я задоволений тим, хто надає перевагу точковій діаграмі (Клівленд) тут. Вертикальна смугова діаграма зіткнеться з труднощами зручного розміщення назв регіонів. (Просто уявіть, що це графік обертається, щоб це побачити.) Мені подобається ідея давати числа, хоча консерватори не люблять змішувати ідеї графіків та таблиць.

Графік намалювали в Stata.


4
Мені доведеться викопати це, але якщо моя пам'ять слугує мені правильно, одна з оригінальних мотивацій дерев яної картки полягала в ієрархічній організації інформації (тобто, щоб ви могли переглядати комбінований розмір різних рівнів ієрархії) і для ще багатьох номерів. Намір ніколи не був у невеликих списках чисел і мав більше дослідницької привабливості, див. Перцептуальні вказівки щодо створення прямокутних нарізних дерев ( Kong et al. 2010 )
Andy W

1
Це теж моє враження, звідси і назва страйк. Тут очевидний лише один рівень ієрархії.
Нік Кокс

4
Білл Шнайдерман зібрав приємну історію журналів із посиланнями на деякі відповідні публікації ( cs.umd.edu/hcil/treemap-history ). Спочатку дерева були призначені для відображення багаторівневої ієрархії менш захаращеним способом, ніж могли дендрограми або дерева, і спочатку їх використовували для візуалізації вмісту жорстких дисків. В даний час, набори дерев використовуються для візуалізації великих філогенетичних дерев (вони показують зв’язки між видами), серед інших застосувань. Більше прикладів дивіться у статті Шнайдермана на perceptualedge.com/articles/b-eye/treemaps.pdf .
JTT

Дякую; на те, що це варто, я згоден у цьому конкретному випадку.
Пітер Елліс

3

Редагування / доповнення

З тих пір я виявив, що карта пакет дає набагато кращий результат , ніж функції map.market () , згаданої (і адаптований) нижче; але свою відповідь я залишу з історичних причин.

Оригінальний відповідь

Дякую за відповіді. Спираючись на потокове посилання даних, яке надає @JTT, але не люблю необхідність налаштувати вручну в Illustrator або Inkscape просто для отримання розумної графіки, я налаштував функцію map.market () в Jeff Enos та портфельному пакеті David David Kane, щоб зробити це більше етикетки змінюються залежно від розміру прямокутника і уникають червоно-зелених контрастів. Приклад використання:

library(portfolio)
library(extrafont)
data(dow.jan.2005)

with(dow.jan.2005, 
    treemap(id    = symbol,
        area  = price,
        group = sector,
        color = 100 * month.ret,
        labsc = .12,  # user-chosen scaling of labels 
        fontfamily="Comic Sans MS")
    )

введіть тут опис зображення

Що варто, я також погоджуюся з @NickCox, що в прикладі в моєму первісному питанні крапка сюжету є вищою. Код моєї адаптованої функції treemap () наступний.

treemap <- function (id, area, group, color, scale = NULL, lab = c(group = TRUE, 
    id = FALSE), low="red", middle="grey60", high="blue", main = "Map of the Market", labsc = c(.5, 1), print = TRUE, ...) 
{
    # Adapted by Peter Ellis from map.market() by Jeff Enos and David Kane in the portfolio package on CRAN
    # See map.market for the original helpfile.  The changes are:
    # 1. low, middle and high are user-set color ramp choices
    # 2. The font size now varies with the area of the rectangle being labelled; labsc is a scaling parameter to make it look ok.
    #    First element of labsc is scaling parameter for size of group labels.  Second element is scaling for id labels.
    # 3. ... extra arguments to be passed to gpar() when drawing labels; expected use is for fontfamily="whatever"
    require(portfolio)
    if (any(length(id) != length(area), length(id) != length(group), 
        length(id) != length(color))) {
        stop("id, area, group, and color must be the same length.")
    }
    if (length(lab) == 1) {
        lab[2] <- lab[1]
    }
    if (missing(id)) {
        id <- seq_along(area)
        lab["id"] <- FALSE
    }
    stopifnot(all(!is.na(id)))
    data <- data.frame(label = id, group, area, color)
    data <- data[order(data$area, decreasing = TRUE), ]
    na.idx <- which(is.na(data$area) | is.na(data$group) | is.na(data$color))
    if (length(na.idx)) {
        warning("Stocks with NAs for area, group, or color will not be shown")
        data <- data[-na.idx, ]
    }
    zero.area.idx <- which(data$area == 0)
    if (length(zero.area.idx)) {
        data <- data[-zero.area.idx, ]
    }
    if (nrow(data) == 0) {
        stop("No records to display")
    }
    data$color.orig <- data$color
    if (is.null(scale)) {
        data$color <- data$color * 1/max(abs(data$color))
    }
    else {
        data$color <- sapply(data$color, function(x) {
            if (x/scale > 1) 
                1
            else if (-1 > x/scale) 
                -1
            else x/scale
        })
    }
    data.by.group <- split(data, data$group, drop = TRUE)
    group.data <- lapply(data.by.group, function(x) {
        sum(x[, 3])
    })
    group.data <- data.frame(area = as.numeric(group.data), label = names(group.data))
    group.data <- group.data[order(group.data$area, decreasing = TRUE), 
        ]
    group.data$color <- rep(NULL, nrow(group.data))
    color.ramp.pos <- colorRamp(c(middle, high))
    color.ramp.neg <- colorRamp(c(middle, low))
    color.ramp.rgb <- function(x) {
        col.mat <- mapply(function(x) {
            if (x < 0) {
                color.ramp.neg(abs(x))
            }
            else {
                color.ramp.pos(abs(x))
            }
        }, x)
        mapply(rgb, col.mat[1, ], col.mat[2, ], col.mat[3, ], 
            max = 255)
    }
    add.viewport <- function(z, label, color, x.0, y.0, x.1, 
        y.1) {
        for (i in 1:length(label)) {
            if (is.null(color[i])) {
                filler <- gpar(col = "blue", fill = "transparent", 
                  cex = 1)
            }
            else {
                filler.col <- color.ramp.rgb(color[i])
                filler <- gpar(col = filler.col, fill = filler.col, 
                  cex = 0.6)
            }
            new.viewport <- viewport(x = x.0[i], y = y.0[i], 
                width = (x.1[i] - x.0[i]), height = (y.1[i] - 
                  y.0[i]), default.units = "npc", just = c("left", 
                  "bottom"), name = as.character(label[i]), clip = "on", 
                gp = filler)
            z <- append(z, list(new.viewport))
        }
        z
    }
    squarified.treemap <- function(z, x = 0, y = 0, w = 1, h = 1, 
        func = add.viewport, viewport.list) {
        cz <- cumsum(z$area)/sum(z$area)
        n <- which.min(abs(log(max(w/h, h/w) * sum(z$area) * 
            ((cz^2)/z$area))))
        more <- n < length(z$area)
        a <- c(0, cz[1:n])/cz[n]
        if (h > w) {
            viewport.list <- func(viewport.list, z$label[1:n], 
                z$color[1:n], x + w * a[1:(length(a) - 1)], rep(y, 
                  n), x + w * a[-1], rep(y + h * cz[n], n))
            if (more) {
                viewport.list <- Recall(z[-(1:n), ], x, y + h * 
                  cz[n], w, h * (1 - cz[n]), func, viewport.list)
            }
        }
        else {
            viewport.list <- func(viewport.list, z$label[1:n], 
                z$color[1:n], rep(x, n), y + h * a[1:(length(a) - 
                  1)], rep(x + w * cz[n], n), y + h * a[-1])
            if (more) {
                viewport.list <- Recall(z[-(1:n), ], x + w * 
                  cz[n], y, w * (1 - cz[n]), h, func, viewport.list)
            }
        }
        viewport.list
    }
    map.viewport <- viewport(x = 0.05, y = 0.05, width = 0.9, 
        height = 0.75, default.units = "npc", name = "MAP", just = c("left", 
            "bottom"))
    map.tree <- gTree(vp = map.viewport, name = "MAP", children = gList(rectGrob(gp = gpar(col = "dark grey"), 
        name = "background")))
    group.viewports <- squarified.treemap(z = group.data, viewport.list = list())
    for (i in 1:length(group.viewports)) {
        this.group <- data.by.group[[group.data$label[i]]]
        this.data <- data.frame(this.group$area, this.group$label, 
            this.group$color)
        names(this.data) <- c("area", "label", "color")
        stock.viewports <- squarified.treemap(z = this.data, 
            viewport.list = list())
        group.tree <- gTree(vp = group.viewports[[i]], name = group.data$label[i])
        for (s in 1:length(stock.viewports)) {
            stock.tree <- gTree(vp = stock.viewports[[s]], name = this.data$label[s], 
                children = gList(rectGrob(name = "color")))
            if (lab[2]) {
                stock.tree <- addGrob(stock.tree, textGrob(x = unit(1, 
                  "lines"), y = unit(1, "npc") - unit(1, "lines"), 
                  label = this.data$label[s], gp = gpar(col = "white", fontsize=this.data$area[s] * labsc[2], ...), 
                  name = "label", just = c("left", "top")))
            }
            group.tree <- addGrob(group.tree, stock.tree)
        }
        group.tree <- addGrob(group.tree, rectGrob(gp = gpar(col = "grey"), 
            name = "border"))
        if (lab[1]) {
            group.tree <- addGrob(group.tree, textGrob(label = group.data$label[i], 
                name = "label", gp = gpar(col = "white", fontsize=group.data$area[i] * labsc[1], ...)))
        }
        map.tree <- addGrob(map.tree, group.tree)
    }
    op <- options(digits = 1)
    top.viewport <- viewport(x = 0.05, y = 1, width = 0.9, height = 0.2, 
        default.units = "npc", name = "TOP", , just = c("left", 
            "top"))
    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")))
    options(op)
    top.tree <- gTree(vp = top.viewport, name = "TOP", children = top.list)
    mapmarket <- gTree(name = "MAPMARKET", children = gList(rectGrob(gp = gpar(col = "dark grey", 
        fill = "dark grey"), name = "background"), top.tree, 
        map.tree))
    if (print) {
        grid.newpage()
        grid.draw(mapmarket)
    }
    invisible(mapmarket)
}

Цей код, без сумніву, буде корисним. Я не хочу перетягувати дискусію в ті сфери, де вона не піде, але це приклад досить довільний або є обґрунтування, щоб дозволити області представляти ціни на акції? Що ми повинні бачити чи шукати на цьому сюжеті? (Я не ворожий, просто абсолютно недосвідчений у спробах використовувати цю конструкцію реально, хоча я бачив безліч прикладів.)
Нік Кокс

1
Насправді я просто взяв приклад, що з довідкового файлу для map.market () Енос та Кейн. Розмірковуючи над цим, я не бачу, чому вони вирішили запропонувати свою ціну на площі; Більш розумним заходом, безумовно, було б показати загальну капіталізацію, тобто ціну х кількість акцій (або кількість акцій на ринку, або просто кількість акцій, якими я маю, залежно від мети). Тоді вам було б добре інтуїтивно використовувати сюжет, щоб показати важливість різних запасів.
Пітер Елліс

Мене також спантеличило використання ціни.
Нік Кокс

Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.