Question

我试图在plot的y标签中使用斜体首字母Psi。到目前为止，我已经能够使用：

非斜体希腊语Psi
斜体字
斜体希腊语Beta

但是，我还没能使用斜体希腊语Psi。也许我没有使用正确的Psi代码？也许默认字体不包含Psi但包括Beta？

以下是我迄今为止提出的例子：

x <- 1:10
y <- x^1.5

# Greek symbol works
plot(y, x, type = 'l', col = 'black',
ylab = expression('Daily ' ~(1 - psi[13])),
xlab = 'my x label')

# italic word works
plot(y, x, type = 'l', col = 'black',
ylab = expression(italic('Daily ') ~(1 - psi[13])),
xlab = 'my x label')

# italic Greek Beta symbol works
# https://stackoverflow.com/questions/25732949/italic-greek-letters-in-r-plot
plot(y, x, type = 'l', col = 'black',
ylab = expression('Daily ' ~(1 - italic('\u03B2'[13]))),
xlab = 'my x label')

# italic Greek Psi symbol does not work
plot(y, x, type = 'l', col = 'black',
ylab = expression('Daily ' ~(1 - italic('\u03A8'[13]))),
xlab = 'my x label')

如果'\u03A8'不是Psi的正确代码，您能告诉我正确的代码是什么以及我在哪里找到它？我尝试过其他字体但没有成功，如下所示：

windows(family='serif')
plot(y, x, type = 'l', col = 'black',
ylab = expression('Daily ' ~(1 - italic('\u03A8'[13]))),
xlab = 'my x label')

windows(family='sans')
plot(y, x, type = 'l', col = 'black',
ylab = expression('Daily ' ~(1 - italic('\u03A8'[13]))),
xlab = 'my x label')

windows(family='symbol')
plot(y, x, type = 'l', col = 'black',
ylab = expression('Daily ' ~(1 - italic('\u03A8'[13]))),
xlab = 'my x label')

我检查了MSWord，我认为符号是03C8，而不是03A8。但是，'\u03C8' R无法使用greeks。

我也尝试过使用答案中描述的方法：

Italic greek letters in R plot?

这个答案似乎需要加载一个名为start_e <- expression() sapply( greeks[48,3], function(x) c(start_e, bquote(italic(.(intToUtf8(x))[13]) ) ) )的大型数据集。如果我这样做，然后使用这些行：

expression(italic("Ψ"[13]))

返回：

plot(y, x, type = 'l', col = 'black', 
ylab = sapply( greeks[48,3], function(x) c(start_e, bquote(italic(.(intToUtf8(x))) ) ) ),
xlab = 'my x label')

但是，如果我使用：

<U+03A8>

y-label是字符串： {{1}}

斜体希腊语Psi在y标签中的表达

0 个答案: