R-解析函数不'；I don’我没有按预期工作

在下面的示例中（请注意y轴标签的差异），我使用变量填充

ggplot2

中的轴标签。有趣的是，

~

产生了更大的空格，并且在放大的

-

周围会出现额外的空格

库（ggplot2）
#LabelY看起来用倒钩括住连字符的术语将允许您保留连字符，而不是在短划线中旋转它

在这里，我将轴标签的新连字符版本放在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))

LabelY需要什么才能说服你反对Comic Sans字体？你想“导入”什么类型的“复杂字符串”？@RomanLuštrik我没有实际使用它，这只是我可以随时修改的最适用的MWE。我的最后一个问题是试图让字体正常工作，我需要一些明显可见的东西来证明成功的改变。@Spacedman总体来说，它们很简单，但正如我提到的，它们包含
顶部
和希腊字符，例如
顶部（释放TNF-{alpha}，（治疗/控制））
。其他示例可能包含sub和superscripts，但使用parse时，它实际上并不是我遇到问题的字符串的集合，因此我使示例变得更简单。通过导入，我的意思是这个字符串保存在数据库中，并以可变格式检索、存储和解析。那么所有的extrafont内容都与您的问题相关吗？还是用默认字体显示？你能重做一个例子，把文本放在X轴上吗？因为这样我就不会那么疼脖子了（而且间距问题可能更明显）。谢谢！不过，就为了子孙后代，我实际上从
parse（text=“Miles~per~galler{'-'}Car”）
中得到了同样的效果，但没有真正的区别。再次感谢@这只鸟很有趣。如果我尝试这样做，我会得到一个解析错误，我想我一定是误解了你之前的评论。我使用的是R3.2.3，但不知道这是否有区别。对不起，我认为我在复制并粘贴你的最后一行时有输入错误。它应该是引号上的大括号对，而不仅仅是1个开合集，因为我的外部拉取值很难解析这些引号。我不记得了，因为我用了你们更简单、更简洁的方法。
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))