insert_left can not work

[franco-ye]

Dear Uncle Y:
I keep getting this error when using inset_left; But I don't know why it happened. Is it a bug ？

[GuangchuangYu]

you need to provide an example to produce your issue.

[franco-ye]

Thanks for Uncle Y's prompt reply!

When running simple test data, I did not trigger any errors; however, I encounter errors when performing complex operations.

This is a demo：

library(ggtree)
library(ggstance)
####----Success----####
set.seed(2020-03-27)
x <- rtree(10)
d <- data.frame(taxa=x$tip.label, value = abs(rnorm(10)))
p <- ggtree(x) + geom_tiplab() + xlim(NA, 3)
p2 <- ggplot(d, aes(value, taxa)) + geom_col() + 
  scale_x_continuous(expand=c(0,0))

p2 %>% insert_left(p)
####----error----####
p <- ggtree(x,branch.length = "none")  +
  xlim(NA,40)

get_taxa_name(p) -> gene_name
heatmap_df <- data.frame(
  gene_name = factor(gene_name, levels = rev(gene_name), ordered = T),
  Environment = "Environment",
  Variable1 = c(rep("A", 2), rep("B", 4), rep("C", 2), rep("D", 2)),
  Location = "Location",
  Variable2 = c(rep("a", 2), rep("b", 4), rep("c", 2), rep("d", 2)),
  none = "none",
  Variable3 = NA,
  OGT = "OGT",
  Variable4 = seq(33, 100, length.out = 10)
) 

ggplot(data = heatmap_df) + 
  geom_tile(aes(x = Environment, y = gene_name, fill = Variable1),
            color = "black", alpha = 0.7, linewidth = 0.5) + 
  scale_fill_jco(name = "Environment") + 
  new_scale_fill() +
  geom_tile(aes(x = Location, y = gene_name, fill = Variable2),
            color = "black", alpha = 0.7, linewidth = 0.5) + 
  scale_fill_ucscgb(name = "Location")+ 
  geom_tile(aes(x = none, y = gene_name),
            fill = NA) + 
  new_scale_fill() + 
  geom_tile(aes(x = OGT, y = gene_name, fill = Variable4),
            alpha = 0.85, color = "black") + 
  scale_fill_continuous(type = "viridis", name = "OGT") + 
  labs(x = "", y = "") + 
  scale_x_discrete(position = "top",
                   breaks = c("Environment", "Location", "OGT"),
                   labels = c("Environment", "Location", "OGT")) +
  theme_bw() + 
  theme(
    panel.border = element_blank(),
    panel.grid = element_blank(),
    axis.ticks = element_blank(),
    axis.text.y = element_blank(),
    axis.text.x = element_text(angle=90, hjust = 0)
  ) -> heatmap.p
heatmap.p %>% insert_left(.,p, width = 0.85)

[GuangchuangYu]

all is functioning properly.

[Ziwei-Liu]

I've also met a same error.

My code is as below:

library(factoextra)
library(cluster)
library(reshape2)
library(dplyr)
library(aplot)
library(preprocessCore)
library(pheatmap)

file_path <- "gene.fpkm.matrix.csv"
gene_data <- read.csv(file_path, row.names = 1)

gene_data <- gene_data[, c("ERR_m", "ERR_hp", "ERR_g", "ERR_est", "ERR_gut", "ERR_nerve")]

colnames(gene_data) <- c("Muscle", "Hepatopancreas", "Gill", "Eye Stalk", "Intestine", "Nerve")

gene_data <- gene_data[apply(gene_data, 1, var) > 0, ]

gene_data_normalized <- normalize.quantiles(as.matrix(gene_data))
rownames(gene_data_normalized) <- rownames(gene_data)
colnames(gene_data_normalized) <- colnames(gene_data)

gene_data_scaled <- t(scale(t(gene_data_normalized)))

fviz_nbclust(gene_data_scaled, kmeans, method = "wss")

km7 <- kmeans(gene_data_scaled, 7)
clusters <- data.frame(km7$cluster)

data_cluster <- merge(gene_data_scaled, clusters, by = 0)
data_cluster <- data_cluster[order(data_cluster$km7.cluster),]
colnames(data_cluster)[1] <- "ID"
colnames(data_cluster)[8] <- "Cluster"
data_reorder <- data_cluster[,1:7]

data_m <- melt(data_reorder, id.vars = c("ID"))
data_m$ID <- factor(data_m$ID,levels = c(data_reorder$ID))
p_log<-ggplot(data = data_m, aes(x=variable, y=ID))
heatmap <- p_log+geom_tile(alpha=0.5,aes(fill=value))+
     theme_classic()+
     theme(axis.text.x=element_text(angle=45,vjust=0.5,size=14),
           axis.text.y=element_blank(),
           axis.title.y=element_blank(),
           axis.title.x=element_blank(),
           plot.title=element_text(hjust=0.5, size=16))+ 
     labs(title="Expression_Level",fill="counts")+
     theme(panel.grid = element_blank())+ 
     scale_fill_gradient2(low = "navy", mid = "white", high = "firebrick3")

clusters['Gene'] <- rownames(clusters)
clusters["x"] <- 1
colnames(clusters) <- c('Group', 'Gene', 'x')
clusters <- clusters[order(clusters$Group),]
clusters$Gene <- factor(clusters$Gene, levels = rev(clusters$Gene))
clusters$Group <- factor(clusters$Group)
groupbar <- ggplot(clusters, aes(x=x, y=Gene))+
    geom_tile(aes(fill = Group))+
    scale_x_continuous(expand = c(0,0)) +
    theme(panel.background = element_blank(),
          axis.ticks = element_blank(),
          axis.title = element_blank(),
          axis.text.x = element_blank(),
          axis.text.y = element_blank(),
          legend.position = "left",
          legend.title = element_blank())+
    scale_fill_manual(values = c('#e6194b', '#3cb44b', '#ffe119', '#4363d8', '#f58231', '#911eb4', '#46f0f0', '#f032e6', '#bcf60c', '#fabebe', '#008080', '#e6beff', '#9a6324', '#fffac8', '#800000', '#aaffc3', '#808000', '#ffd8b1', '#000075', '#808080', '#ffffff', '#000000'))

heatmap %>% insert_left(groupbar, width = 0.01)