Question

在knitr中，可以通过在块选项中指定它来指定绘图的大小。

例如：

```{r, fig.width=9,fig.height=3}
plot(x)
```

我希望能够根据x中的变量动态调整图形高度和宽度。假设x是data.frame：

x <- data.frame(x=factor(letters[1:3]),y=rnorm(3))

例如，我想说我想将fig.height调整为等于length(unique(x$x))

Answer 1

例如，您可以在另一个块中定义宽度，然后使用它

```{r,echo=FALSE}
x <- data.frame(x=factor(letters[1:3]),y=rnorm(3))
len = length(unique(x$x))
```


```{r fig.width=len, fig.height=6}

plot(cars)
```

Answer 2

我刚刚发现了一篇关于此事的精彩博文。

阅读更多at Michael J Williams' blog - 我无耻地窃取了代码，因此更详细。 请记住将块选项设置为结果=＆＃34; asis＆＃34;。

假设您想要使用循环输出一堆图，但是您希望它们各自具有不同的大小。定义以下功能（再次，我只是在这里复制粘贴）：

subchunkify <- function(g, fig_height=7, fig_width=5) {
  g_deparsed <- paste0(deparse(
    function() {g}
  ), collapse = '')

  sub_chunk <- paste0("
  `","``{r sub_chunk_", floor(runif(1) * 10000), ", fig.height=",
   fig_height, ", fig.width=", fig_width, ", echo=FALSE}",
  "\n(", 
    g_deparsed
    , ")()",
  "\n`","``
  ")

  cat(knitr::knit(text = knitr::knit_expand(text = sub_chunk), quiet = TRUE))
}

使用这样的函数，定义自己的图形尺寸：

```{r echo=FALSE, results='asis'}
g <- ggplot(economics, aes(date, unemploy)) + 
  geom_line()
subchunkify(g, 10, 3)
subchunkify(g, 7, 7)
```

或者让数据定义尺寸：

```{r echo=FALSE, results='asis'}
g <- ggplot(economics, aes(date, unemploy)) + 
  geom_line()
for (i in seq(2, 5)) {
  subchunkify(g, i / 2, i)
}
```

迈克尔警告你必须小心：

由于我们正在使用results =＆＃39; asis＆＃39;，如果我们想要从块中输出文本或标题或其他内容，我们必须使用原始HTML，而不是Markdown，我们必须使用cat（）要做到这一点，而不是print（）。例如：

g <- ggplot(economics, aes(date, unemploy)) + 
  geom_line()

cat('<h2>A Small Square Plot</h2>')
subchunkify(g, 3, 3)

同样，不是我的工作......转到那个lovely blog post了解更多细节。希望这对你有用。

Answer 3

解决此问题的方法之一，特别是如果您想在循环中更改数字参数，

定义另一个块，一个执行循环的函数

在以下块中单独定义图形细节

```{r, echo=FALSE}
testFunction <- function (parameter) {
    x <- data.frame(x=c(1:parameter), y=rnorm(parameter))
    g1 <- ggplot(data=x, aes(x=x, y=y)) + geom_point()
    print(g1)
}
```


```{r fig.width=10, fig.height=6}
testFunction(10)
```


```{r fig.width=5, fig.height=4}
testFunction(4)
```

针织图的动态高度和宽度

3 个答案: