R 语言 双坐标轴做法

    library(plotrix)    con <- file("lesson8.txt", "r", blocking = FALSE)    df <- readLines(con)    close(con)    d <- matrix(df,ncol=3,byrow=T)    Sys.setlocale("LC_TIME", "C") #参考同学的贴    d1 <- as.Date(strptime(d[,1],"%a %b %d %H:%M:%S HKT %Y"))    d2 <- as.numeric(d[,2])    d3 <- as.numeric(d[,3])    twoord.plot(d1,d2, d1,d3,xlab="运维时间段", ylab="ip访问量",rylab="pv网页浏览流量",  main="某网站运维图" , xtickpos=d1,xticklab=format(d1))