R 如何消除txt文件和数据帧中的符号

我有以下txt文件（T1）：

当我使用read.table时，我得到以下信息：

"sequence" "support"
"1" "<{OV147}>" 0.286903266331658
"2" "<{OV148}>" 0.121309673366834
"3" "<{OV188}>" 0.0820508793969849
"4" "<{OV191}>" 0.0793812814070352

a<- read.table(header=TRUE, text=' "sequence" "support"
"1" "<{\"OV147\"}>" 0.286903266331658
  "2" "<{\"OV148\"}>" 0.121309673366834
  "3" "<{\"OV188\"}>" 0.0820508793969849
  "4" "<{\"OV191\"}>" 0.0793812814070352
', quote = '')

a
X.序列。十、支持。
"1" ""   0.286903266331658
"2" ""   0.121309673366834
"3" ""  0.0820508793969849
"4" ""  0.0793812814070352

您可以使用带有适当正则表达式的

sub（）

来调整列名，然后调整

序列中的字符串：

names(a) <- sub("X\\.(.*)\\.", "\\1",  names(a))
a$sequence <- sub('<\\{"(.*)"\\}>', "<{\\1}>", a$sequence)

# sequence             support
# "1" "<{OV147}>"   0.286903266331658
# "2" "<{OV148}>"   0.121309673366834
# "3" "<{OV188}>"  0.0820508793969849
# "4" "<{OV191}>"  0.0793812814070352

通过键入
？sub
可以阅读有关
sub（）
的更多信息。您可以使用带有适当正则表达式的
sub（）
来调整列名，然后调整
序列中的字符串：

names(a) <- sub("X\\.(.*)\\.", "\\1",  names(a))
a$sequence <- sub('<\\{"(.*)"\\}>', "<{\\1}>", a$sequence)

# sequence             support
# "1" "<{OV147}>"   0.286903266331658
# "2" "<{OV148}>"   0.121309673366834
# "3" "<{OV188}>"  0.0820508793969849
# "4" "<{OV191}>"  0.0793812814070352

通过键入
？sub
可以阅读有关
sub（）
的更多信息。您可以使用带有适当正则表达式的
sub（）
来调整列名，然后调整
序列中的字符串：

names(a) <- sub("X\\.(.*)\\.", "\\1",  names(a))
a$sequence <- sub('<\\{"(.*)"\\}>', "<{\\1}>", a$sequence)

# sequence             support
# "1" "<{OV147}>"   0.286903266331658
# "2" "<{OV148}>"   0.121309673366834
# "3" "<{OV188}>"  0.0820508793969849
# "4" "<{OV191}>"  0.0793812814070352

通过键入
？sub
可以阅读有关
sub（）
的更多信息。您可以使用带有适当正则表达式的
sub（）
来调整列名，然后调整
序列中的字符串：

names(a) <- sub("X\\.(.*)\\.", "\\1",  names(a))
a$sequence <- sub('<\\{"(.*)"\\}>', "<{\\1}>", a$sequence)

# sequence             support
# "1" "<{OV147}>"   0.286903266331658
# "2" "<{OV148}>"   0.121309673366834
# "3" "<{OV188}>"  0.0820508793969849
# "4" "<{OV191}>"  0.0793812814070352

通过键入
，您可以阅读有关
sub（）
的更多信息。sub
gsub
将完成此工作

a$sequence <- gsub('"', "", a$sequence)

a$sequence
gsub
将完成此任务

a$sequence <- gsub('"', "", a$sequence)

a$sequence
gsub
将完成此任务

a$sequence <- gsub('"', "", a$sequence)

a$sequence
gsub
将完成此任务

a$sequence <- gsub('"', "", a$sequence)

a$sequence你试过什么吗
read.table
with
quote='
worked你试过什么吗
read.table
with
quote='
worked你试过什么吗
read.table
with
quote='
worked你试过什么吗<代码>读取.表格
带有
引号=''
workedThanks@hfty！为什么在get“-“4”“0.0793812814070352”@Avi的最后一个字符中，您在
read.table
示例的第4行键入了一个额外的
“
，而这不是原始文本文件？谢谢@hfty！为什么在get“-“4”“0.0793812814070352”的最后一个字符中，您键入了一个额外的
在您的
read.table
示例的第4行，哪个不在原始文本文件中？谢谢@hfty！为什么在get“-“4”“0.0793812814070352”@Avi的最后一个字符中，您在
read.table
示例的第4行键入了一个额外的
“
，而这不是原始文本文件？谢谢@hfty！为什么在get“-“4”“0.0793812814070352”的最后一个字符中，您键入了一个额外的
在您的
read.table
示例的第4行，哪个不在原始文本文件中？