删除 y 标签后错误放置的子图

Question

我有两个相似的条形图，grid.arrange 在两个列中，并排。 由于它们共享 y 轴的公共标签，因此我想删除右侧子图 y 轴上的标签。 我用以下方法做到这一点：

myplot2 <- arrangeGrob(q+
                         theme(axis.title.y = element_blank()), #....

这会导致两个子图的扭曲/错位。在我删除 y 标签之前，两个子图的比例完全相同，并且 x 轴处于同一水平。

问题
如何在不改变两个子图位置的情况下删除右侧图的 y 轴标签。

MRE

library(ggplot2)
library(ggthemes)
library(dplyr)
algorithm <- c(rep("0_DT",2),rep("1_RF",2),rep("2_MLP",2))
target <- rep(c("Some Data","Some Other Data"),3)
value <- runif(6,85,95) # Simulated Accuracies
data <- data.frame(target,algorithm,value)
p <- ggplot(data, aes(fill=algorithm, y=value, x=target)) + theme_classic()+
  geom_bar(position=position_dodge(0.75), stat="identity", width = 0.65,colour="black",size=0.1) + 
  scale_fill_manual("Algorithm",
                    values = alpha(c("0_DT" = "#20639B", "1_RF" = "#3CAEA3", "2_MLP" = "#F6D55C"),0.8),
                    labels=c("DT","RF","MLP"))+
  scale_y_continuous("Accuracy in %",limits = c(0,100),oob = rescale_none,
                     # breaks= sort(c(seq(0,90,10),h)),
                     breaks= seq(0,100,10),
                     expand = c(0,0)) +
  scale_x_discrete(expand=c(0.3,0.1))+
  theme(aspect.ratio =10/6)

# duplicate the plot for MRE
q <- p
myplot1 <- arrangeGrob(p,
                       top = textGrob("1", x = unit(0.05, "npc")
                                      , y   = unit(-0.5, "npc"), just=c("left","top"),
                                      gp=gpar(col="black", fontsize=18, fontfamily="Arial",fontface="bold")))
myplot2 <- arrangeGrob(q+
                         theme(axis.title.y =element_blank()),
                       top = textGrob("2", x = unit(0.05, "npc")
                                      , y   = unit(-0.5, "npc"), just=c("left","top"),
                                      gp=gpar(col="black", fontsize=18, fontfamily="Arial",fontface="bold")))

grid.arrange(myplot1,myplot2,ncol=2)

Answer 1

如果您的数据集共享与您的示例类似的结构，则可能的解决方案是将它们绑定在一起，如下所示：

data <-  data.frame(target,algorithm,value)
data2 <- data.frame(target,algorithm,value)
data$dataset <- "Dataset1"
data2$dataset <- "Dataset2"

DF <- rbind(data, data2)

            target algorithm    value  dataset
1        Some Data      0_DT 87.33034 Dataset1
2  Some Other Data      0_DT 89.65962 Dataset1
3        Some Data      1_RF 87.65973 Dataset1
4  Some Other Data      1_RF 93.57828 Dataset1
5        Some Data     2_MLP 85.45831 Dataset1
6  Some Other Data     2_MLP 89.42200 Dataset1
7        Some Data      0_DT 87.33034 Dataset2
8  Some Other Data      0_DT 89.65962 Dataset2
9        Some Data      1_RF 87.65973 Dataset2
10 Some Other Data      1_RF 93.57828 Dataset2
11       Some Data     2_MLP 85.45831 Dataset2
12 Some Other Data     2_MLP 89.42200 Dataset2

然后，您可以简单地使用facet_wrap 来代替使用grid.arrange 来显示具有相同y 轴的两个图形：

labels = c(Dataset1 = "1",Dataset2 ="2")

library(ggplot2)
ggplot(DF, aes(x = target, y = value, fill = algorithm))+
  geom_col(position = position_dodge2())+
  facet_wrap(~dataset, scales = "free", labeller = labeller(dataset = labels))+ 
  scale_fill_manual("Algorithm",
                    values = alpha(c("0_DT" = "#20639B", "1_RF" = "#3CAEA3", "2_MLP" = "#F6D55C"),0.8),
                    labels=c("DT","RF","MLP"))+
  scale_y_continuous("Accuracy in %",limits = c(0,100),
                     breaks= seq(0,100,10),
                     expand = c(0,0)) +
  scale_x_discrete(expand=c(0.3,0.1))+
  theme_classic()+
  theme(aspect.ratio =10/6,
        strip.background = element_blank(),
        strip.text.x = element_text(size = 15, hjust = 0, face = "bold"))

---

编辑：更改两个方面之一的 x 顺序

根据您的 cmets，您希望仅操纵两个数据集之一的顺序。为此，一种可能的解决方案是创建 4 个 x 值，设置正确的顺序，显示它并使用 scale_x_discrete 中的参数 labels 修改它们的标签。

首先，生成完全不同的新 x 值。在这里，我通过以下方式为第二个数据集的 x 值添加一个后缀：

library(dplyr)
library(ggplot2)

DF %>% rowwise() %>% mutate(Suffix = ifelse(dataset == "Dataset2",".22","")) %>%
  mutate(Target = paste(target, Suffix, sep = "")) %>%
  mutate(Target = factor(Target, 
                         levels = c("Some Data","Some Other Data","Some Other Data.22","Some Data.22")))

Source: local data frame [12 x 6]
Groups: <by row>

# A tibble: 12 x 6
   target          algorithm value dataset  Suffix Target            
   <fct>           <fct>     <dbl> <chr>    <chr>  <fct>             
 1 Some Data       0_DT       87.3 Dataset1 ""     Some Data         
 2 Some Other Data 0_DT       89.7 Dataset1 ""     Some Other Data   
 3 Some Data       1_RF       87.7 Dataset1 ""     Some Data         
 4 Some Other Data 1_RF       93.6 Dataset1 ""     Some Other Data   
 5 Some Data       2_MLP      85.5 Dataset1 ""     Some Data         
 6 Some Other Data 2_MLP      89.4 Dataset1 ""     Some Other Data   
 7 Some Data       0_DT       87.3 Dataset2 ".22"  Some Data.22      
 8 Some Other Data 0_DT       89.7 Dataset2 ".22"  Some Other Data.22
 9 Some Data       1_RF       87.7 Dataset2 ".22"  Some Data.22      
10 Some Other Data 1_RF       93.6 Dataset2 ".22"  Some Other Data.22
11 Some Data       2_MLP      85.5 Dataset2 ".22"  Some Data.22      
12 Some Other Data 2_MLP      89.4 Dataset2 ".22"  Some Other Data.22

现在，您可以在ggplot2 中将这个新变量作为x 值传递，并使用scale_x_discrete 的labels 参数删除标签中的后缀，例如：

library(dplyr)
library(ggplot2)

DF %>% rowwise() %>% mutate(Suffix = ifelse(dataset == "Dataset2",".22","")) %>%
  mutate(Target = paste(target, Suffix, sep = "")) %>%
  mutate(Target = factor(Target, 
                         levels = c("Some Data","Some Other Data","Some Other Data.22","Some Data.22"))) %>%
  ggplot(aes(x = Target, y = value, fill = algorithm))+
  geom_col(position = position_dodge2())+
  facet_wrap(~dataset, scales = "free", labeller = labeller(dataset = labels))+ 
  scale_fill_manual("Algorithm",
                    values = alpha(c("0_DT" = "#20639B", "1_RF" = "#3CAEA3", "2_MLP" = "#F6D55C"),0.8),
                    labels=c("DT","RF","MLP"))+
  scale_y_continuous("Accuracy in %",limits = c(0,100),
                     breaks= seq(0,100,10),
                     expand = c(0,0)) +
  scale_x_discrete(expand=c(0.3,0.1), labels = function(x) sub("\\..*$","",x))+
  theme_classic()+
  theme(aspect.ratio =10/6,
        strip.background = element_blank(),
        strip.text.x = element_text(size = 15, hjust = 0, face = "bold"))

它回答了你的问题吗？