r - 如何删除 R-Markdown block 输出中奇怪字符的显示？

Question

我从一些栅格中获取频率，并在 R-Markdown 中这样做。我正在使用 lapply 从列表中的栅格获取频率。当我将这些频率存储在 data.frames 列表中时， block 输出显示一些意外的非数字字符。

栅格示例:

```{r}
require(raster)

r1 <- setValues(raster(nrows = 10, ncols = 10), sample(1:10, 100, replace = TRUE))
r2 <- setValues(raster(nrows = 10, ncols = 10), sample(1:10, 100, replace = TRUE))

rList <- list(r1, r2)
```

获取频率:

```{r}
lapply(rList, function(ras) {
  data.frame(freq(ras))
})
```

上述 block 的输出:

如果我只显示数据框本身，则不会显示这些字符:

```{r}
lapply(rList, function(ras) {
  data.frame(freq(ras))
})[[2]]
```

如果不使用data.frame，也会显示正确的值:

```{r}
lapply(rList, function(ras) {
  freq(ras)
})
```

我尝试使用 UTF-8 编码保存 Rmd，并且使用的是 RStudio 1.2.5019。任何有关如何正确显示数据框列表的想法将不胜感激。

编辑:请注意，这些字符不会在生成的 html 文件的任何场景中显示，仅在 R Notebook 文件本身的特定 block 中显示。

编辑2:

生成奇怪字符的笔记本的完整代码和 YAML header 如下:

---
title: "R Notebook"
output: html_notebook
---

```{r}
require(raster)

r1 <- setValues(raster(nrows = 10, ncols = 10), sample(1:10, 100, replace = TRUE))
r2 <- setValues(raster(nrows = 10, ncols = 10), sample(1:10, 100, replace = TRUE))

rList <- list(r1, r2)
```

```{r}
lapply(rList, function(ras) {
  data.frame(freq(ras))
})
```


```{r}
lapply(rList, function(ras) {
  data.frame(freq(ras))
})[[2]]
```

Answer 1

检查此代码是否正确显示输出。您可以使用打印

预览 html 笔记本输出时未显示任何 UTF 字符

如果你想使用 block 输出，你可以使用

as.data.frame()