Ошибка в gheatmap (пакет ggtree): «Ошибка: необходимо запросить хотя бы один цвет из палитры оттенков». - PullRequest
Новая
       29

Ошибка в gheatmap (пакет ggtree): «Ошибка: необходимо запросить хотя бы один цвет из палитры оттенков».

0 голосов
/ 21 ноября 2018

Последняя строка выдает ошибку: 

library(ggtree)
nwk <- read.tree("nwk_file")
metadata <- read.table("metadata_file", sep="\t", stringsAsFactor=FALSE)
g <- ggtree(nwk) 
gheatmap(g, metadata, offset=5, width=0.5, font.size=3, colnames_angle=-45, 
    hjust=0)

Ошибка гласит: 

"Error: Must request at least one colour from a hue palette."

Я проверил, и функция gheatmap имеет параметры по умолчанию для colours.

РЕДАКТИРОВАТЬ
Я попытался сделать воспроизводимый пример: 

library(ggtree)
tree_nwk <- "(((((((A:4,B:4):6,C:5):8,D:6):3,E:21):10, 
((F:4,G:12):14,H:8):13):13,((I:5,J:2):30,(K:11,L:11):2):17):4,M:56);"
write(tree_nwk, file = "data.nwk")
tree <- read.tree("data.nwk")
p <- ggtree(tree)
dd <- data.frame(taxa = LETTERS[1:13],
                 place = c(rep("GZ", 5), rep("HK", 3), rep("CZ", 4), NA),
                 value = round(abs(rnorm(13, mean=70, sd=10)), digits=1))
dd <- dd[sample(1:13, 13), ]
row.names(dd) <- NULL
write(t(dd), "test_data.txt", ncolumns = 3, append = FALSE, sep = "\t")
test_table <- read.table("test_data.txt", sep="\t", stringsAsFactor=F)
gheatmap(p, test_table, offset=5, width=0.5, font.size=3, 
colnames_angle=-45, hjust=0)
...