我无法像处理文本一样处理公式.我想做的是将公式连接到图表的标题.然而，当我试图像处理文本一样处理公式时，我失败了:
model <- lm(celkem ~ rok + mesic)
formula(model)
# celkem ~ rok + mesic
这很好.现在我想构建"my text celkem ~ rok + mesic"这样的字符串——这就是问题所在:
paste("my text", formula(model))
# [1] "my text ~" "my text celkem" "my text rok + mesic"
paste("my text", as.character(formula(model)))
# [1] "my text ~" "my text celkem" "my text rok + mesic"
paste("my text", toString(formula(model)))
# [1] "my text ~, celkem, rok + mesic"
现在我看到gtools包中有一个sprint函数，但我认为这是一个非常基本的东西，它应该在默认环境中得到一个解决方案！！