R 绘制正（余）切图像

1、代码

x <- seq(-2*pi, 2*pi, 0.1)
z <- pi*(-2:2)
labels <- paste(-2:2,"π", sep="")

# 绘制正弦曲线
plot(x, tan(x), type="o", pch=4, col=2, ylim=c(-1.5, 1.5), xaxt="n", ann=F)
# 添加余弦图
lines(x, 1/tan(x), type='b', pch=10, col=3)

# 添加参考线
abline(h=0, lty=2, col=8)
# 设置图形标题和坐标轴标题
title("tan & cot", xlab="x", ylab="y",)
axis(1, at=z, labels=labels)
# 添加图例
legend("bottomleft", inset=0.02, c("tan", "cot"), col=c(2, 3), 
       lty=c(1, 6), pch=c(4, 10), bg="gray95", cex=0.9,pt.cex=0.7, 
       seg.len=0.6, text.width=0.3)

2、图形

 

 按语：
R 中没有专门的余弦函数，但可以用公式 tan(x) = 1/con(x) 进行转换。在涉及正切图像是 R 会自动添加垂直的分割参考线。