R语言对比图

最新推荐文章于 2022-11-11 13:01:25 发布

郭永辉_HIT

最新推荐文章于 2022-11-11 13:01:25 发布

阅读量2.2k

点赞数

分类专栏： R 语言与数据分析

本文链接：https://blog.csdn.net/guoguo11191/article/details/46738185

版权

这篇博客使用R语言展示了Tomcat和Netty在不同场景下的性能对比，通过两个条形图和一个散点图，比较了两者在TPS（每秒事务处理量）和耗时方面的表现。条形图中，Tomcat和Netty的TPS数据被并排展示，而散点图则描绘了不同循环和线程组合下两者的耗时情况。

摘要由CSDN通过智能技术生成

CCA <-c(4959,2324)
names(CCA)<-C("A")
CCB <-c(7010,2333)
names(CCA)<-C("B")
CC <- cbind(CCA, CCB)
barplot(t(CC), beside = TRUE,legend = c("tomcat", "netty"),
width = c(10, 10), args.legend = list(x = "topleft", cex=1),
xlim = c(0, 50),ylim = c(0, 10000),cex = 2,cex.axis=2)
title(ylab="TPS")

CCB <-c(1, 4, 11, 24)
CCA <-c(1, 8, 19, 34)

g_range <- range(0, CCA, CCB)
plot(CCA, type="o", col="blue", ylim=g_range, axes=FALSE, ann=FALSE, cex=1,cex.axis=1)
axis(1, at=1:4, lab=c("10000循环*100线程", "2000循环*500线程", "1000循环*1000线程", "500循环*2000线程"),cex.axis = 1)
lines(CCB, type="o", pch=22, lty=2, col="red")
axis(2, las=2,at=5*0:7,cex.axis = 1.5)
box()
legend(1, g_range[2], c("tomcat","netty"), cex=1.5,col=c("blue","red"), pch=21:22, lty=1:2);

title(ylab=list("耗时ms",cex=1.5))