使用cat（）的句子中的數學表達式？

Question

p=seq(0,1,by=0.001) 

x=log(p/(1-p)) 

cat(sep="", "Given p is a number between 0 and 1, log((p/(1-p))), goes from (", min(x), ") to (", max(x), ").\n") 

這裏是輸出：

鑑於p是，日誌（（P /（1-P）））0和1之間的數，從（-Inf）前進到（INF）。

不過，我想改變日誌（（P /（1-P）））的數學分數表達這樣

[請點擊鏈接查看] [1]：https://i.stack.imgur.com/vuPSZ.png

我嘗試過表達式（log（壓縮（p，1-p））），但這不起作用

Answer 1

library(ggplot2) 

p=seq(0,1,by=0.001) 
x=log(p/(1-p)) 
val1 = format(min(x),digits=3) 
val2 = format(max(x),digits=3) 

eq = bquote(paste("Given p is a number between 0 and 1, ", 
        log(frac(p, 1-p)), 
        " goes from (", 
        .(val1), ") to (", .(val2), ")" 
       )) 
ggplot() + ggtitle(eq)