r - ggplot2:如何向上移动 x 轴，使其可以在水平条形图中任意选取的条形下？

Question

我做了水平条形图。我需要向上移动 x 轴，所以它不是放在最后一个条形下，而是放在根据其他标准选取的某个条形下。
我尝试了一些东西，比如 gtable，但没有成功。我将不胜感激任何帮助。

这是一张说明我想要实现的目标的图片:



这是生成示例水平条形图的代码:

library("ggplot2")
library("RColorBrewer")
colours <- brewer.pal(11, "RdYlGn")[3:9]

no.names <- 4

name.percentage <- data.frame(name = paste0(LETTERS[1:no.names], letters[1:no.names], sample(LETTERS[1:no.names], size = no.names, replace = TRUE )), percentage = 0.85 + runif(no.names, 0, 0.15))

name.percentage <- rbind( 
transform(name.percentage, type = 1, fill = cut(percentage, breaks = c(-Inf,(1:6 * 3 + 81)/100, Inf), right = T, labels = colours)),
transform(name.percentage, percentage = 1 - percentage, type = 2, fill = "#EEEEEE")
)


plot <- ggplot(data = name.percentage, 
     aes( x = name, y = percentage, fill = fill)) +
geom_bar(stat = "identity", position = "stack", width = 0.75) + 
scale_fill_identity(guide = "none")  + 
labs(x = NULL, y = NULL) + 
scale_y_continuous(expand = c(0,0)) +
scale_x_discrete(expand = c(0,0)) +
coord_flip() +
theme_classic() +
theme(axis.ticks.y = element_blank(),
      axis.text.y = element_text(size = 11, colour = "black" ),
      axis.text.x = element_text(size = 11, colour = "black" ),
      axis.line = element_blank(),
      plot.margin = grid::unit(c(5,5,5,5),"mm"),
      aspect.ratio = ((no.names %% 30) / 30 ) * 1.70) 

print(plot)

Answer 1

您可以先创建两个单独的图，完全删除其中一个中的轴刻度和标签:

plot1 <- ggplot(data = subset(name.percentage, name=="AaC" | name=="BbA"), 
               aes( x = name, y = percentage, fill = fill)) +
  geom_bar(stat = "identity", position = "stack", width = 0.75) + 
  scale_fill_identity(guide = "none")  + 
  labs(x = NULL, y = NULL) + 
  scale_y_continuous(expand = c(0,0)) +
  scale_x_discrete(expand = c(0,0)) +
  coord_flip() +
  theme_classic() +
  theme(axis.ticks.y = element_blank(),
        axis.text.y = element_text(size = 11, colour = "black" ),
        axis.text.x = element_blank(),
        axis.line=element_blank(),
        axis.ticks=element_blank(),
        axis.title.x=element_blank(),
        axis.title.y=element_blank(),
        aspect.ratio = ((no.names %% 30) / 30 ) * 1.70) 

plot2 <- ggplot(data = subset(name.percentage, name=="CcA" | name=="DdD"), 
                aes( x = name, y = percentage, fill = fill)) +
  geom_bar(stat = "identity", position = "stack", width = 0.75) + 
  scale_fill_identity(guide = "none")  + 
  labs(x = NULL, y = NULL) + 
  scale_y_continuous(expand = c(0,0)) +
  scale_x_discrete(expand = c(0,0)) +
  coord_flip() +
  theme_classic() +
  theme(axis.ticks.y = element_blank(),
        axis.text.y = element_text(size = 11, colour = "black" ),
        axis.text.x = element_text(size = 11, colour = "black" ),
        axis.line = element_blank(),
        aspect.ratio = ((no.names %% 30) / 30 ) * 1.70) 

那么你可以使用 plot_grid来自包裹 cowplot排列两个地块，用 align="h"水平对齐两个图:

library(cowplot)
plot_grid(plot2, plot1, align="h", ncol=1)