Ошибка при использовании grid.arrange с графиками, сгенерированными ggtern

Question

Я недавно скачал ggtern и пытаюсь нарисовать серию троичных графиков. Моя цель - нарисовать несколько из них на одной панели. Документация о ggtern говорит, что grid.arrange работает безупречно на графиках ggtern. Однако мои графики портятся, когда я пытаюсь их соединить (всплывают дополнительные метки, метки в углах изменяются на T, R и L, а линии темы по умолчанию ggplot2 исчезают (фон выглядит однородно серым). мой код:

# Ternary plot
# I want to create a plot for each level of the vector Strain_State in my dataframe called data:
lev<-levels(data$Strain_State)

# Create a list to store the plots:
plot_list=list()

# for loop to draw and store all plots at once:
for(i in 1:length(lev)){
  graph<-ggtern(data=subset(data, Strain_State==lev[i], select=c(Sex:neutral)), aes(time_pup, time_peanut, neutral)) + geom_point(size=3, aes(colour=Sex)) + ggtitle(lev[i]) + labs(x="Pup", y="Peanut butter", z="Avg.\nempty")+
    theme(axis.text=element_text(size=14),axis.title=element_text(size=16,face="bold"))+
    theme(legend.title=element_text(size=18))+
    theme(legend.text=element_text(size=16))+
    theme(plot.title = element_text(lineheight=.8, face="bold",size=22))
  plot_list[[i]]<-graph
} 

plot_list[[17]] # visualize each plot individually => works fine

library(gridExtra) # visualize several plots => problematic
BW<-plot_list[1:4]
grid.arrange(plot_list[[4]], plot_list[[2]], plot_list[[1]], plot_list[[3]], nrow=2)

Слева виден отдельный график, а справа - проблемы, с которыми я сталкиваюсь при использовании grid.arrange.