Change XAxis этикетки для конкретных букв R

Question

Im делает много участков в R и часть моего кода выглядит следующим образом:

plot(x=0,y=0, type="n", ylim=c(0,250), xlim=c(0,8), bty="n", main = "Line 20 male 3 sec rep 2", 
    xlab = "Concentration", ylab = "MM above buttom") 
fc <- levels(dat20m2$Conc) 
for(i in 1:length(fc)){ 
    tmp <- dat20m2[dat20m2$Conc==fc[i],] 
    points(y=tmp$t30.sum,x=rep(i,length(tmp$t30))) 
    points(y=mean(tmp$t30.sum),x=i,col="red") 
} 
abline(lm(t30.sum~as.integer(Conc),data=dat20m2), lty=2) 

Моя ось х от 0: 8, но то, что я хотел бы, чтобы be A, B, C, D, E, X, Y и i могут заставить его работать с алфавитом, но когда я хочу прыгнуть на некоторые буквы, я попадаю в беду. Может ли кто-нибудь помочь мне с этим?

Answer 1

plot(x=0,y=0, type="n", ylim=c(0,250), xlim=c(0,8), bty="n", main = "Line 20 male 3 sec rep 2", 
    xlab = "Concentration", ylab = "MM above buttom", xaxt="n") 

## added xaxt="n" 
## and the axis code below 
axis(1,at=0:7,labels=c("0","A","B","C","D","E","X","Y")) 
fc <- levels(dat20m2$Conc) 
for(i in 1:length(fc)){ 
    tmp <- dat20m2[dat20m2$Conc==fc[i],] 
    points(y=tmp$t30.sum,x=rep(i,length(tmp$t30))) 
    points(y=mean(tmp$t30.sum),x=i,col="red") 
} 
abline(lm(t30.sum~as.integer(Conc),data=dat20m2), lty=2) 

Я получил ответ от here и я изменен кода путем добавления двух частей, описанных знаками двойного фунта. Надеюсь это поможет.