相互重叠的水平条形图标签

Question

我正在使用一个数据集在水平方向上创建一个水平。类似于在R: How can I make a barplot with labels parallel (horizontal) to bars中提出的解决方案。

然而，我的水平条形图的Y轴上的标签数量有点太多(由于手头的问题)，因此它们彼此重叠。

有没有一种方法可以保持条形图的仓位大小，并在条形图的水平方向上显示Y标签的子集？

谢谢，rajat

Answer 1

这里有一种方法，我们可以使用nice solution将数据中的名称与空格交错：

生成一些数据

set.seed(123)
df1 <- data.frame(x = replicate(50, paste(sample(letters, 2, replace = T), collapse = '')),
                  y = sample(1:10, 50, replace = T), stringsAsFactors = FALSE)

使用名称的子集绘制条形图

barplot(df1$y, names.arg = c(rbind(df1$x, rep('', 50)))[1:50], horiz = T, las = 1)

主要的技巧是names.arg = c(rbind(df1$x, rep('',50)))[1:50]行。它会在数据中的名称之间留出空格。实际上，我们正在用空格替换一半的名称。

如果这还不够，我们可以定义一个函数，它接受一个由名称、x和多个m组成的向量来定义哪些值要替换为空格：

replace_multiple <- function(x, m){
    len_x <- length(x)
    index_to_replace <- seq(1, len_x, by = m)
    x[index_to_replace] <- ''
    return(x)
}

replace_multiple(letters[1:12], m = 2)
# ""  "b" ""  "d" ""  "f" ""  "h" ""  "j" ""  "l"
replace_multiple(letters[1:12], m = 3)
# ""  "b" "c" ""  "e" "f" ""  "h" "i" ""  "k" "l"
replace_multiple(letters[1:12], m = 4)
# ""  "b" "c" "d" ""  "f" "g" "h" ""  "j" "k" "l"