は、私はRで、このグラフに取り組んでいますR

Question

要因と折れ線グラフをプロットします。ここで私はこのグラフを作るために使用されるコードは次のとおりです。

par(mar = c(5,5,2,5)) 
    with(bedtimes, plot(trap, funestus, type="l", col="red3", 
       ylab=expression(italic(p))), 
       ylim=c(0,3)) 

    par(new = T) 
    with(bedtimes, plot(trap, bed, pch=16, axes=F, xlab=NA, ylab=NA, cex=1.2)) 
    axis(side = 4) 
    mtext(side = 4, line = 3, 'Proportion in bed') 
    polygon(bedtimes$bed,col=transp("gray", 0.3), border = NA) 

そして、ここでは、私が使用していたデータのdputです：

(removed) 

私のx軸が要因であるので、私はこれが発生していることを実感します数値ではありません。しかし、これを変更しようとすると（例えば、as.POSIXct(paste0("2016-07-12",bedtimes$trap))を使用すると、私はRが元々正しい順序でこれらの要素をプロットしていることを確かめなければならなかったので、私はあらゆる問題を引き起こしています）

どのように？私は最終的にこれに似たグラフが欲しい代わりにこれらのダッシュの 、（ただし、まったく同じではない）あなたのアイデアを与えるために：

ありがとう

Answer 1

私が言ったように！コメント、あなたにしようとすることができますあなたの因子変数のレベルを使用する： `as.numeric（トラップ）を使用して

par(mar = c(5,5,2,5)) 
with(bedtimes, plot(as.numeric(trap), funestus, type="l", col="red3", 
        ylab=expression(italic(p))), 
        ylim=c(0,3)) 
par(new = T) 
with(bedtimes, plot(as.numeric(trap), bed, type="l", axes=F, xlab="", ylab=NA, cex=1.2)) 
axis(4) 
axis(side = 1, at=1:length(levels(bedtimes$trap)), levels(bedtimes$trap)) 
mtext(side = 4, line = 3, 'Proportion in bed') 
polygon(bedtimes$bed,col="gray", border = NA)