CSN Test Graph

csn_paper_graph.r

test1 <- read.csv("~/Dropbox/rcv/test1/total.csv")
plot(test1$centralized,
xaxt="n",
ylim=c(0,12500),
xlab="Number of Message",
ylab="Transfer Time(sec)",
type="l",
lty=1,
lwd=2)
axis(1,at=1:length(test1$msg),labels=test1$msg)

lines(test1$hybrid, col="firebrick", lty=1, lwd=2)
lines(test1$distributed, col="dodgerblue4", lty=1, lwd=2)

legend("top",legend=c("centralized", "hybrid", "ditributed"),
   lty=1,lwd=2, col=c("black","firebrick","dodgerblue4"), ncol=3,
   bty="n",cex=0.8,
   text.col=c("black","firebrick","dodgerblue4"),
inset=0.01)

grid(col="gray", lty =2, lwd=1)


test3 <- read.csv("~/Dropbox/rcv/test3/rcv-avr.csv")
plot(test3$X1,
xaxt="n",
ylim=c(0,50),
xlab="Number of Message",
ylab="Transfer Time(sec)",
type="l",
lty=1,
lwd=2)
axis(1,at=1:length(test3$msg),labels=test3$msg)

lines(test3$X3, col="red", lty=1, lwd=1)
lines(test3$X5, col="blue", lty=1, lwd=1)
lines(test3$X7, col="green", lty=1, lwd=1)
lines(test3$X10, col="purple", lty=1, lwd=1)

legend("top",legend=c("1", "3", "5", "7", "10"),
   lty=1,lwd=2, col=c("black","red","blue", "green", "purple"), ncol=5,
   bty="n",cex=0.8,
   text.col=c("black","red","blue", "green", "purple"),
inset=0.01)

grid(col="gray", lty =2, lwd=1)