在R中自定义图形

Question

1. 我有一段图表的代码: barplot(as.vector(t(mat1[1,3:ncol(mat1)])),las=2) 我想改变,以便x轴被线y = 2 取代; 有效地将x轴向上移动2个单位,如下图所示.

   我需要从2开始的条形图,以便:

   • 值为3的条形从y = 2线开始,并在y = 3处上升到结束.
   • 值为0的条形从y = 2行开始,并在y = 0处下降到结束

2. 我怎样才能使列名mat1我的X轴类别？

Answer 1

Barplot总是以0开始其条形.从每个y值减去2(或者我做的5).将ylim设置为范围(y值 - 5).您需要使用yaxt ="n"来禁止绘制y轴.轴的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)