R语言对照图

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))