正确格式化ggplot2中的两行标题
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了正确格式化ggplot2中的两行标题相关的知识,希望对你有一定的参考价值。
我正在开发一个自定义函数,可以为图表添加两行字幕,我希望无论用户选择输入什么("character"
或"expression"
),都可以正确格式化标题。我在下面创建了一个玩具示例,以说明当前实现该功能的两个问题 -
- 当标题不是
NULL
时,两条线不对齐。 - 输入表达式后,连接的标题会被完全破坏。
编辑:
如果你有一个不同的解决方案实现相同的事情(如果用户提供的caption
是NULL
,那么默认的单行表达式打印为标题,否则打印为标题的两行表达式),我也是对此持开放态度。
重要的是,对象的类仍然是"ggplot"
,因为我想使用ggplot2
函数对结果图进行进一步修改。
# needed libraries
library(ggplot2)
# custom function to prepare a caption
caption_maker <- function(caption) {
# if caption is not null then add line separator
if (!is.null(caption)) {
caption <- paste(caption, ";
", sep = "")
}
# prepare the caption with additional info
caption <- base::substitute(
expr =
paste(
y,
"In favor of null: ",
"log"["e"],
"(BF"["01"],
") = ",
bf
),
env = base::list(
y = caption,
bf = 123
)
)
# return the message
return(caption)
}
# custom function to add labels to the plot
plot_maker <-
function(xlab = NULL,
ylab = NULL,
title = NULL,
caption = NULL) {
caption.text <- caption_maker(caption = caption)
plot <- ggplot(mtcars, aes(wt, mpg)) + geom_point() +
ggplot2::labs(
x = xlab,
y = ylab,
title = title,
caption = caption.text
)
# return the plot
return(plot)
}
# this works just fine
plot_maker(caption = NULL)
# this works but the caption is not aligned properly
plot_maker(caption = "This is mtcars dataset")
# this works but the caption is all mangled
plot_maker(
caption =
expression(paste(italic("Note"), ": This is mtcars dataset"))
)
由reprex package创建于2018-08-22(v0.2.0.9000)。
答案
这个怎么样:
# needed libraries
library(ggplot2)
# custom function to prepare a caption
caption_maker <- function(caption) {
# prepare the caption with additional info
caption <- base::substitute(
atop(y,
paste(
"In favor of null: ",
"log"["e"],
"(BF"["01"],
") = ",
bf
)),
env = base::list(
bf = 123,
y = caption
)
)
# return the message
return(caption)
}
# custom function to add labels to the plot
plot_maker <-
function(xlab = NULL,
ylab = NULL,
title = NULL,
caption = NULL) {
caption.text <- caption_maker(caption = caption)
plot <- ggplot(mtcars, aes(wt, mpg)) + geom_point() +
ggplot2::labs(
x = xlab,
y = ylab,
title = title,
caption = caption.text)
# return the plot
return(plot)
}
plot_maker(caption = NULL)
plot_maker(caption = "This is mtcars:")
plot_maker(xlab = "x Axis Title",
caption = substitute(paste(italic("Note"), ": This is mtcars dataset"))
)
我从这个atop
得到了question的想法
另一答案
调整相关问题的答案,
library(gridExtra)
library(grid)
library(ggplot2)
element_custom <- function() {
structure(list(), class = c("element_custom", "element_text"))
}
element_grob.element_custom <- function(element, label="", ...) {
mytheme <- ttheme_minimal(core = list(fg_params = list(parse=TRUE,
hjust=0, x=0)))
disect <- strsplit(label, "\n")[[1]]
tg <- tableGrob(as.matrix(disect), theme=mytheme)
tg$vp = viewport(just=1,x=1, width = sum(tg$widths))
tg
}
heightDetails.gtable <- function(x) sum(x$heights)
ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
geom_line() +
labs(x= "italic('Note')*': this is mtcars'
'in favour of null: '*log[10](bf['01'])=='123'")+
(theme_grey() %+replace% theme(axis.title.x = element_custom()))
以上是关于正确格式化ggplot2中的两行标题的主要内容,如果未能解决你的问题,请参考以下文章
Notepad++ 将打开文档中的两行替换为其他 (10) 行