标签: plotmath

我使用了以下ggplot命令:

ggplot(survey, aes(x = age)) + stat_bin(aes(n = nrow(h3), y = ..count.. / n), binwidth = 10)
  + scale_y_continuous(formatter = "percent", breaks = c(0, 0.1, 0.2))
  + facet_grid(hospital ~ .)
  + theme(panel.background = theme_blank())

生产

我想将facet标签更改为更短的标签(如Hosp 1,Hosp 2 ......),因为它们现在太长并且看起来很狭窄(增加图形的高度不是一个选项,它需要文档中的空间太大).我查看了facet_grid帮助页面,但无法弄清楚如何.

我想在R中我的条形图的y轴上添加一个希腊字符.
问题是我需要将这个字符集成到标题中.我想写:

Diameter of aperture ("mu"m)

在轴标签中.

同

ylab=expression()

我可以写下希腊字符

ylab="axis title"

我可以在单词之间用适当的空格书写标题.

但是我找不到把所有这些放在一起的方法,并在轴标签上写一个带有希腊词的正确标签.我希望我很清楚.

我正在尝试使用特殊字符和上标来制作y轴标题.我能够做到这一点,但我希望结束括号不要上标.这就是我遇到的问题.我认为它只是放置了我的括号,但我已经尝试了(看似)一切.

plot(WatexCl, ConcuM, col = as.numeric(1), pch = as.numeric(Depth), 
   xlab = expression(paste("Concentration Cl  ( ", mu, "moles/g dry wt)")), 
   ylab = expression(paste("Average Conc of S- on plates ( ", mu, "Moles/cm"^"2"),)), 
   data = plates)

我在R中有以下直方图:

hist(alpha,cex.main=2,cex.axis=1.2,cex.lab=1.2,
main=expression(paste("Histogram of ",hat(mu), ", Bootstrap samples, Allianz")))

标题太长了,所以我想换线.根据这个线程,我试过

hist(alpha,cex.main=2,cex.axis=1.2,cex.lab=1.2,
main=expression(paste("Histogram of ",hat(mu), ",cat("\n") Bootstrap samples, Allianz")))

要么

hist(alpha,cex.main=2,cex.axis=1.2,cex.lab=1.2,
main=expression(paste("Histogram of ",hat(mu), cat("\n"),", Bootstrap samples, Allianz")))

但两者都不起作用,我怎样才能在paste()中获得换行符？

我有一个由此产生的情节:

ggplot(dt.2, aes(x=AgeGroup, y=Prevalence)) + 
    geom_errorbar(aes(ymin=lower, ymax=upper), colour="black", width=.2) +
    geom_point(size=2, colour="Red")

我像这样控制x轴标签:

scale_x_discrete(labels=c("0-29","30-49","50-64","65-79",">80","All")) +

这有效,但我需要将"> 80"标签更改为"≥80".

但是"≥80"显示为"= 80".

如何显示大于或等号？

我试图将回归的结果(即R2)放在图表中,但似乎无法弄清楚如何从表达式中调用变量(它粘贴变量名称).

这是我的代码.

R2Val <- signif(summary(sMod_pre90)$r.squared[1], 2)
text(92, 4, expression(paste(R^2, " = ", R2Val)), adj = 0, cex = 0.85)

如何在图表的标题中组合文本和数学表达式.如果我使用粘贴,表达式将转换为字符.例如,我想要这样的东西作为标题

$ ARL_1 $曲线$ S ^ 2 $

谢谢

假设我有两个数据集,一个具有y范围[min0:max0],另一个具有y范围[min1:max1].如何将两个箱形图在一个图中彼此相邻并且具有合理的y范围[min(min0,min1):max(max0,max1)]？

这是我试过的:

d0 <- matrix(rnorm(15), ncol=3)
d1 <- matrix(rnorm(15), ncol=3)

par(mfrow = c(1, 2))
boxplot(d0)
usr <- par("usr")
plot.new()
par(usr = usr)
boxplot(d1, add = TRUE)

但这只会保留第一个图的y范围并且也会挤压两个图,而我希望它们是方形的.

有任何想法吗？

在R中,我使用expression(theta[l])的是我的绘图轴的标签$\theta_l$与LaTeX 的标签相同.出于美学原因,我更愿意展示$\theta_\ell$.你能帮助我吗？

编辑

以前,我做过

plot(1:10, 1:10, xlab=expression(theta[l]))

我以PDF格式导出了生成的图片.然后,使用

\begin{figure}[htbp]
\centerline{\includegraphics[scale=.6]{test.pdf}}
\end{figure}

我的照片插入了LaTeX.

在评论之后,我现在正在做的事情:

require(tikzDevice)
tikz("test.tex", standAlone=TRUE, width=5, height=5)

plot(1:10, 1:10, xlab="$\\theta_\\ell$")

dev.off()
tools::texi2pdf('test.tex')
system(paste(getOption('pdfviewer'),'test.pdf'))

但是,当我在LaTeX中插入结果图时,图形的质量不如以前那么好.还有什么我可以做的吗？

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

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

编辑:

如果你有一个不同的解决方案实现相同的东西(如果用户提供的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, "; \n", sep = "")
  }

  # prepare the caption with additional info
  caption <- base::substitute(
    expr =
      paste(
        y,
        "In favor of null: ",
        "log"["e"], …