条形图：更改 x 轴文本格式答案

【问题标题】：Barplot: change x-axis text format条形图：更改 x 轴文本格式
【发布时间】：2021-11-15 14:26:49
【问题描述】：

我想把 x 轴文本格式改成这样：

我想避免使用 ggplot 并使用基本的“条形图”

有什么建议吗？

这是我的代码

df <- data.frame(DK= c("08-01","08-11","08-21","09-01","09-11","09-21","10-01","10-11","10-21","11-01","11-11","11-21","12-01","12-11","12-21","01-01","01-11","01-21","02-01","02-11","02-21","03-01","03-11","03-21","04-01","04-11","04-21","05-01","05-11","05-21","06-01","06-11","06-21","07-01","07-11","07-21"), 
                 value=c(3.9,4.4,5.1,7.1,6.1,7.0,7.8,11.3,13.5,19.6,24.9,27.5,28.0,28.6,41.0,34.3,45.1,43.7,36.0,41.6,27.2,34.3,18.6,24.0,14.0,13.7,12.3,8.5,7.4,6.5,6.2,5.2,5.9,6.3,6.2,7.1))
df

toplot <- df
options(repr.plot.width=6, repr.plot.height=4) 
minv <- min(toplot[,2])-10
maxv <- max(toplot[,2])+10
label <- paste(rep(month.abb[seq(1,12,1)], each = length(c('d1','d2','d3'))), c('d1','d2','d3'))
a <-barplot(toplot$value, 
            names=label, 
            col='deepskyblue3', 
            xaxt = "n", yaxt = "n", 
            ylim=c(0,maxv),
            cex.lab=0.75
) 
axis(1, cex.axis=0.55, las=2, at=a, labels=label) 
axis(2, las='2', cex.axis=0.6)

【问题讨论】：

这能回答你的问题吗？ Multi-row x-axis labels in ggplot line chart
@Roman OP 明确表示我们应该使用基本 R 条形图得到答案，并避免使用 ggplot。如果副本只有 ggplot 答案，我认为它不能作为副本关闭。

标签： r bar-chart

【解决方案1】：

这让你非常接近。你需要为月份标签画一个额外的轴，一个没有标签但长刻度线的轴作为分隔线：

toplot <- df
options(repr.plot.width=6, repr.plot.height=4) 
minv <- min(toplot[,2])-10
maxv <- max(toplot[,2])+10
label <- rep(1:3, 12)
a <- barplot(toplot$value, 
             names = label, 
             col = 'deepskyblue3', 
             xaxt = "n", yaxt = "n", 
             ylim = c(0,maxv),
             cex.lab = 0.75
             )

axis(1, cex.axis=0.55, las = 0, at = a, labels = label, tcl = 0,
     padj = -3) 
axis(2, las = 2, cex.axis = 0.6)

axis(1, cex.axis = 1, at = seq(1.8, 41.8, length.out = 12), 
     labels = month.abb, padj = 1, tick = FALSE)
axis(1, at = seq(0, 43.5, length.out = 13), label = FALSE, tcl = -3)

【讨论】：

太棒了！！！谢谢