Смещенный участок после удаления метки 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

И затем вместо grid.arrange вы можете просто использовать facet_wrap, чтобы отобразить оба графика с одной и той же осью 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 для одного из два аспекта

Согласно вашим комментариям, вы хотите управлять порядком только для одного из двух наборов данных. Чтобы сделать это, возможное решение состоит в том, чтобы создать 4 значения x, установить правильный порядок, отобразить его и изменить их маркировку, используя аргумент labels в scale_x_discrete.

Сначала генерируем новые значения 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

Теперь вы можете передать эти новые переменные как значение x в ggplot2 и удалить суффикс в маркировке, используя labels аргумент scale_x_discrete, такой как:

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"))

Отвечает ли он на ваш вопрос?