R 在条形图中将相似的图分组在一起

我有一组数据，我想把它们更紧密地放在我的条形图上

stripchart(refined$lowfeq ~ refined$taxa, 
           vertical=T, las=2, pch=c(20,20,1,1,0,0,0,11,11,6,17), col=boxcol, 
           xaxt="n", ylab="Frequency (kHz)")
axis(1, las=2, cex.axis = 0.9, font.axis = 3, at=c(1:11), labels=1:11)`

我想把以下几组人放在一起： 1和2、3和4、5-7、8和9。10和11分别隔开

我试着用这个解决问题，但没有成功。空间存在，但缺少最后3个绘图

stripchart(refined$lowfeq ~ refined$taxa, 
           vertical=T, las=2, pch=c(20,20,1,1,0,0,0,11,11,6,17), col=boxcol, 
           xaxt="n",  ylab="Frequency (kHz)",at=c(1,2,4,5,7,8,9,11,12,14,15))
axis(1, las=2, cex.axis = 0.9, font.axis = 3, at=c(1,2,4,5,7,8,9,11,12,14,15), labels=1:11)`

如何在不丢失最后3个绘图的情况下获得空间

我的目标是一些看起来像方框图的东西，但即使我遵循它，也无法得到它：

---

可以使用如下表格和ggplot代码在轴中添加空格：

> refined
   taxa lowfreq group
1     1       2     a
2     1       3     a
3     1       6     a
4     1       5     a
5     1       8     a
6     1       9     a
7     2       2     a
8     2       3     a
9     2       5     a
10    2       6     a
11    2       4     a
12    2       5     a
13    2       1     a
14    3       2     b
15    3       6     b
16    3       5     b
17    3       8     b
18    3       4     b
19    3       5     b
20    _       0  <NA>

ggplot(refined)+geom_point(aes(x=taxa, y=lowfreq))+scale_x_discrete(breaks=c('1','2','_','3'))

---

修改

xlim

应该可以得到您想要的：

library(RColorBrewer)

refined <- data.frame(lowfeq=runif(300, 0.3, 0.7),
                      taxa=sample(1:11, 300, replace=TRUE))

boxcol <- brewer.pal(11, "Set3")

stripchart(refined$lowfeq ~ refined$taxa, xlim=c(1,15),
           vertical=T, las=2, pch=c(20,20,1,1,0,0,0,11,11,6,17), col=boxcol, 
           xaxt="n",  ylab="Frequency (kHz)", at=c(1,2,4,5,7,8,9,11,12,14,15))
axis(1, las=2, cex.axis = 0.9, font.axis = 3, at=c(1,2,4,5,7,8,9,11,12,14,15), labels=1:11)

库（RColorBrewer）
精炼 的
library(RColorBrewer)

refined <- data.frame(lowfeq=runif(300, 0.3, 0.7),
                      taxa=sample(1:11, 300, replace=TRUE))

boxcol <- brewer.pal(11, "Set3")

stripchart(refined$lowfeq ~ refined$taxa, xlim=c(1,15),
           vertical=T, las=2, pch=c(20,20,1,1,0,0,0,11,11,6,17), col=boxcol, 
           xaxt="n",  ylab="Frequency (kHz)", at=c(1,2,4,5,7,8,9,11,12,14,15))
axis(1, las=2, cex.axis = 0.9, font.axis = 3, at=c(1,2,4,5,7,8,9,11,12,14,15), labels=1:11)