r - 情节标题、标签等中的字符串和表达式

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 的组合太多了，我看了很多答案，但我可能确实遗漏了一些东西小的。如果在这种情况下用户字符串包含表达式，关于如何将用户字符串和固定字符串放在一起的任何建议？谢谢。

Answer 1

我可以用一个公式来做:

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

现在用一个表达式:

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