如何将字符列拆分成多个列，然后再拆分成R中的二进制？

# 字符列拆分成多个列
string <- "Hello,World"
split_strings <- strsplit(string, ",")[[1]]  # 使用逗号作为分隔符拆分字符串
df <- data.frame(split_strings)  # 将拆分后的子字符串转换为数据框

# 拆分成R中的二进制
binary <- sapply(df$split_strings, function(x) as.integer(charToRaw(x)))  # 将每个子字符串转换为二进制表示
df_binary <- data.frame(binary)  # 将二进制表示转换为数据框

# 输出结果
print(df_binary)

  binary.1 binary.2 binary.3 binary.4 binary.5 binary.6 binary.7 binary.8 binary.9 binary.10 binary.11
1       48       65       6c       6c       6f       2c       57       6f       72        6c        64