R：不带ggplot的图形

Question

我正在尝试从名为DATASET（名称和示例简化）的数据集中绘制2个图形（下面带有示例数据）：

• 一条带有所有A型线的线，为本地和联邦使用不同的颜色
• 一条带有所有B型线的线，为地方和联邦使用不同的颜色

基本上，只有一个时序图可以说明每种类型的演变，并区分地方和联邦政府。因此，我正在寻找一个图表，该图表将所有“ A”类型汇总在一起，但按颜色区分本地和联邦；另一个图表说明所有“ B”类型，按颜色区分本地和联邦。

我正在尝试，对于本地A型图：

XVAL="1S"

但是结果图一定是错误的，我无法分辨出它混合了类型A和B或本地和联邦。实际数据集很大。

有人可以帮我弄清楚命令的正确结构吗？

Answer 1

好吧，我强烈建议您使用ggplot，它将更加轻松。我尝试了一些数据，并根据您的要求创建了一个图

data <- cars
data[['model']]<-rep(c('Federal','Local'),each=25)

这等于您的类型 =“ A” /“ B”

的数据集

plot(data$speed[data$model=='Federal'], data$dist[data$model=='Federal'],type='l',col='red',
  main="Dual ordinate plot",xlab="speed",ylab="dist")
legend(4,80,#places the legend at the right place,
    c('Federal','Local')##gives the proper labels
    ,lty=c(1,1)##give the legend proper symbols,
    ,col=c('red','blue'))
par(new=T)##This allows use to superimpose the new plot on the earliar frame
##The yy plot
plot(data$speed[data$model=='Local'], 
data$dist[data$model=='Local'],type='l',col='blue',xlab="",ylab="",axes=F)
axis(side=4)##axis for yy