标签: plotmath

我在数学注释中插入垂直线时遇到问题.我没有运气就搜索了注释符号.

我想在一个图的x标签中放入一个包含条件概率符号(|)的数学注释.我想要的是表达式p(x_j | o_i),其中"j"和"i"是下标.

我有以下结构

plot(1:10, xlab = expression( paste("Likelihood, p" * (y[i] %up% o[j])) ))

我想用垂直线代替箭头.非常感谢任何帮助或指导.

我有一个ggplot,我expression(phantom(x) >=80)在标签文本中用来获得一个正确的大于或等于的符号.

但是我还需要紧下面(N = ...):

require(ggplot2)
.d <- data.frame(a = letters[1:6], y = 1:6)

labs <- c("0-9\n(N=10)","10-29\n(N=10)","30-49\n(N=10)", +
   "50-64\n(N=10)","65-79\n(N=10)", expression(phantom(x) >=80))

ggplot(.d, aes(x=a,y=y)) + geom_point() + 
   scale_x_discrete(labels = labs)

我如何结合expression()逃生\n？

美好的一天!

我不熟悉R所以我很乐意得到一些帮助.

假设我有以下最小的例子:

test <- c(10,20,40,80,80)
avg <- mean(test)
avg <- format(avg,digits=2)

plot(test, xlab="x", ylab="y", pch = 4)
legend("topleft", legend= c("Average: ", avg))

我想写x̄而不是"average" - 想知道这是否可能,因为它不是常规符号 - 只是两个的组合(字母加上线).

我想摆脱的另一件事是"平均"之后的换行符(见下图中的箭头):

我试图在ggplot2包含减号作为指数的情节中创建一个图例(指数中没有其他字符).但是,我无法弄清楚plotmath语法.

看起来以下情况可行:

expr1 <- expression(paste("text", main[sub]^{-}))

ggplot(mpg, aes(x=cty, y=hwy, colour=drv)) + geom_point() +
  scale_colour_discrete(labels=c(expr1, "b", "c"))

(如果我们说的话,它确实有用expr1 <- expression(paste("text", main[sub]^{super})).是否有逃避字符或减号的东西plotmath？

我正在尝试在我的情节中格式化图例,但由于希腊语和上标,我必须使用表达式().但是,当我想显示r ^ 2 = 0.45,P <0.0001时,我得到r ^ 2 = 0.45 P <1e-04,当我输入

legend(expression(r^2==0.9230~~P<0.0001))

我试着查找list()函数,但它对逗号没有帮助.我也找不到在expression()函数中使用小数的任何内容.

任何建议,将不胜感激.

谢谢

我使用'grid'来组合我在ggplot中制作的一些图,然后我使用'grid.text'为这些图提供相同的y轴标签.我最终弄清楚如何在那里得到一个上标-2,但我不希望这两个后面的括号被上标.这是我到目前为止最好的路线,但似乎无论我做什么,在"^"之后的所有内容都会被提升.

grid.text((expression(paste("Biomass (g m"^"-2*)"))), rot = 90, vjust = -20.4)

到目前为止,类似的帖子一直很有帮助,但我认为'grid.text'与我读过的其他内容不一样.

这是图中的样子:

我需要添加换行符,但我正在努力使用atop函数expression().这main是我想要分成两行的部分.

> plot (DAC~Chlo,data=brazilw,
        pch=15,col="red",cex=0.5,
        main=expression("Fig. 3. Relationship
                        between diffuse attenuation coefficient at 490 nm 
                        (K"[d]*") and chlorophyll concentration at three coral
                         reef sites"),
        xlab=expression("Chlorophyll concentration (mg "*m^{-3}*")"),
        cex.lab=0.8,
        cex.main=0.8,
        cex.axis=0.8, 
        font.main=1,
        ylim=c(0,0.3),
        xlim=c(0,3.5), 
        ylab=expression("K"[d]*"(m"*-1^{-1}*")"))

我想对箱线图名称使用字符向量，如何使它们显示为斜体？

# get some data
x <- rnorm(1000)

# I want to get this:
labels <- c(expression(italic("One"), italic("Two")))
labels

boxplot(split(x, cut(x,breaks = c(-Inf, 0, Inf))), names = labels)

但是使用字符向量，例如

sNames <- c("One", "Two")

我试过了bquote()，expression()...

labels <- bquote(expression(italic(.(sNames))))
labels # but this is length 1, not 2

... 与sapply()

labels <- sapply(sNames, function(x) bquote(expression(italic(.(x)))))
labels

boxplot(split(x, cut(x,breaks = c(-Inf, 0, Inf))), names = labels)

但这似乎不能被解释为一个表达式。

谢谢你的帮助。

我仍在为我的地块的正确标签而苦苦挣扎。我设法让它发挥作用。

df <-data.frame(a=seq(1,20),b=seq(1,20))
ggplot(df, aes(x = a, y = b)) + geom_point() +
  ylab(expression(paste(CH[4]~" formation rate"~"(",mu, mol, day^{-1},")")))

它缺少的是 mumol 和 day^-1 之间的运算符号“*”。它应该看起来像这样： 感谢您的帮助。

我熟悉使用expression()和bquote()在R中的文本基础图形中绘制特殊Tex时的标记.但是如果没有解析器抛出错误,如何做"近似等于".我指的是?plotmath确定标记时.

plot(c(1,100), c(1,100), type="n", axes=FALSE, xlab="", ylab="")

# This works
text(50, 80, expression(paste("The area is 24 ", km^2)))

# This doesn't
text(50, 50, expression(paste("Reginald is ", %~~% , "14 years old")))