R语言中的特殊字符

Question

我有一张桌子，看起来像这样：

1β              2β     
1.0199e-01        2.2545e-01       
2.5303e-01        6.5301e-01
1.2151e+00        1.1490e+00

依旧......

我想制作一个这个数据的箱线图。我正在使用的命令是：

pdf('rtest.pdf')
 w1<-read.table("data_CMR",header=T)
 w2<-read.table("data_C",header=T)
boxplot(w1[,], w2[,], w3[,],outline=FALSE,names=c(colnames(w1),colnames(w2),colnames(w3)))
dev.off()

问题是代替符号beta（β），我在输出中得到两个点（..）。

任何建议，解决这个问题。

提前谢谢。

Answer 1

使用check.names的建议将阻止“X”附加到“1β”和“2β”，否则即使编码被整理出来也会发生（因为列名不应该以数字开头）。 （也可以使用boxplot的“names”参数。）

w1<-read.table(text="1β              2β     
 1.0199e-01        2.2545e-01       
 2.5303e-01        6.5301e-01
 1.2151e+00        1.1490e+00",header=TRUE, check.names=FALSE, fileEncoding="UTF-8")
boxplot(w1)

Answer 2

这也有效

pdf('rtest.pdf')
w1<-read.table("data_CMR",header=T) 
w2<-read.table("data_C",header=T) 
one<-expression(paste("1", beta,sep="")) 
two <- expression(paste("2", beta,sep="")) 
boxplot(w1[,], w2[,], w3[,],outline=FALSE, names=c(one,two)) 
dev.off()

Answer 3

这可能是编码问题。尝试将encoding='UTF-8'添加到read.table语句中。

w1<-read.table("data_CMR",header=T,encoding='UTF-8')