在R中生成全角字符串

Question

在 R 中，如何实现以下内容：

转换此字符串："my test string"

像这样（全角字符串）："ｍｙｔｅｓｔｓｔｒｉｎｇ"

有没有办法通过十六进制字符编码来做到这一点？

感谢您的帮助，我真的不知道如何开始。也许有 {stringr}

我正在尝试从这个在线转换工具中获得类似于我期望的输出：

http://www.linkstrasse.de/en/%EF%BD%86%EF%BD%95%EF%BD%8C%EF%BD%8C%EF%BD%97%EF%BD%89%EF%BD%84%EF%BD%94%EF%BD%88%EF%BC%8D%EF%BD%83%EF%BD%8F%EF%BD%8E%EF%BD%96%EF%BD%85%EF%BD%92%EF%BD%94%EF%BD%85%EF%BD%92

Answer 1

这是一个可能的解决方案，使用存档 Nippon package. This is the han2zen function, which can be found here 中的函数。

x <- "my test string"

han2zen <- function(s){
  stopifnot(is.character(s))
  zenEisu <- paste0(intToUtf8(65295 + 1:10), intToUtf8(65312 + 1:26),
                    intToUtf8(65344 + 1:26))
  zenKigo <- c(65281, 65283, 65284, 65285, 65286, 65290, 65291,
               65292, 12540, 65294, 65295, 65306, 65307, 65308,
               65309, 65310, 65311, 65312, 65342, 65343, 65372,
               65374)
  s <- chartr("0-9A-Za-z", zenEisu, s)
  s <- chartr('!#$%&*+,-./:;<=>?@^_|~', intToUtf8(zenKigo), s)
  s <- gsub(" ", intToUtf8(12288), s)
  return(s)
}


han2zen(x)

# [1] "ｍｙ　ｔｅｓｔ　ｓｔｒｉｎｇ"

在R中生成全角字符串

Generate full width character string in R

r

character-encoding

stringr