特殊字符的矩阵/数据框

Question

我正在尝试构建一个包含特殊字符的 R 矩阵/数据框。例如，一个单元格将包含"2\u00B15\u00B3"（即“2±5³”）。

我需要在上标中使用拉丁小写字母，而不是数字上标，我只能找到 Unicode for few alphabets as superscripts。

我熟悉绘图函数中的所有特殊符号（例如用于标记轴、标题等），但我需要矩阵中的“上标”。

编辑：我想做这样的事情，只有一个例外，而不是 3.5\u00B12\u00B3 的上标中的 3，我想要拉丁字母。

require(rtf)
rtf<-RTF("./Doc/test_addTable.doc",width=8.5,height=11,font.size=10,omi=c(1,1,1,1))

A = data.frame(Sepal.Length = c(5.1, 4.9, 4.7, 4.6, 5, 5.4),
Sepal.Width = c(3.5, 3, 3.2, 3.1, 3.6, 3.9),
Petal.Length = c(1.4,  1.4, 1.3, 1.5, 1.4, 1.7), Petal.Width = c(0.2, 0.2, 0.2,0.2,0.2, 0.4))

A[1,2] = "3.5\u00B12\u00B3"

addTable(rtf,A,font.size=10,row.names=FALSE,NA.string="-",col.widths=rep(1,4))

done(rtf)

感谢您的宝贵时间。

Answer 1

在 R 中有一个类似于 mini-LaTeX 的系统，但称为“plotmath”。它被赶出表达式对象，并在表达式达到 text=plotting 值时被调用。如果你不打算绘制它，那么拥有这样一个矩阵并没有多大意义，所以我将说明如何将字符值提升为上标。

?plotmath
plot(1,1)
text( x=c(.8), y=c(1.2), substitute( 2%+-%5^x, list(x="A") ))

这比单个实例可能需要的要复杂一些，但这是为了提高通用性。你也可以这样做：

text( x=c(.8), y=c(.8), expression(2%+-%5^B) )

如果你只想要一个 plotmath 矩阵（字符形式）：

mat <- matrix( c( '2%+-%5^B' , '2%+-%5^C',
                  '2%+-%5^D' , '2%+-%5^B'), 2, 2)
mat

你不能（或者至少我不能）真正构造一个真正的 R 表达式对象作为矩阵：

 mat <- matrix( expression(2%+-%5^B , 2%+-%5^C,
                   2%+-%5^D , 2%+-%5^B), 2, 2)
     mat
#expression(2 %+-% 5^B, 2 %+-% 5^C, 2 %+-% 5^D, 2 %+-% 5^B)
> str(mat)
length 4 expression(2 %+-% 5^B, 2 %+-% 5^C, 2 %+-% 5^D) ...
 - attr(*, "dim")= int [1:2] 2 2
> mat[1,1]
Error in mat[1, 1] : matrix subscripting not handled for this type
> mat[1]
expression(2 %+-% 5^B)
> mat[2]
expression(2 %+-% 5^C)
> mat[3]
expression(2 %+-% 5^D)

我确实设法让矩阵函数将维度附加到表达式对象，但 print 和 [ 都不会尊重该维度。我仍然不清楚目标。在rtf 包中，我看到了 addTable 方法，我想知道您是否真的想要一个对象，该对象将由支持 rtf 的应用程序以“矩阵”或表格形式打印？

哈....我想我有它：

 mat <- matrix( c( '2\\+/-5 {\\up3B}' , '2%+-%5 \\up5C',
                   '2%+-%5\\up3B' , '2%+-%5\\up4H'), 2, 2)
 mat
#     [,1]               [,2]          
#[1,] "2\\+/-5 {\\up3B}" "2%+-%5\\up3B"
#[2,] "2%+-%5 \\up5C"    "2%+-%5\\up4H"
 rtf<-RTF("test_addTable.doc",width=8.5,height=11,
                  font.size=10,omi=c(1,1,1,1))
 addTable(rtf, mat)
 done(rtf)

此外，我想我已经找出了加减号。试试：

 "2\\u177BD5 {\\up3B}"