请帮我看看这个代码醋错误在哪个地方

library(ggpubr)
setwd("C:\\Users\\ALIENWARE\\")            
rt=read.table("risk.txt",sep="\t",header=T,row.names=1,check.names=F)        
rt=rt[,3:(ncol(rt)-2)]
Type=read.table("clinical.txt",sep="\t",check.names=F,header=T)
row.names(Type)=Type[,1]
sameSample=intersect(row.names(Type),row.names(rt))
rt=rt[sameSample,]
Type=Type[sameSample,]
#准备
data=data.frame()
for(i in colnames(rt)){
  data=rbind(data,cbind(expression=rt[,i],gene=i,Type=as.vector(Type[,2])))
}
write.table(data,file="data.txt",sep="\t",row.names=F,quote=F)
#作图
data=read.table("data.txt",sep="\t",header=T,check.names=F)      
p=ggboxplot(data, x="gene", y="expression", color = "Type",
     ylab="lncRNA expression",
     xlab="",
     palette = rainbow(length(levels(data$Type))) )
p=p+rotate_x_text(45)
pdf(file="boxplot.pdf",width=7,height=5)                          
p+stat_compare_means(aes(group=Type),symnum.args=list(cutpoints = c(0, 0.001, 0.01, 0.05, 1), symbols = c("***", "**", "*", "ns")),label = "p.signif")
dev.off()

ggboxplot之后的代码应该没有问题，除非palette语句可能报错。
之前的数据准备和处理，由于没有你的原始数据，无法判断。
而且，你也没有说明到底是哪种报错信息，所以，你给大家出了个难题欧

另外，data=read.table("data.txt",sep="\t",header=T,check.names=F)    这行代码没有必要，因为data本来就在的，你重新读入数据，反倒可能会导致数据类型的改变。