Как добавить подзаголовок ggplot2 с разными размерами и цветом?

Я использую ggplot2 для улучшения графиков осадков.



вот воспроизводимый пример того, что я хочу достичь: 



library(ggplot2)

library(gridExtra)

secu <- seq(1, 16, by=2)

melt.d <- data.frame(y=secu, x=LETTERS[1:8])

m <- ggplot(melt.d, aes(x=x, y=y)) +

  geom_bar(fill="darkblue") + 

  labs(x="Weather    stations", y="Accumulated Rainfall [mm]") +

  opts(axis.text.x=theme_text(angle=-45, hjust=0, vjust=1),

       title=expression("Rainfall"), plot.margin = unit(c(1.5, 1, 1, 1), "cm"),

       plot.title = theme_text(size = 25, face = "bold", colour = "black", vjust = 5))

z <- arrangeGrob(m, sub = textGrob("Location", x = 0, hjust = -3.5, vjust = -33, gp = gpar(fontsize = 18, col = "gray40"))) #Or guessing x and y with just option

z


Я не знаю, как избежать использования угадывания чисел на hjust и vjust на ggplot2? Есть ли лучший способ поместить субтитр (не просто используя n, но субтитр с другим цветом и размером текста)?



Мне нужно иметь возможность использовать с ggsave, чтобы иметь pdf-файл.



вот два связанных вопросы:



добавить цитату сноски за пределами области участка в R?



Как я могу добавить субтитр и изменить размер шрифта графиков ggplot в R?



Спасибо за любую помощь.

600   7  

7 ответов:

последние сборки ggplot2 (т. е. 2.1.0.9000 или новее) имеют субтитры и субтитры ниже графика в качестве встроенной функциональности. Это означает, что вы можете сделать это:

library(ggplot2) # 2.1.0.9000+ 

secu <- seq(1, 16, by=2)
melt.d <- data.frame(y=secu, x=LETTERS[1:8])

m <-  ggplot(melt.d, aes(x=x, y=y))
m <- m + geom_bar(fill="darkblue", stat="identity")
m <- m + labs(x="Weather    stations", 
              y="Accumulated Rainfall [mm]",
              title="Rainfall",
              subtitle="Location")
m <- m + theme(axis.text.x=element_text(angle=-45, hjust=0, vjust=1)) 
m <- m + theme(plot.title=element_text(size=25, hjust=0.5, face="bold", colour="maroon", vjust=-1))
m <- m + theme(plot.subtitle=element_text(size=18, hjust=0.5, face="italic", color="black"))
m
67  
2017-07-12 12:15:10

игнорировать этот ответggplot2 версия 2.2.0 имеет название и субтитры. Смотрите ответ @hrbrmstr ниже.

вы можете использовать вложенные atop функции внутри expression чтобы получить различные размеры.

EDIT обновленный код для ggplot2 0.9.3

m <-  ggplot(melt.d, aes(x=x, y=y)) + 
     geom_bar(fill="darkblue", stat = "identity") + 
     labs(x="Weather    stations", y="Accumulated Rainfall [mm]") + 
     ggtitle(expression(atop("Rainfall", atop(italic("Location"), "")))) +
     theme(axis.text.x = element_text(angle=-45, hjust=0, vjust=1), 
     #plot.margin = unit(c(1.5, 1, 1, 1), "cm"), 
     plot.title = element_text(size = 25, face = "bold", colour = "black", vjust = -1))

enter image description here

71  
2017-07-12 07:59:16

появляется opts устарел с ggplot 2 0.9.1 и больше не работает. Это работало для меня с последними версиями на сегодняшний день:+ ggtitle(expression(atop("Top line", atop(italic("2nd line"), "")))).

7  
2013-02-03 03:42:46

эта версия использует

6  
2016-08-01 06:11:19

не слишком сложно добавить grobs в gtable и сделать причудливый заголовок таким образом,

library(ggplot2)
library(grid)
library(gridExtra)
library(magrittr)
library(gtable)

p <- ggplot() + 
  theme(plot.margin = unit(c(0.5, 1, 1, 1), "cm"))

lg <- list(textGrob("Rainfall", x=0, hjust=0, 
                    gp = gpar(fontsize=24, fontfamily="Skia", face=2, col="turquoise4")),
               textGrob("location", x=0, hjust=0, 
                        gp = gpar(fontsize=14, fontfamily="Zapfino", fontface=3, col="violetred1")),
           pointsGrob(pch=21, gp=gpar(col=NA, cex=0.5,fill="steelblue")))

margin <- unit(0.2, "line")
tg <- arrangeGrob(grobs=lg, layout_matrix=matrix(c(1,2,3,3), ncol=2),
                  widths = unit.c(grobWidth(lg[[1]]), unit(1,"null")),
                  heights = do.call(unit.c, lapply(lg[c(1,2)], grobHeight)) + margin)

grid.newpage()
ggplotGrob(p) %>%
  gtable_add_rows(sum(tg$heights), 0) %>%
  gtable_add_grob(grobs=tg, t = 1, l = 4)  %>%
  grid.draw()

enter image description here

5  
2016-03-16 21:43:54

вы можете использовать обернуть участок в сетку.организуйте и передайте пользовательский заголовок на основе сетки,

enter image description here

library(ggplot2)
library(gridExtra)

p <- ggplot() + 
  theme(plot.margin = unit(c(0.5, 1, 1, 1), "cm"))

tg <- grobTree(textGrob("Rainfall", y=1, vjust=1, gp = gpar(fontsize=25, face=2, col="black")),
               textGrob("location", y=0, vjust=0, gp = gpar(fontsize=12, face=3, col="grey50")),
               cl="titlegrob")
heightDetails.titlegrob <- function(x) do.call(sum,lapply(x$children, grobHeight))

grid.arrange(p, top = tg)
2  
2016-02-12 23:40:01

возможно, вы заметили, что код Sandy не создает полужирный заголовок для "осадков" - инструкция, Чтобы сделать это полужирным, должна выполняться в функции atop (), а не в функции theme ().

ggplot(melt.d, aes(x=x, y=y)) + 
 geom_bar(fill="darkblue", stat = "identity") + 
 labs(x="Weather    stations", y="Accumulated Rainfall [mm]") + 
 ggtitle(expression(atop(bold("Rainfall"), atop(italic("Location"), "")))) +
 theme(axis.text.x = element_text(angle=-45, hjust=0, vjust=1),
 plot.title = element_text(size = 25, colour = "black", vjust = -1))

enter image description here

1  
2015-09-21 04:49:31

Comments

    Ничего не найдено.
Click here to cancel reply.