R 多个参数名称条形图

我正在尝试正确标记堆叠的条形图，并希望每2个“条形图”添加额外的名称。 以下是我到目前为止得到的信息：

这是我绘制条形图的“计数”表（很抱歉，我不知道链接数据的更好方法）：

1 1.5  2 2.5  3 3.5
M8244 0 20 0 16 0 4
cp14 20 0 16 0 5 0
cp17 0 0 0 1 0
cp4 0 0 0 1 0

我的代码是：

barplot（计数，main=“deadwood隔离物”，
xlab=“采样时间点”，ylab=“获得的样本”，ylim=c（0,21），
col=c（“灰色85”、“白色”、“灰色40”、“黑色”），空格=c（1,0），
name.arg=c（“真菌”、“CHV-1”、“真菌”、“CHV-1”、“真菌”、“CHV-1”），
偏移量=0，mgp=c（4,1,0）
)
图例=行名称（计数）
图例（“右上角”，图例，填充=c（“灰色85”，“白色”，“灰色40”，“黑色”））

我在数据输入中使用1.5、2.5、3.5作弊，以便能够对条形图进行分组，因为在旁边使用无法获得堆叠条形图。 我想在当前名称（真菌/CHV-1）下方为分组条（1&1.5；2&2.5；3&3.5）贴上类似“timepoint1”、“timepoint2”和“timepoint3”的标签。 可能吗？ 提前感谢您抽出时间

新行可以使用“\n”

line1 <- c("fungus","CHV-1","fungus","CHV-1","fungus","CHV-1")
line2 <- paste0("timepoint", 1:6)
vector_names.arg <- paste(line1, line2, sep = "\n")

line1新行可以使用“\n”

line1 <- c("fungus","CHV-1","fungus","CHV-1","fungus","CHV-1")
line2 <- paste0("timepoint", 1:6)
vector_names.arg <- paste(line1, line2, sep = "\n")

line1新行可以使用“\n”

line1 <- c("fungus","CHV-1","fungus","CHV-1","fungus","CHV-1")
line2 <- paste0("timepoint", 1:6)
vector_names.arg <- paste(line1, line2, sep = "\n")

line1新行可以使用“\n”

line1 <- c("fungus","CHV-1","fungus","CHV-1","fungus","CHV-1")
line2 <- paste0("timepoint", 1:6)
vector_names.arg <- paste(line1, line2, sep = "\n")

line1