残念ながら、リンク先のコードは自己完結型ではありませんが、プロットされたセクションのみではなくデータ範囲全体をカバーするようgap.plot()
に設定しているため、そこにあるコードが期待どおりに機能しない可能性があります。ylim
次のプロットを検討してください。
ご覧のとおり、y軸には50 pg / mlごとに目盛りがありますが、175と425の間にギャップがあります。したがって、データ範囲(50に最も近い)はですc(0, 500)
が、y軸の範囲はc(0, 250)
-それだけです200と250の目盛りは、450と500の目盛りとして扱われます。
このプロットは、次の修正バージョンのコードを使用して作成されました。
## made up data
GRO.Controls <- c(25, 40:50, 60, 150)
GRO.Breast <- c(70, 80:90, 110, 500)
##Scatter plot for both groups
library(plotrix)
gap.plot(jitter(rep(0,length(GRO.Controls)),amount = 0.2), GRO.Controls,
gap = c(175,425), xtics = -2, # no xtics visible
ytics = seq(0, 500, by = 50),
xlim = c(-0.5, 1.5), ylim = c(0, 250),
xlab = "", ylab = "Concentrations (pg/ml)", main = "GRO(P=0.0010)")
gap.plot(jitter(rep(1,length(GRO.Breast)),amount = 0.2), GRO.Breast,
gap = c(175, 425), col = "blue", add = TRUE)
##Adds x- variable (groups) labels
mtext("Controls", side = 1, at= 0.0)
mtext("Breast Cancer", side = 1, at= 1.0)
##Adds median lines for each group
segments(-0.25, median(GRO.Controls), 0.25, median(GRO.Controls), lwd = 2.0)
segments(0.75, median(GRO.Breast), 1.25, median(GRO.Breast), lwd = 2.0,
col = "blue")