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