Передача изображения с TiKz с помощью ggplot - PullRequest
Новая
       15

Передача изображения с TiKz с помощью ggplot

0 голосов
/ 27 августа 2018

У меня есть график, построенный с помощью ggplot, который нуждается в повторном масштабировании.Я добавил немного латексного текста к заголовкам и меткам оси, и это, кажется, влияет на масштабирующий аспект моей фигуры.

Например, возьмите заголовок оси Y на рисунке ниже.Я добавил довольно длинную латексную текстовую команду, которая не интерпретируется в окне R, поэтому он сжимает график, чтобы подогнать этот текст.Однако, поскольку я использую его в качестве кода TikZ в своем латексном документе, этот текст на самом деле довольно мал.Тем не менее, фигура все еще остается с нечетным соотношением высоты и ширины.

enter image description here

Как сохранить текст латекса, но при этом увеличить ширину графика?

Большое спасибо, Бест

Вот дословный код: 

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))
...