여러 가지 빛깔의 텍스트

Question

인사말,

내가 초기 값을 필요

early <- 30 
ontime <- 70 
late <- 25 

txt <- paste(early, ontime, late, sep='/') 
plot(1:2, type='n') 
text(1.5, 1.5, txt) 

예를 들어 내 차트에 여러 가지 빛깔의 텍스트를 표시 할 필요가

, ontime, 후반 TXT에, 청색, 녹색 및 적색 각기.

그러나 나는 내가 http://blog.revolutionanalytics.com/2009/01/multicolor-text-in-r.html

당신의 도움이

Answer 1

주셔서 감사합니다 내 문제에 적응 할 수 없습니다, 제목에 여러 가지 빛깔의 텍스트에 다음과 같은 글을 발견하는 방법 Jim Lemon 쓴이 코드에 대해? 이 같은 줄 것이라고 언급 exampe 다음

concat.text<-function(x,y,txt,col) { 
    thisx<-x 
    for(txtstr in 1:length(txt)) { 
     text(thisx,y,txt[txtstr],col=col[txtstr],adj=0) 
     thisx<-thisx+strwidth(txt[txtstr]) 
    } 
} 
plot(0,xlim=c(0,1),ylim=c(0,1),type="n") 
ctext<-c("Roses are ","red, ","violets are ","purple") 
concat.text(0,0.5,ctext,col=c("black","red","black","purple")) 

Answer 2

:이 기능은 잘 작동

early <- 30 
ontime <- 70 
late <- 25 

txt <- paste(early, ontime, late, sep='/') 
plot(1:2, type='n') 
vars <- list(early=early,ontime=ontime,late=late) 
cols <- c('red', 'green', 'blue') 
for (i in 1:3) { 
    tmpvars <- vars 
    tmpvars[-i] <- paste("phantom(",tmpvars[-i],")",sep="") 
    expr <- paste(tmpvars, collapse="*") 
    text(1.5, 1.5, 
     parse(text=expr), 
     col=cols[i]) 
}