У меня проблемы с работой с формулой, как с текстом. То, что я пытаюсь сделать, это объединить формулу в заголовок графика. Однако, когда я пытаюсь работать с формулой, как с текстом, я терпеть неудачу:
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
, но я думаю, что это такая основная вещь, что она заслуживает решения в среде по умолчанию!