r - 在动态变化的图中显示分数

Question

我想知道如何实际显示条件计算（见下文）我用来获取我GG在 R 代码中调用的内容（见下面的代码）？

细节：

准确地说，我想在我的图中显示GG= G1 / G2 （显示 IF type = 1）和 ELSE GG= (G1 / G2 ) * 2 （显示 IF type == 2）。

例如，如果 G1 = 1，G2 = 2，我希望根据“类型”显示的内容是以下之一：

注意：在上图中，我不小心使用了“X 2”，但我需要一个实际的类似 x 的数学符号作为乘号。

下面是我的 R 代码：

G1 = 1  ## Can be any other number, comes from a function
G2 = 2  ## Can be any other number, comes from a function
type = 1 ## Can be either 1 or 2

plot(1:10,ty="n",ann=F, bty="n")

text( 6, 6, expression(paste("GG = ", ifelse(type==1, frac(G1, G2), frac(G1, G2)*2 ), " = ", 
           G1/G2, sep = "")), col = "red4", cex = 1.6 )

Answer 1

使用bquote, 用于.()将动态值添加到表达式中：

type = 1
plot(1:10, ty = "n", ann = F, bty = "n")
text(6, 6,
     bquote(paste("GG = ", frac(.(G1), .(G2)),
                  .(ifelse(type == 1, " × 2", "")),
                  " = ", 
                  .(ifelse(type == 1, G1/G2 * 2, G1/G2)), sep = "")),
     col = "red4", cex = 1.6)

注意：乘号（×）的 ASCII 码是Alt 0215

Answer 2

太棒了@zx8754，非常好。

我误解了你的问题，并认为你想打印公式和结果，所以我制作了这个。

plot(1:10,ty="n",ann=F, bty="n")
text( 6, 6, if (type==1) substitute(paste("GG = ", frac(G1, G2)) == list(x), list(x=G1/G2)) else
               substitute(paste("GG = ", frac(G1, G2), " x 2") == list(x), list(x=G1/G2 * 2)), col = "red4", cex = 1.6 )