R Markdown无法生成HTML文件

一行一行运行代码成果Plots图表，但是点击“Knit HTML”就报错（如图）

我在编辑框输入的代码如下：
---
output: html_document
---
#依剂量对比药物A和药物B的响应情况
##录入数据
```{r}
dose <- c(20, 30, 40, 45, 60)
drugA <- c(16, 20, 27, 40, 60)
drugB <- c(15, 18, 25, 31, 40)
```
```{r}
opar <- par(no.readonly=TRUE)
```
##增加线条、文本、符号、标签的宽度或大小
```{r}
par(lwd=2, cex=1.5, font.lab=2)
```
##绘制图形——A
```{r}
plot(dose, drugA, type="b",
pch=15, lty=1, col="red", ylim = c(0, 60),
main = "DrugA vs. DrugB",
xlab = "Drug Dosage", ylab = "Drug Response")
```