<br />
out_list <- 1<br />
out_path <- "中文.txt"<br />
write.table(out_list,col.names=F,row.names=F,sep="\t", file=out_path)<br />
中文文件名通过……</p>
写一个文本文件，names.txt,一共三行：（ANSI编码）
中文1
中文2
中文3
然后
<br />
names <- read.table("names.txt", quote="\"")<br />
out_list <- 1<br />
out_path <- paste(names[1,1],"().txt",sep="")<br />
write.table(out_list,col.names=F,row.names=F,sep="\t", file=out_path)<br />
乱码文件名。ÖÐÎÄ1().txt</p>
将names.txt转为UTF-8编码，重新运行上面的code。然后，继续乱码文件名：ä¸æ–‡1().txt
<br />
sessionInfo()<br />
R version 2.14.0 (2011-10-31)<br />
Platform: i386-pc-mingw32/i386 (32-bit)<br />
locale:<br />
[1] LC_COLLATE=English_United States.1252 LC_CTYPE=English_United States.1252<br />
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C<br />
[5] LC_TIME=English_United States.1252<br />
attached base packages:<br />
[1] stats graphics grDevices utils datasets methods base<br />
loaded via a namespace (and not attached):<br />
[1] tools_2.14.0</p>
<p>
</p>
