플롯 제목, 레이블 등의 문자열 및 표현

Question

사용자가 제공 한 문자열과 고정 된 문자열을 플롯 제목에 붙여 넣으려고합니다.

물론, 작동하는 간단한 경우 :

userTitle <- "user title" # Example 1 
fullTitle <- paste(userTitle, ": Results", sep = "") 
plot(1:10, main = fullTitle) 

그러나 사용자의 제목은 식을 포함하면 무엇? 다음은 내가 시도한 몇 가지 사항입니다.

# This works, but doesn't include the fixed string # Example 2 
userTitle <- expression(italic(Genus)~italic(species)) # EDIT: this was missing 
fullTitle <- bquote(.(userTitle)) 
plot(1:10, main = fullTitle) 

고정 된 문자열을 추가하십시오. 확실히 일을 몇 가지 :

fullTitle <- bquote(.(userTitle)~':'~Results) # Example 3 
plot(1:10, main = fullTitle) # title missing .(userTitle) 

fullTitle <- bquote(paste("Results:", .(userTitle))) # Example 4 
plot(1:10, main = fullTitle) # title missing .(userTitle) 

그러나이 예, 잘 here 작품에서 [편집 : 링크가 잘못된 질문이었다].

x<- 232323 
plot(1:10, main = bquote(paste(ARL[1], " curve for ", S^2, "; x=",.(x)))) 

예제 4는이 마지막 부분과 거의 비슷하지만 동일하게 동작하지 않습니다. bquote, expression, substitute의 조합이 너무 많아서 나는 많은 답을 보았습니다. 그러나 나는 정말 작은 것을 놓치고있을 가능성이 큽니다. 이 경우 사용자 문자열에 표현식이 포함 된 경우 사용자 문자열과 고정 문자열을 함께 얻는 방법에 대한 조언이 필요합니까? 감사. 식으로 지금

userTitle <- italic(Genus)~italic(species) 
plot(1, 1., main=substitute(userTitle*": Results" , 
           list(userTitle=userTitle))) 

을 그리고 :

Answer 1

나는 공식 그것을 할 수

userTitle <- expression(italic(Genus)~italic(species)) 
plot(1, 1, main= bquote(.(eval(userTitle))*":"~Results))