28

バープロットを生成しようとしていますが、y 軸のスケールが短すぎます。これが私のコードです：

barplot(as.matrix(dat), log="y", ylim=c(10000,100000000), beside=TRUE,
        ylab = "Number of reads", col = c("gray","black","white"))

短い y 軸

（ylimに従って）軸の余地を残しますが、実際の軸は埋めません。私は?barplotいくつかのことを試してみました（グーグルで調べたところ、うまくいくと思いましたが、うまくいきxpd = F, yaxs = c(10000,10000000,5)ませんでした）。

私はそれが些細なことであることを知っていますが、実際に機能するのではなく、まさに私が何年にもわたって立ち往生している種類の問題であるため、どんな助けも大歓迎です!

編集：入力の皆さんに乾杯！

最初はylimなしでプロットしましたが、最終的にはさらに奇妙な軸になります（同じ問題があります）。私は実際に ylim 値を選んで、より良い間隔の軸を与えました。 オリジナルのイリム

データは次のとおりです。

dat <- read.table(text="D2,D3n,D3m,D4n,D4m
21234722,34262282,31920464,25486357,20712943
35343,64403,22537,39934,46547
126646,312286,101105,81537,76944", header=TRUE, sep=",")

編集 2: @DWin は正しかった - R を更新したところ、正常にプロットされるようになった - みんなありがとう!

4

3 に答える 3

34

設定しようとしてylimいますが、悪い値を指定しています。これにより、プロットのスケールが変更されます (ズームのように)。たとえば、これを参照してください。

par(mfrow=c(2,1))
tN <- table(Ni <- stats::rpois(100, lambda = 5))
r <- barplot(tN, col = rainbow(20),ylim=c(0,50),main='long y-axis')
r <- barplot(tN, col = rainbow(20),main='short y axis')

ここに画像の説明を入力axis別のオプションは、軸なしでプロットし、 and を使用して手動で設定することusrです:

require(grDevices) # for colours
par(mfrow=c(1,1))
r <- barplot(tN, col = rainbow(20),main='short y axis',ann=FALSE,axes=FALSE)
usr <- par("usr")
par(usr=c(usr[1:2], 0, 20))
axis(2,at=seq(0,20,5))

ここに画像の説明を入力

于 2013-04-20T15:44:30.513 に答える
-4 
barplot(data)

ここに画像の説明を入力

barplot(data, yaxp=c(0, max(data), 5))

ここに画像の説明を入力

yaxp=c(最小 Y 軸、最大 Y 軸、間隔)

于 2016-08-20T12:35:01.433 に答える