3

  1. グラフの次のコードがあります。 x軸が行y = 2;に置き換えられるbarplot(as.vector(t(mat1[1,3:ncol(mat1)])),las=2) ように変更したいと思います。下の画像のように、 x軸を 2 単位 上に効果的に移動します。ここに画像の説明を入力

    次のように、バーを 2 から開始する必要があります。

    • 値が 3 のバーは y=2 の線から始まり、上昇して y=3 で終わります。
    • 値が 0 の棒グラフは y=2 の線から始まり、下降して y=0 で終わる

  2. x軸カテゴリmat1の列名を作成するにはどうすればよいですか?

4

2 に答える 2

7

Barplot は常にバーを 0 から開始します。すべての y 値から 2 (または私が行ったように 5) を引きます。ylim を range(y-values - 5) に設定します。yaxt="n" で y 軸のプロットを抑制する必要があります。axis の xpd パラメーターを使用すると、ラベルの範囲を実際の値の範囲より下に拡張できます。

 set.seed(231)
 tN <- table(Ni <- stats::rpois(100, lambda=5))
 tNshift <- tN-5
 barplot(tNshift, space = 1.5, yaxt="n", xaxt="n", ylim=range(tNshift))
 abline(0,0)
 axis(2, at= c(-5, pretty(tNshift)), labels=c(0, pretty(tNshift)+5), xpd=TRUE)

ここに画像の説明を入力

于 2012-04-07T22:16:16.733 に答える
1

これは からの最初の例で?barplot、わずかに変更され、abline(x,y)追加されています

require(grDevices) # for colours
tN <- table(Ni <- stats::rpois(100, lambda=5))

barplot(tN, space = 1.5, axisnames=FALSE)
abline(5,0)

ここに画像の説明を入力

これがあなたの特定の質問に答えていない場合は申し訳ありませんが、作業するサンプルデータがなかったため、?barplot例を取り上げました.

于 2012-04-07T20:42:32.967 に答える