3

の基底グラフに論理記号and(∧) と(∨)を追加したいと思います。orR

おそらく式を使用する方法があると思いましたが、ユニコードコードが機能\u2227していないため、方法がわかり\u2228ません。おそらく、私はWindows（win 7、64ビット）を使用しているためです。

私が持っているもの：

plot(1, 1, pch = "")
text(1, 1.2, 
     expression(paste("low ", italic(P), "(", italic(p), " and ", italic(q), 
        "), -1 SD")), cex = 1.2)
text(1, 0.8, 
     expression(paste("low ", italic(P), "(\u00ac", italic(p), " or ", italic(q), 
         "), -1 SD")), cex = 1.2)

ここに画像の説明を入力

andリテラルとorを対応するシンボルに置き換えたいと思います。

4

1 に答える 1

3

Symbol フォント マッピングの使用に関する詳細は次のとおりです。

?plotmath
?points # to which plotmath sends you for mapping of 'symbol' characters

# And I do not like the plotmath-paste function, 
# so translated to 'pure' expressions.
# The number arguments to symbol are numbers in octal.

plot(1, 1, pch = "")
text(1, 1.2, 
       expression(low ~italic(P)*"("*italic(p)~
                                   symbol("\332")~ italic(q)* 
                                  "), -1 SD"), 
       cex = 1.2)
text(1, 0.8, 
   expression(low~italic(P)* 
               "("*symbol("\330")*italic(p)~symbol("\331")~ italic(q)*
               "), -1 SD"),
    cex = 1.2 )

これは、Symbol グリフとその 10 進インデックスを表示するために要求されたコードです。(注意: これは Mac の Symbol フォントです。これがどこでも同じであるという保証はありません。) 上記の形式 "\nnn" を使用するには、参照を 8 進数に変換する必要があります。

> as.octmode(216)
[1] "330"

TestChars <- function(sign = 1, font = 1, ...)
{
   MB <- l10n_info()$MBCS
   r <- if(font == 5) { sign <- 1; c(32:126, 160:254)
       } else if(MB) 32:126 else 32:255
   if (sign == -1) r <- c(32:126, 160:255)
   par(pty = "s")
   plot(c(-1,16), c(-1,16), type = "n", xlab = "", ylab = "",
        xaxs = "i", yaxs = "i",
        main = "Symbol Font, Decimal Indices")
   grid(17, 17, lty = 1) ; mtext(paste("MBCS:", MB))
   for(i in r) try(points(i%%16, i%/%16, pch = sign*i, font = font,...))

   for(i in r) try(text(x=i%%16, y=(i%/%16)-0.4, i, cex=0.5 , font = font,...))
}

TestChars(font = 5)

ここに画像の説明を入力

于 2013-08-21T00:17:10.920 に答える