我尝试使用+opts(subtitle="text")但没有出现任何副标题.主标题确实有效(+opts(title="text")).

我还想为轴(标签和坐标)使用更大的字体,但我不知道如何做到这一点.

我想在我在R中制作的3面小平面网格图中添加一个脚注引用.这是一个信用数据源的脚注.理想情况下,我希望它位于所有三个轴的下方和外部 - 最好是在左下方.

我使用的ggplot2也是ggsave().这意味着我不能使用grid.text()基于x11()-based 的解决方案,因为它只能在窗口上绘制,而不能添加到ggplot对象中.

使用相反png() ...code... dev.off()似乎不是一个选项,因为我需要ggsave调整参数大小,并找到这个命令产生更好,更清晰的打印(这也更快,因为我不打印到屏幕).

这是我的基本代码:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable ~ .) + geom_point(aes(y =value), size=1) + 
    theme_bw() +
        opts(title=mytitle)
print(p1)
ggsave("FILE.png",width=mywidth, height=myheight, p1, dpi=90)

我试过了:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable ~ .) + geom_point(aes(y =value), size=1) + 
    theme_bw() +
        opts(title=mytitle)
print(p1)
grid.text(unit(0.1,"npc"),0.025,label = "Data courtesy of Me")
grid.gedit("GRID.text", gp=gpar(fontsize=7))
ggsave("FILE.png",width=mywidth, height=myheight, p1, dpi=90)

这适当地将脚注放在x11()显示的左下角,在图的外部,但不幸的是,因为它没有应用于p1对象,所以它不会被ggsave命令保存.

我也尝试过:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable …

我正在尝试使用ggplot添加副标题.类似的问题在这里被问到:如何添加不同大小和颜色的ggplot2字幕？,答案如下:

p <- p + ggtitle(expression(atop(paste('TITLE'), atop(italic(paste('SUBTITLE')), ""))))

不过,话'TITLE'和'SUBTITLE'需要被硬编码,与地块的1000打交道时呈现的可扩展性和自动化问题.

这不起作用:

plot.title = 'TITLE'
plot.subtitle = 'SUBTITLE'    
p <- p + ggtitle(expression(atop(paste(plot.title), atop(italic(paste(plot.subtitle)), ""))))

我想如何正确添加动态字幕的问题,使用这个想法归结为:是否有可能在表达式和顶部使用字符变量？

我正在尝试使用facet_wrap和ggplot2为绘图添加多个标题.假设你有两年的季度数据,并想要将季度数据与两个主要标题进行图形比较; 2014年和2015年,以及各季度的标题.

我走到这一步:

data <- rnorm(10)

A1 <- data.frame("Y"=data, "X"=1:10, "Q"=1, "year"=2014)
A2 <- data.frame("Y"=data, "X"=1:10, "Q"=2, "year"=2014)
A3 <- data.frame("Y"=data, "X"=1:10, "Q"=3, "year"=2014)
A4 <- data.frame("Y"=data, "X"=1:10, "Q"=4, "year"=2014)

N1 <- data.frame("Y"=data, "X"=1:10, "Q"=1, "year"=2015)
N2 <- data.frame("Y"=data, "X"=1:10, "Q"=2, "year"=2015)
N3 <- data.frame("Y"=data, "X"=1:10, "Q"=3, "year"=2015)
N4 <- data.frame("Y"=data, "X"=1:10, "Q"=4, "year"=2015)

A <- rbind(A1, A2, A3, A4)
N <- rbind(N1, N2, N3, N4)
tmp <- data.frame(rbind(A, N))

ggplot(data=tmp, aes(x=X, y=Y)) + geom_line() + facet_wrap(~year + …

我想要一个标签,在其中有一个指数.这是我的代码

vall = format(cor(x,y)*cor(x,y),digits=3)
eq <- expression(paste(R^2," = ",vall,sep=""))
text(legend.x,legend.y,eq,cex=1,font=2)

但文字看起来就像这样

如何显示实际的vall(而不是文本"vall")

创建一个绘图，其中 y 轴有两条线。我使用 atop 函数如下：

plot + ylab(expressions(atop("Line 1","Line 2")))

想知道是否可以更改第 1 行的字体大小，即使其大于第 2 行？

谢谢！

我正在使用下面的代码生成一个简单的箱线图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"))

生成的图表相当简单：

任务

我想为我的图表添加一个副标题，并对它的呈现方式进行一些控制。我正在关注此讨论并使用代码：

# Chart
ggplot(data = mtcars) +
  geom_boxplot(aes(y = wt, x = as.factor(am)),
               fill = "gray87") +
  xlab("AM") +
  ylab("WT") …

我已经搜索了SO和其他网站,但无法找到我的问题的解决方案ggtitle().我知道还有其他一些例子,但我还没能成功地将它们直接应用到我的问题中.

我想要做的是制作一个多线图标题,其中第一行是粗体,大小= 10,然后在第一行下面是第二行(可能是第三行),非粗体更具描述性的行,大小= 8.踢球者是我试图让这个在y轴上左对齐.这个左对齐是使这个问题与众不同的原因,因为之前的答案,包括由主持人链接的答案,使用atop()不允许左对齐或不将其包含在链接的答案中.

这是我的情节目前的样子:

title <- paste("An analysis of the mtcars dataset  ")
subheader <- paste("How does mpg change by   \n number of cyl?")

ggplot(mtcars, aes(mpg,cyl))+ 
  geom_smooth(aes(fill="Mean",level=0.095)) +
  ggtitle(paste0(title,"\n",subheader)) +
  scale_fill_grey(name='95% Confidence\n Interval',start=.65,end=.65) +
  theme(plot.title = element_text(size = rel(2.0),hjust=-.1,face="bold"))

我已经尝试使用bquote(),mtext(),atop(),甚至蹩脚paste()有多余的空格包括推动标题....但我一直没能找到解决的办法.

如果您有任何疑问或需要澄清,请告诉我.我感谢任何和所有的帮助!