R, Latex, Sweave, ggplot2 - изменить размеры ggplot

Question

Я работаю над докладом R Sweave. И у меня возникают некоторые трудности с параметрами ggplot в выпуске sweave pdf. Мой код:

\documentclass{report} 

\begin{document} 

demo demo demo demo demo demo demo demo demo demo demo demo 

\begin{figure}[h] 
\begin{center} 
<<echo=FALSE, fig=TRUE>>= 
require(ggplot2) 
df <- data.frame(a= c(1:10), b = c (10:1)) 

ggplot(data = df, aes(a, b)) + geom_line() 
@ 
    \caption{caption} 
\end{center} 
\end{figure} 

demo demo demo demo demo demo demo demo demo demo demo demo 

\end{document} 

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

Спасибо за ваше время.

Answer 1

Посмотрите на функцию ggsave.latex() из пакета AFLP, который доступен на R-Forge

install.packages("AFLP", repos="http://R-Forge.R-project.org") 

Тогда ваш Sweave файл упрощает для этого

\documentclass{report} 

\begin{document} 

demo demo demo demo demo demo demo demo demo demo demo demo 

<<echo=FALSE, results = tex>>= 
require(ggplot2) 
ggsave.latex <- AFLP:::ggsave.latex 
df <- data.frame(a= c(1:10), b = c (10:1)) 
p <- ggplot(data = df, aes(a, b)) + geom_line() 
ggsave.latex(p, filename = "myplot.pdf", width = 2, height = 10, caption = "Your caption") 
@ 

demo demo demo demo demo demo demo demo demo demo demo demo 

\end{document} 

Answer 2

Вы могли бы попробовать с использованием пакета knitr. (Полное раскрытие: я являюсь второстепенным участником кодовой базы этого пакета), который позволяет указать out.width, который контролирует ширину рисунка. Итак, вы можете переписать свой кусок кода как

<<echo=FALSE, out.width = '0.9\\textwidth'>>= 
suppressMessages(require(ggplot2)) 
df <- data.frame(a= c(1:10), b = c (10:1)) 
ggplot(data = df, aes(a, b)) + geom_line() 
@ 

Answer 3

Большое спасибо, Рамнат. FWIW, я вставляю полный код здесь:

\documentclass{report} 

\begin{document} 

demo demo demo demo demo demo demo demo demo demo demo demo 

\begin{figure}[h] 
<<echo=FALSE, fig.align='center', out.width='0.9\\textwidth', message=FALSE>>= 
require(ggplot2) 
df <- data.frame(a= c(1:10), b = c (10:1)) 
ggplot(data = df, aes(a, b)) + geom_line() 
@ 
    \caption{caption} 
\end{figure} 

demo demo demo demo demo demo demo demo demo demo demo demo 

\end{document} 

I Добавлен опциям fig.align='center' к центру фигуры (вам не нужно использовать \begin{center} и \end{center} в латексе, которые иногда могут центровку выравнивать неожиданный материал в документе), и message=FALSE для подавления сообщений от require(ggplot2).

Вы можете составить документ по:

library(knitr) 
knit('your_document.Rnw')