用ggplot进行TiKz图片重新缩放

Question

我有一个用ggplot构造的图，需要重新缩放。我在轴标题和标签上添加了一些乳胶文本，这似乎影响了图形的缩放比例。

例如，在下图中以y轴标题为例。我添加了一个相当长的乳胶文本命令，该命令在R窗口中未解释，因此它挤压图形以使该文本适合。但是，由于我在乳胶文档中将其用作TikZ代码，因此该文本实际上很小。但是，该图仍然保留着奇特的高宽比。

如何保留乳胶文字，但仍增加图形的宽度？

非常感谢， 最好

这是逐字代码：

loPlot <- ggplot(data=loPlotDF, aes(x=x, y=y,group=`g1`,color=`g1`)) + geom_line(size=1) +
  labs(x=paste(paraAxis,' ','(',paraStr,')',sep=""),y=expression('$\\frac{y}{K}$')) +
  geom_segment(x = paraValue, y = 0, xend = paraValue, yend = 9.6,color = "black", size=1) +
  geom_text(data = calibDF,aes(x=clb,y=yMax,label=Name),
            size=5,angle=90,
            inherit.aes=FALSE,hjust=1, vjust=1,color="red") +
  theme(plot.title = element_text(lineheight=.8, face="bold")) + theme_bw() +
  theme(axis.line = element_line(colour = "black"),text = element_text(size=14),
        axis.text.x = element_text(colour = colourLabels),
        axis.title.y = element_text(angle = 0,vjust=0.5),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),legend.title=element_text(size=12))