Как уменьшить размер шрифта на речном участке? - PullRequest
Новая
       39

Как уменьшить размер шрифта на речном участке?

0 голосов
/ 10 февраля 2020

Наконец-то разобрался, как сделать мой речной участок в R, теперь мне интересно, как уменьшить размер шрифта? 

    library(riverplot)

    #Bring in file of nodes and edges
    nodes <- read_xlsx("riverplot_cell_p.xlsx", sheet = "nodes")
    edges <- read_xlsx("riverplot_cell_p.xlsx", sheet = "edges")

    #Convert to data frame
    nodes <- as.data.frame(nodes)
    edges <- as.data.frame(edges)
    rownames(nodes) = nodes$ID


    #Construct a list of styles
    library(RColorBrewer)
    palette = paste0(brewer.pal(9, "Set1"), "60")
    styles = lapply(nodes$y, function(n) {
      list(col = palette[n+1], lty = 0, textcol = "black")})
    names(styles) = nodes$ID

    #Construct riverplot
    library(riverplot)
    rp <- list(nodes = nodes, edges = edges, styles = styles)
    class(rp) <- c(class(rp), "riverplot")
    plot(rp)

[riverplot[1]

1 Ответ

0 голосов
/ 10 февраля 2020

Я не вижу способа изменить размер шрифта текста со страницы справки plot.riverplot, но вы всегда можете изменить размеры графического устройства, используя аргументы width / height. Например: 

w <- 3 # tinker with these multipliers
h <- 2
tiff(file="Figure_1.tiff", width=480*w, height=480*h)
plot(rp)
dev.off()

Посмотрите, работает ли это.

...