Как добавить разделитель запятой в тройную диаграмму Венна?

Я новичок в R, и у меня есть работающий код, который выглядит так

library(VennDiagram)
grid.newpage()
draw.triple.venn(area1=49644, area2=38697, area3=33281, n12=14221, n23=11026,
                 n13=13635, n123=4242, category=c("DOGS", "CATS", "HORSES"), 
                 cex=1.6, cat.cex=1.8, lwd=2, fill=c("blue", "pink1", "grey50"))

Я хотел бы добавить разделители запятых для больших чисел, но не могу понять, как добавить prettyNum или какую-то подобную функцию. Кто-нибудь может мне помочь?


r number-formatting grob venn-diagram
person astulaaa    schedule 10.04.2020    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Мы могли бы взломать гроб, брошенный невидимым выводом draw.triple.venn.

V <- draw.triple.venn(...)  ## catch it in an object

Изучение структуры объекта с помощью str(v) показывает, что это в основном список, в котором есть метки, определенные в некоторых объектах списка.

str(V)
# [...]
# $ :List of 11
# ..$ label        : chr "26030"                <-- here "label"
# ..$ x            : 'unit' num 0.2npc
# .. ..- attr(*, "valid.unit")= int 0
# .. ..- attr(*, "unit")= chr "npc"
# ..$ y            : 'unit' num 0.739npc
# .. ..- attr(*, "valid.unit")= int 0
# .. ..- attr(*, "unit")= chr "npc"
# ..$ just         : chr "centre"
# [...]

Мы можем извлечь их с помощью скобочной функции `[[`(), сохранить их в двух разных временных объектах и ​​formatC с помощью нужного аргумента big.mark=. После этого мы заменяем нетронутый временный объект tmp2 измененным временным объектом tmp1, где числовые значения не-NA.

tmp1 <- tmp2 <- lapply(V, `[[`, "label")
tmp1[sapply(lapply(V, `[[`, "label"), is.null)] <- NA
tmp1[] <- ifelse(is.na(as.numeric(tmp1)), NA, 
                 formatC(as.numeric(tmp1), format="d", big.mark=","))
tmp2[!is.na(tmp1)] <- tmp1[!is.na(tmp1)]

Наконец, мы заменяем метки, измененные большими метками в grob, используя Map, и сообщаем R, что class равно "gList".

V <- `class<-`(Map(`[[<-`, V, "label", tmp2), "gList")

Теперь мы можем построить гроб, используя grid.draw.

grid.newpage()
grid.draw(V)

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

person jay.sf    schedule 10.04.2020