Trả lại ký tự được liên kết với mã Ascii được chỉ định trong R

Question

Chào buổi chiều,

Tôi đang cố gắng tạo một sản phẩm Descartes trong R bằng các chữ cái trong bảng chữ cái.

Những gì tôi đang thực sự cố gắng là thế này:

Trước tiên tôi tạo ra một ma trận với các chữ cái

a <- as.matrix(seq(97,122,by=1)) 

Sau đó, tôi tạo ra một khung dữ liệu với 2 cột với tất cả các kết hợp

b <- expand.grid(a, a) 

Cuối cùng, tôi kết hợp 2 cột

apply(b,1,paste,collapse=" ") 

Vấn đề tôi gặp phải là tôi không thể tìm ra cách để biến những "số thập phân" đó thành ký tự Ascii của nó.

Tôi đã thử một vài thứ như rawToChar và gsub không thành công.

Ai đó có thể chỉ cho tôi đúng hướng không?

Cảm ơn

Answer 1

phương pháp trực tiếp đầu tiên:

res <- do.call(paste, expand.grid(letters, letters)) 

Nếu bạn đã một số giá trị ascii khác và bạn muốn để có được nhân vật tương đương:

val <- 65:96 # whatever values you want the equivalent characters for 
mode(val) <- "raw" # set mode to raw 
# alternatively, val <- as.raw(65:96) 
a <- sapply(val, rawToChar) 
res <- do.call(paste, expand.grid(a, a)) 

Answer 2

Để in một char ASCII trong R bạn có thể sử dụng chức năng print với một dấu chéo ngược \ trước khi một số mã ASCII. Ví dụ để in ký tự tương đương với 150 sử dụng print("\150").

Hoặc ví dụ của bạn ở trên, bạn có thể thử:

a <- sapply(97:122,function(x) rawToChar(as.raw(x))) 

b <- expand.grid(a,a) 

c <- t(apply(b,1,function(x) paste(x[1],x[2]))) 

Answer 3

Cách rất dễ dàng để trả về một ký tự dựa trên mã ASCII của nó là hàm intToUtf8. Nó cũng hoạt động cho các vectơ bao gồm nhiều số nguyên và trả về các ký tự tương ứng dưới dạng một chuỗi.

vec <- 97:122 
intToUtf8(vec) 
# [1] "abcdefghijklmnopqrstuvwxyz" 

intToUtf8(65) 
# [1] "A"