正确格式化ggplot2中的两行标题

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了正确格式化ggplot2中的两行标题相关的知识,希望对你有一定的参考价值。

我正在开发一个自定义函数,可以为图表添加两行字幕,我希望无论用户选择输入什么("character""expression"),都可以正确格式化标题。我在下面创建了一个玩具示例,以说明当前实现该功能的两个问题 -

  1. 当标题不是NULL时,两条线不对齐。
  2. 输入表达式后,连接的标题会被完全破坏。

编辑:

如果你有一个不同的解决方案实现相同的事情(如果用户提供的captionNULL,那么默认的单行表达式打印为标题,否则打印为标题的两行表达式),我也是对此持开放态度。

重要的是,对象的类仍然是"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中的两行标题的主要内容,如果未能解决你的问题,请参考以下文章

如何在 SQL 查询中的两行上写属性名称

Notepad++ 将打开文档中的两行替换为其他 (10) 行

如何在 Java 中的两行代码之间创建延迟? [复制]

ggplot2 中的 stat_cor 函数:在两行上打印 R 值和 p 值

如何比较同一表中的两行并使用存储过程返回数据作为响应

MySQL SELECT 语句的两行之间的区别