定义 Y 轴 axis(side=2, at=seq(0,9,1)) # 合并 X 轴和 Y 轴 box(bty = "l") # 显示每个类别中引擎的数量 text(h$mids,h$counts/4,labels=h$counts, adj=c(0.5, -0.5)) # 引擎 B 运行时间的直方图 data_B <- data.frame(time_B, temp_B) h<-hist(time_B, breaks=seq(19.99,28.99,1), border="black", col="lightblue1", axes=F, main="", ylab="Number", xlab="Running time in minutes") axis(side=1, at=seq(20,29,1)) axis(side=2, at=seq(0,9,1)) box(bty = "l") text(h$mids,h$counts/4,labels=h$counts, adj=c(0.5, -0.5)) # 引擎 A 和 B 的叠加直方图，使用蓝色 # 颜色 # 对叠加的直方图使用半透明颜色 # 首先使用 col2rgb() 命令获取 rgb() 命令所需的 # 红、绿、蓝数值 col2rgb("deepskyblue") col2rgb("lightblue1") # 透明天蓝色，透明度级别为 alpha/max # 在实践中，设置 max = 255 效果很好，因为 RGB # 颜色通常定义在 0–255 范围内 t_deepskyblue <- rgb(0, 191, 255, max=255, alpha=200, names="t_deepskyblue") t_deepskyblue # 透明浅蓝色 t_lightblue1<- rgb(191, 239, 255, max=255, alpha=200, names="t_lightblue1") t_lightblue1 # 绘制引擎 A 运行时间的直方图 h<-hist(time_A, breaks=seq(19.99,29.99,1), axes=F, main="", ylab="Number", xlab="Running time in minutes", border="black",col=t_deepskyblue) axis(side=1, at=seq(20,29,1)) axis(side=2, at=seq(0,9,1)) box(bty = "l") # 添加引擎 B 运行时间的直方图 hist(time_B, breaks=seq(19.99,29.99,1),add=T, border="black", col=t_lightblue1) legend(20,9 ,c('A','B'),fill = c(t_deepskyblue, t_lightblue1))