如何将编码(如编码、编码)转换为编码字符串？

Question

如何通过代码指定单个字符，并生成字符向量？

在Python 3中，您可以执行以下操作

''.join(map(chr, range(255)))

当前的应用程序是使用pdf和Base14字体制作字符代码图，供以后参考。

我在找类似的东西

foo <- function(x, y) {
    # WHAT GOES HERE?
}

bar <- foo(0:255, "PDF")

然后

pdf(file="~/test.pdf", what else?)
plot(0)
text(0, 0, labels=bar)

应该用与bar对应的任何字符来标记(0，0)。

Answer 1

as.raw()函数将数字转换为原始字符代码。rawToChar()函数将这些字符转换为字符。一个复杂的问题是，除了Windows之外，大多数系统现在都使用UTF-8编码，这些编码都是多字节编码，但并不是所有的值都与合法字符相对应。

如果你尝试，你会得到一个错误

rawToChar(as.raw(0:255))

因为0不是字符串中的合法字节。如果你试着

rawToChar(as.raw(1:255))

您将在我的控制台中得到像这样打印的字符串：

[1] "\001\002\003\004\005\006\a\b\t\n\v\f\r\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037 !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\177\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8a\x8b\x8c\x8d\x8e\x8f\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9a\x9b\x9c\x9d\x9e\x9f\xa0\xa1\xa2\xa3\xa4\xa5\xa6\xa7\xa8\xa9\xaa\xab\xac\xad\xae\xaf\xb0\xb1\xb2\xb3\xb4\xb5\xb6\xb7\xb8\xb9\xba\xbb\xbc\xbd\xbe\xbf\xc0\xc1\xc2\xc3\xc4\xc5\xc6\xc7\xc8\xc9\xca\xcb\xcc\xcd\xce\xcf\xd0\xd1\xd2\xd3\xd4\xd5\xd6\xd7\xd8\xd9\xda\xdb\xdc\xdd\xde\xdf\xe0\xe1\xe2\xe3\xe4\xe5\xe6\xe7\xe8\xe9\xea\xeb\xec\xed\xee\xef\xf0\xf1\xf2\xf3\xf4\xf5\xf6\xf7\xf8\xf9\xfa\xfb\xfc\xfd\xfe\xff"

如果在multiple = TRUE调用中使用rawToChar，将从每个字节中得到一个单独的字符串；在这种情况下，空字符串可以包含0。这将绘制表格：

nibble1 <- rep(0:15, each=16)
nibble2 <- rep(0:15, 16)
byte <- nibble1*16 + nibble2
pdf("table.pdf")
plot(nibble1, nibble2, type = "n") 
text(nibble1, nibble2, rawToChar(as.raw(0:255), multiple = TRUE))
dev.off()

但是，这不是编码，而是系统上使用的任何编码。如果您确实希望看到Adobe编码，则需要在显示之前将其转换为Unicode。这很棘手，因为iconv() (至少在我的系统上)不知道Adobe编码。然而，这种情况是这样的：

ASE2Unicode <- read.delim("ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/ADOBE/stdenc.txt", 
                          comment.char="#", head=FALSE)
ASE2Unicode$V1 <- strtoi(ASE2Unicode$V1, 16)
ASE2Unicode$V2 <- strtoi(ASE2Unicode$V2, 16)
chars <- rep("", 256)
chars[ASE2Unicode$V2] <- intToUtf8(ASE2Unicode$V1, multiple = TRUE)
pdf("table2.pdf")
plot(nibble1, nibble2, type = "n") 
text(nibble1, nibble2, chars)
dev.off()

这只是“某种程度上的”，因为有些角色无法在翻译后存活下来：

​

​