2013-07-23 58 views
1

這裏新降價...可能是缺少一些簡單的...我試圖創建一個帶for循環中生成的情節的降價文檔,但要防止包裹情節==即保留一列。防止/停止在r markdown中包裝的情節

這與此處顯示的內容類似:Knitr how to prevent text wrapping in output。我無法得到這個工作的情節。

理想情況下,它們之間可能會有換行符。我發現this,但我不熟悉pandoc,它正在爲我想保持簡單的目的添加另一層。如果這是最好的解決方案,會走這條路線,但我敢打賭有一些更簡單的方法。把這些情節放在桌子上?有沒有計算過,出來呢......

示例代碼(因爲第一篇文章編輯):

```{r} 
value <- rnorm(100) 
index <- c(rep(1,20),rep(2,20),rep(3,20),rep(4,20),rep(5,20)) 
group1 <- 1:5 
group2 <- 1:2 
df <- as.data.frame(cbind(value,index,group1,group2)) 

for (i in unique(df$group1)){ 
par(mfrow=c(1,2)) 
plot(value~index,data=subset(df,group1==i & group2==1),type="l",pch=16,main=unique(paste("plot",i,"group=",group1))) 
plot(value~index,data=subset(df,group1==i & group2==2),type="l",pch=16,main=unique(paste("plot",i,"group=",group2))) 
box("outer") 
} 
``` 
+0

提示:您認爲這條線有什麼作用? 'par(mfrow = c(1,2))' – Marius

+0

創建一個單行,兩列圖...我希望很多...每個都有自己的標題,軸標籤等,按列排序。 .. – gwslane

回答

10

您可以調整plot鉤附加新線


編輯 - 2013年7月25日

益輝的更簡單的建議,在劇情包含線之前強制新線

即添加一個塊,其定義爲

```{r setup, echo = FALSE} 
hook_plot = knit_hooks$get('plot') 
knit_hooks$set(plot = function(x, options) paste('\n', hook_plot(x, options), sep = '')) 
``` 
+0

這是有點超過我的頭...甚至可能表明你複製了一個錯誤的帖子迴應? – gwslane

+2

@gwslane --- no。你有沒有嘗試添加這個代碼塊....它的工作原理 - 它在每一個圖像包含之前追加一個新行\ n,這意味着圖像將在新行(因此在一列中)。 – mnel

+0

粗略........ – gwslane