1

1 つのプロットにプロットしようとしている 3 セットのデータがあります。最初のデータ セットの x 値の範囲は ~ 1 から 1700 ですが、他の 2 つのデータ セットの x 値は 20 未満です。したがって、それらを対数軸にプロットして、すべてのデータ セットの変動を示したいと思います。ただし、グラフから値を読み取れるようにしたいので、データを変換したくありません。私が望む x 軸のラベルは、1、10、100、および 1000 で、すべて等間隔です。誰もこれを行う方法を知っていますか? データがログと軸の例しか見つかりません。現在使用しているコードを以下に添付しました。ご協力いただきありがとうございます。ホリー

Stats_nineteen<-read.csv('C:/Users/Holly/Documents/Software Manuals/R Stuff/Stats_nineteen.csv')
attach(Stats_nineteen)
x<-Max
x1<-Min
x2<-Max
y1<-Depth
y2<-Depth
par(bg="white")
par(xlog=TRUE)
plot(x2,y1, type="n", ylim=c(555,0), log="x", axes=FALSE, ann=FALSE)
box()
axis(3, at=c(1,10,100,1000), label=c(1,10,100,1000), pos=0, cex.axis=0.6)
axis(1, at=c(1,10,100,1000), label=c(1,10,100,1000), cex.axis=0.6)
axis(2, at=c(600,550,500,450,400,350,300,250,200,150,100,50,0), label=c
(600,"",500,"",400,"",300,"",200,"",100,"",0), cex.axis=0.6)
mtext("CLAST SIZE / mm", side=3, line=1, cex=0.6, las=0, col="black")
mtext("DEPTH / m", side=2, line=2, cex=0.6, las=0, col="black")
grid(nx = NULL, ny = NULL, col = "lightgray", lty = "solid",
lwd = par("lwd"), equilogs = TRUE)
par(new=TRUE)
lines(x1,y1, col="black", lty="solid", lwd=1)
lines(x2,y2, col="black", lty="solid", lwd=1)
polygon(c(x1,rev(x2)), c(y1,rev(y2)), col="grey", border="black")
par(new=TRUE)
plot(x=Average,y=Depth, type="o",
bg="red", cex=0.5, pch=21,
col="red", lty="solid",
axes=FALSE, xlim=c(0,1670), ylim=c(555,0),
ylab = "",xlab = "")
par(new=TRUE)
plot(x=Mode,y=Depth, type="o",
bg="blue", cex=0.5, pch=21,
col="blue", lty="solid",
axes=FALSE, xlim=c(0,1670), ylim=c(555,0),
ylab = "",xlab = "")
4

1 に答える 1

4

これは、ggplotで次を使用して行うことができますscale_x_log

だから次のようなもの：

myplot <- ggplot( StatsNinetee, 
                  aes (x = myResponse,
                       y = myPredictor,
                       groups = myGroupingVariable) ) +
          geom_point() +
          scale_x_log()
myplot

attach()また、奇妙な振る舞いをする可能性があることを避けてください。

于 2012-08-13T16:51:43.067 に答える