Sweave를 사용하여 2x2 플롯의 R - 4 플롯

Question

한 페이지에 맞도록 2x2 플롯에 4 개의 플롯을 붙이고 싶습니다. 나는 Sweave 패키지를 사용하여 PDF를 라텍스로 생성합니다.

이것은 내 코드이지만 각 플롯을 단일 페이지로 생성합니다. 대신 함께 하위 도면을 sweave 노력의

<<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?") 
@ 

Answer 1

, 나는 Sweave 하나의 플롯을 만들 par를 사용하여 R의 플롯을 결합에서 텍스트 참조를 하위 도면 문자를 추가합니다. 예 :

<<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") 
@