R - функция синтаксического разбора не работает должным образом

Question

В следующем примере (обратите внимание на различия в меток оси Y) Я использую переменную, чтобы заполнить метку оси в ggplot2. Интересно, что ~ производит намного большие пространства, а дополнительные пространства появляются вокруг увеличенного -.

library(ggplot2) 

#LabelY <- "Miles per Gallon-Car" 
LabelY <- parse(text="Miles~per~Gallon-Car") 

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() + 
     ggtitle("Fuel Efficiency of 32 Cars") + 
     xlab(LabelY) + ylab(LabelY) + 
     theme(text=element_text(size=16)) 
print(a) 

Я использую разобрана, потому что это позволяет мне использовать более сложные примеры, включая atop и греческие буквы.

Есть ли способ использовать синтаксический анализ для импорта сложных строк, а также сохранения желаемого «менее распространенного» внешнего вида содержимого?

Answer 1

Похоже, что приложенный переносимый термин с backticks позволит вам удерживать дефис вместо того, чтобы превращать его в тире.

Здесь я положил новую переносную версию метки оси на ось x и оставил ось y в качестве оригинала для сравнения.

LabelY <- parse(text="Miles~per~Gallon-Car") 
LabelY2 <- parse(text="Miles~per~`Gallon-Car`") 

ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() + 
    ggtitle("Fuel Efficiency of 32 Cars") + 
    xlab(parse(text = LabelY2)) + ylab(LabelY) + 
    theme(text=element_text(size=16)) 

Как указано в комментариях, вы можете также использовать фигурные скобки и одной комбинации кавычки вокруг дефис термина, чтобы получить тот же эффект.

parse(text="Miles~per~{'Gallon-Car'}")