R-4使用Sweave繪製2x2圖

我想在2x2繪圖中粘貼四張圖以適合單個頁面。我正在使用Sweave包來用Latex生成PDF。R-4使用Sweave繪製2x2圖

這是我的代碼，但是，它會將每個圖形生成爲單個頁面。

<<plot1, fig=TRUE, echo=FALSE>>= 
slices <- c(3, 1,1) 
lbls <- c("Bien", "Regular", "Mal") 
pie(slices, labels = lbls, main="¿Cómo te está sentando la medicación?") 
@ 

<<plot2, fig=TRUE, echo=FALSE>>= 
slices <- c(2, 2,1) 
lbls <- c("Si", "Puedo mejorarla", "No") 
pie(slices, labels = lbls, main="¿Estás llevando una alimentación adecuada?") 
@ 

<<plot3, fig=TRUE, echo=FALSE>>= 
slices <- c(1, 1,3) 
lbls <- c("Si", "Puedo hacer más", "No") 
pie(slices, labels = lbls, main="¿Realizas suficiente ejercicio físico?") 
@ 

<<plot4, fig=TRUE, echo=FALSE>>= 
slices <- c(3, 3, 1,4,1) 
lbls <- c("Contento", "Tranquilo", "Enfadado", "Bien", "Nervioso", "Deprimido") 
pie(slices, labels = lbls, main="¿Cómo te has sentido anímicamente esta semana?") 
@

來源

2017-10-19 R user

使用'par（mfrow = c（2,2））'並且僅使用Sweave創建一個繪圖。 – Mikko

謝謝@Mikko，我如何使用Sweave創建獨特的情節？ –

@R_user：你的意思是交叉參考嗎？我會結合使用上述建議的情節，併爲每個子情節添加字母。例如，請參閱：http：//seananderson.ca/2013/10/21/panel-letters.html – Mikko

，而不是試圖在子圖sweave在一起，我會創造一個Sweave情節，R中使用par結合地塊，並添加子圖字母在文本引用。例如：

<<plot1, fig=TRUE, echo=FALSE>>= 
par(mfrow = c(2,2)) 

slices <- c(3, 1,1) 
lbls <- c("Bien", "Regular", "Mal") 
pie(slices, labels = lbls, main="¿Cómo te está sentando la medicación?") 
legend("topleft", letters[1], bty = "n") 

slices <- c(2, 2,1) 
lbls <- c("Si", "Puedo mejorarla", "No") 
pie(slices, labels = lbls, main="¿Estás llevando una alimentación adecuada?") 
legend("topleft", letters[2], bty = "n") 

slices <- c(1, 1,3) 
lbls <- c("Si", "Puedo hacer más", "No") 
pie(slices, labels = lbls, main="¿Realizas suficiente ejercicio físico?") 
legend("topleft", letters[3], bty = "n") 

slices <- c(3, 3, 1,4,1) 
lbls <- c("Contento", "Tranquilo", "Enfadado", "Bien", "Nervioso", "Deprimido") 
pie(slices, labels = lbls, main="¿Cómo te has sentido anímicamente esta semana?") 
legend("topleft", letters[4], bty = "n") 
@

來源

2017-10-19 14:04:21 Mikko

R-4使用Sweave繪製2x2圖

回答

相關問題