Я использую 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?
Спасибо за любую помощь.
Ответы:
Последние сборки 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
источник
Игнорируйте этот ответ,
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))
источник
atop(italic("Location")
я хотел бы иметь объект:atop(italic(my_string_vector)
. Я пробовал это, но потом субтитры оценили как (my_string_vector) . Как заставить это выражение использовать строковое значение и не трактовать предоставленный текст буквально?bquote
вместоexpression
, см. здесьexpression
сbquote
и обернуть объекты с.()
, как это, для основного заголовка хранится в объекте под названием «main.title» и подзаголовок , хранящийся в объекте под названием «sub.title»:ggtitle(bquote(atop(.(main.title), atop(italic(.(sub.title)), ""))))
Заслуга Дидзис Ответ Эльфертса здесь: stackoverflow.com/questions/19957536/…Похоже,
opts
что с ggplot 2 0.9.1 он устарел и больше не работает. Это работает для меня с последними версиями , как сегодня:+ ggtitle(expression(atop("Top line", atop(italic("2nd line"), ""))))
.источник
, ""
- для чего эта часть?atop()
что это что-то вроде дроби без полос. Таким образом, если поместить второйatop()
внутри первого, получится подфракция с пропорционально меньшим текстом. Это""
нижняя часть подфракции. Однако это кажется ненужным - возможно,atop()
для второго параметра есть пустая строка по умолчанию или что-то в этом роде.не так уж сложно добавить 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()
источник
В этой версии используется
gtable
функция. Это позволяет использовать две строки текста в заголовке. Текст, размер, цвет и шрифт каждой строки можно установить независимо от другой. Однако функция изменит график только с одной панелью графика.Незначительное изменение: обновление до ggplot2 v2.0.0
# The original plot library(ggplot2) 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", stat = "identity") + labs(x = "Weather stations", y = "Accumulated Rainfall [mm]") + theme(axis.text.x = element_text(angle = -45, hjust = 0, vjust = 1)) # The function to set text, size, colour, and face plot.title = function(plot = NULL, text.1 = NULL, text.2 = NULL, size.1 = 12, size.2 = 12, col.1 = "black", col.2 = "black", face.1 = "plain", face.2 = "plain") { library(gtable) library(grid) gt = ggplotGrob(plot) text.grob1 = textGrob(text.1, y = unit(.45, "npc"), gp = gpar(fontsize = size.1, col = col.1, fontface = face.1)) text.grob2 = textGrob(text.2, y = unit(.65, "npc"), gp = gpar(fontsize = size.2, col = col.2, fontface = face.2)) text = matrix(list(text.grob1, text.grob2), nrow = 2) text = gtable_matrix(name = "title", grobs = text, widths = unit(1, "null"), heights = unit.c(unit(1.1, "grobheight", text.grob1) + unit(0.5, "lines"), unit(1.1, "grobheight", text.grob2) + unit(0.5, "lines"))) gt = gtable_add_grob(gt, text, t = 2, l = 4) gt$heights[2] = sum(text$heights) class(gt) = c("Title", class(gt)) gt } # A print method for the plot print.Title <- function(x) { grid.newpage() grid.draw(x) } # Try it out - modify the original plot p = plot.title(m, "Rainfall", "Location", size.1 = 20, size.2 = 15, col.1 = "red", col.2 = "blue", face.2 = "italic") p
источник
Вы можете обернуть график в grid.arrange и передать настраиваемый заголовок на основе сетки,
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)
источник
Вы могли заметить, что код Sandy не выделяет жирным шрифтом заголовок для «Rainfall» - инструкция по выделению этого жирного шрифта должна находиться в функции 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))
источник