r - 在每个字符处拆分字符串

Question

我想拆分字符串中的每个字符并将其输出为逗号或制表符分隔的字符:
我需要使用 file_in和 file_out因为我有很多行。

输入

TTTGGC
TTTG
TGCAATGG
....
....

输出

T,T,T,G,G,C
T,T,T,G
T,G,C,A,A,T,G,G

我用过这个，但它垂直打印每个字符:

  /usr/bin/perl
   use strict;
   use warnings;

    my $data = 'Becky Alcorn';

   my @values = split(undef,$data);

  foreach my $val (@values) {
   print "$val\n";
  }

  exit 0;

Answer 1

在 R 中，您可以使用 strsplit和 paste :

Strings <- c("TTTGGC","TTTG","TGCAATGG")
vapply(strsplit(Strings, ""), function(x) paste(x, collapse=","), character(1L))
# [1] "T,T,T,G,G,C"     "T,T,T,G"         "T,G,C,A,A,T,G,G"

您可以使用 writeLines 编写输出, 指定 sep = "\n"如果需要的话。