knitr图：点（几何点（），pch=20，pch=19…）未显示

我对knitr的一些行为感到有点不安。工作示例应显示4个图，所有图均使用2种不同的绘图方法显示相同的数据

序言：

\documentclass{article}

使用R-base的plot命令绘制前两个图：

<<one.one,fig.width=4,fig.height=3,fil.align='center',fig.show='asis'>>=
par(mar=c(4,4,1,1),mgp=c(2,1,0),cex=0.8)
plot(cars,pch=20,col='darkgray')
@
<<one.two,fig.width=4,fig.height=3,fil.align='center',fig.show='asis'>>=
par(mar=c(4,4,1,1),mgp=c(2,1,0),cex=0.8)
plot(cars,pch=18,col='darkgray')
@

=
par（mar=c（4,4,1,1），mgp=c（2,1,0），cex=0.8）
绘图（汽车，pch=20，col='darkgray'）
@
=
par（mar=c（4,4,1,1），mgp=c（2,1,0），cex=0.8）
绘图（汽车，pch=18，col='darkgray'）
@

然后由以下公式给出输出（已删除）：

对于与ggplot2相同的绘图，代码示例如下：

<<two.one,fig.width=4,fig.height=3,fil.align='center',fig.show='asis'>>=
library(ggplot2)
test1<-ggplot(cars,aes(x=speed,y=dist))
test2<-test1+geom_smooth(method="lm",se=FALSE,color='red',data=fit)
test3<-test2+
ggtitle("") +
geom_point(size=1,colour='red')
test3
@
<<two.two,fig.width=4,fig.height=3,fil.align='center',fig.show='asis'>>=
test1<-ggplot(cars,aes(x=speed,y=dist))
test2<-test1+geom_smooth(method="lm",se=FALSE,color='red',data=fit)
test3<-test2+
ggtitle("") +
geom_point(size=1,colour='red',shape=3)
test3
@

=
图书馆（GG2）
Test1这是一个简单的打字错误，您的
fil.align
应该是
fig.align
？另外，您的完整文档是什么？这不仅仅是一句“序言”，是吗？因为您需要一个完整的LaTeX
文档
环境。。。你有文本输出吗？你查过日志和消息了吗？这里是打字错误。谢谢。ad2）因为我想给出一个最小的工作示例，没有其他包干扰，所以我删除了任何不必要的内容。上面的完整输出是基于以下内容构建的：
\documentclass{article}\begin{document}=@\end{document}
我得到一个文本输出，以及绘图中的注释以及绘图、公式、表格周围的文本，没有问题。警告：In（如果（输出格式（c（“latex”、“Swave”、“listings”）））消毒，否则粘贴0）（路径：图形路径中的点替换为（“图形/一个”）.好的。无论文档或包中发生了什么变化，或者在什么地方发生了变化：使用tikzDevice现在可以解决问题。但是，由于knitr不再包含该图，而是使用
\include{*.tex}
这只是一种解决方法，而不是一种解决方案。我不知道是关闭该图还是将其打开。
\documentclass{article}
\usepackage{graphicx}
\usepackage{tikz}
\begin{document}

\begin{verbatim}
this chunk options:

fig.width=4,fig.height=3,fig.align='center',fig.show='asis'
\end{verbatim}

<<one.one,fig.width=4,fig.height=3,fig.align='center',fig.show='asis'>>=
library(knitr)

par(mar=c(4,4,1,1),mgp=c(2,1,0),cex=0.8)
plot(cars,pch=20,col='darkgray')
fit<-lm(dist~speed, data=cars)
abline(fit,lwd=1,col='red')

par(mar=c(4,4,1,1),mgp=c(2,1,0),cex=0.8)
plot(cars,pch=18,col='darkgray')
fit<-lm(dist~speed, data=cars)
abline(fit,lwd=1,col='red')

library(ggplot2)
test1<-ggplot(cars,aes(x=speed,y=dist))
test2<-test1+geom_smooth(method="lm",se=FALSE,color='red',data=fit)
test3<-test2+
ggtitle("") +
geom_point(size=1,colour='red')
test3

test1<-ggplot(cars,aes(x=speed,y=dist))
test2<-test1+geom_smooth(method="lm",se=FALSE,color='red',data=fit)
test3<-test2+
ggtitle("") +
geom_point(size=1,colour='red',shape=3)
test3
@

\begin{verbatim}
next chunk options:

three.one,fig.width=4,fig.height=3,fig.align='center',fig.show='asis'
\end{verbatim}

<<three.one,fig.width=4,fig.height=3,fig.align='center',fig.show='asis'>>=
require(tikzDevice)
tikz("three.one.tex",width=4.2,height=3)
plot(cars,pch=20,col='darkgray')
fit<-lm(dist~speed, data=cars)
abline(fit,lwd=1,col='red')
dev.off()

tikz("four.one.tex",width=4.2,height=3)
test1<-ggplot(cars,aes(x=speed,y=dist))
test2<-test1+geom_smooth(method="lm",se=FALSE,color='red',data=fit)
test3<-test2+
ggtitle("") +
geom_point(size=1,colour='red')
test3
dev.off()
@
\input{three.one.tex}

\input{four.one.tex}

\begin{verbatim}
next chunk options:

five.one,fig.width=4,fig.height=3,fig.align='center',fig.show='asis, dev='tikz'
\end{verbatim}

<<five.one,fig.width=4,fig.height=3,fig.align='center',fig.show='asis',dev='tikz'>>=
plot(cars,pch=20,col='darkgray')
abline(fit,lwd=1,col='red')

test1<-ggplot(cars,aes(x=speed,y=dist))
test2<-test1+geom_smooth(method="lm",se=FALSE,color='red',data=fit)
test3<-test2+
ggtitle("") +
geom_point(size=1,colour='red')
test3
@

\begin{verbatim}
next chunk options:

five.one,fig.width=4,fig.height=3,fig.align='center',fig.show='asis, dev=c('png','pdf')
\end{verbatim}

<<seven.one,fig.width=4,fig.height=3,fig.align='center',fig.show='asis',dev=c('png', 'pdf')>>=
plot(cars,pch=20,col='darkgray')
abline(fit,lwd=1,col='red')

test1<-ggplot(cars,aes(x=speed,y=dist))
test2<-test1+geom_smooth(method="lm",se=FALSE,color='red',data=fit)
test3<-test2+
ggtitle("") +
geom_point(size=1,colour='red')
test3
@
\end{document}