rmarkdown data.table 图在编译后不匹配

Question

我到处寻找答案，我不确定这是否是一个错误，但我还没有发现任何类似的问题，所以在这里。

我是(相对)新手 data.table R 中的库，但它能够轻松地将内容应用于选择性查询而无需为所有内容创建函数，这让我在我第一次使用它的那一刻就被卖掉了。

我用 rmarkdown 编译报告，并一直在 j 上运行图DT[i, j, by]的一部分.这在 Rstudio 中运行顺利，编辑器按照它应该的方式执行我的代码，但是在我编译输出的那一刻，这些图不再符合我想要的(和看到的)!

我已经多次清理并重新启动了我的 Rsession，所以我知道这个问题不是由于我的 R 环境造成的。更奇怪的是，当我实际打印 j 中的数据时代码，它们在输出和编辑器中都是相同的，所以 plot真的是把这件事搞砸了……

这是说明我的问题的 Rmd 代码:

---
title: "data.table plot issue"
author: "Anyone"
date: "27 juin 2018"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Building data

```{r}
library(data.table)

tab = data.table(varA = rep(1:4, each=5),
                 varB = rep(1:5, 4),
                 varC = rep(LETTERS[1:4], each=5),
                 varD = rep(c("red", "blue", "green", "hotpink"), each=5))
tab
```

```{r results="hold"}
layout(matrix(1:4, nrow = 2, byrow = T))
a = tab[,{

  print(varA)
  print(varB)
  print(varC)
  print(varD)

  plot(varB, varA, col=varD, ylim=c(0,5), pch=16, main=varC)

  }, by=varC ]
```

这就是我在 Rstudio 中得到的(这是我应该得到的):



但是，这是我编译后得到的:



打印的变量是正确的，所以我不知道这里有什么问题。我认为它与 Rmarkdown 编译以及它处理绘图的方式有关，但我没有太多要做的事情。

有任何想法吗 ？

编辑 :

版本信息 :

R version 3.3.3 (2017-03-06)

knitr_1.20

rmarkdown_1.9

Answer 1

您可以通过使用 paste0 包围颜色来强制使用颜色。 :

layout(matrix(1:4, nrow = 2, byrow = T))
a = tab[,{

  print(varA)
  print(varB)
  print(varC)
  print(varD)
  plot(varB, varA, col=paste0(varD), ylim=c(0,5), pch=16, main=varC)
  }, by=varC ]