任务

Question

我正在使用下面的代码在ggplot2中生成一个简单的框图：

# Libs data
data("mtcars"); require(ggplot2); require(ggthemes)
# Chart
ggplot(data = mtcars) +
  geom_boxplot(aes(y = wt, x = as.factor(am)),
               fill = "gray87") +
  xlab("AM") +
  ylab("WT") +
  theme_gdocs() +
  ggtitle("WT by AM") +
  theme(axis.title.y = element_text(angle = 90),
        axis.ticks = element_line(colour = "black", linetype = "solid",
                                  size = 0.5),
        panel.grid = element_line(colour = "gray"))

生成的图表相当简单：

任务

我想在我的图表中添加一个副标题，并对其渲染方式有所控制。我正在关注this discussion并使用代码：

# Chart
ggplot(data = mtcars) +
  geom_boxplot(aes(y = wt, x = as.factor(am)),
               fill = "gray87") +
  xlab("AM") +
  ylab("WT") +
  theme_gdocs() +
  ggtitle(expression(atop("WT by AM", 
                          atop(italic("Some crucial note that has to be here"), "")))) +
  theme(axis.title.y = element_text(angle = 90),
        axis.ticks = element_line(colour = "black", linetype = "solid",
                                  size = 0.5),
        panel.grid = element_line(colour = "gray"))

我得到以下图表：

这看起来很糟糕，我想改变一些事情：

同时字幕和标题左对齐
减少两行之间的空白
保持字体粗体

尝试

我尝试了不同的东西，比如下面的代码：

ggplot(data = mtcars) +
  geom_boxplot(aes(y = wt, x = as.factor(am)),
               fill = "gray87") +
  xlab("AM") +
  ylab("WT") +
  theme_gdocs() +
  ggtitle(expression(atop("WT by AM", 
                          atop(italic("Stupid note"), "")))) +
  theme(axis.title.y = element_text(angle = 90),
        axis.ticks = element_line(colour = "black", linetype = "solid",
                                  size = 0.5),
        panel.grid = element_line(colour = "gray"),
        plot.title = element_text(size = 16, colour = "black", hjust = -1))

但它完全隐藏了标题：

Answer 1

目前Github上有一个新版本的ggplot2（2.1.0.9000+）可以解决您的问题。有关详细信息，请参阅Bob Rudis' vignette.

devtools::install_github("hadley/ggplot2")  # Until the new version is available on CRAN
library(ggplot2)
library(ggthemes)  # Only necessary because the OP used theme_gdocs()

ggplot(data = mtcars) +
  geom_boxplot(aes(y = wt, x = as.factor(am)), fill = "gray87") +
  xlab("AM") +
  ylab("WT") +
  theme_gdocs() +
  ggtitle("WT by AM", subtitle = "pearl of wisdom") +  # subtitle is a new argument. Both are now left-justified by default
  theme(plot.title=element_text(margin=margin(b=0), size = 20), plot.subtitle=element_text(margin=margin(t=5, b = 10)))  # Changing the size and margins of the title and subtitles to give the OP some options.

Title and Subtitle Image

Answer 2

来自＆＃34;它的愚蠢，但它有效＆＃34;文件，您可以在中心右侧添加空格以强制左对齐。可以使用数学确定正确的空格数，但我无法看到如何将字符串变量传回atop。

# Chart
ggplot(data = mtcars) +
  geom_boxplot(aes(y = wt, x = as.factor(am)), fill = "gray87") +
  xlab("AM") + ylab("WT") + theme_gdocs() +
  ggtitle(expression(atop("WT by AM                            ", 
                          atop(italic("Some crucial note that has to be here"), "")))) +
  theme(axis.title.y = element_text(angle = 90),
        axis.ticks = element_line(colour = "black", linetype = "solid", size = 0.5),
        panel.grid = element_line(colour = "gray"))

Answer 3

是否必须使用＆＃34;表达式＆＃34;命令？我在ggplot2中这样做，但我想这对ggplot有用，因为他们都使用plotmath。

您可以使用bquote和atop根据字符串差异的长度添加空格。您可以通过bquote粘贴中的。（）从环境中获取内容。

bquote(atop(
       paste("WT by AM", .(paste0(replicate(nchar("Some Crucial Note that Has to Be Here") - nchar("WT by AM"), " "), collapse = ""), 
       paste("Some Crucial Note that Has to Be Here")
            ) 
       )

至于调整空间的不同大小（由于字体大小），我只是将复制中的长度表达式乘以一个数字（如果得到分数，则使用楼层或天花板）。

编辑：然而，角色＆＃34; ＆＃34;和＆＃34; a＆＃34;绘制时有不同的长度，所以即使将字符串长度的差异作为空格也不是完美的。

如何通过表达式生成ggplot2中的标题和副标题

任务

尝试

3 个答案: