在 R 中的 ggtree 热图上设置 x 轴

Question

我想在热图 ggtree 上设置 x 轴。

这是我的代码

ggtree(working_tree,open.angle=15, size=0.1) %<+% avian %<+% color +
  aes(color = I(colour)) +
  geom_tippoint(size = 2,) +
  geom_tiplab(size = 3, colour = "black") +
  theme_tree2()

# I want to rotate the x axis and get the positive number
p1 <- revts(p) + scale_x_continuous(labels = abs)  

h1 <- gheatmap(p1, landuse, 
               offset = 15, width = 0.05, font.size = 3, colnames_position = "top", colnames_angle = 0,
               colnames_offset_y = 0, hjust = 0) +
  scale_fill_manual(breaks = c("Forest", "Jungle rubber", "Rubber", "Oil palm"),
                    values = c("#458B00", "#76EE00", "#1874CD", "#00BFFF"), name = "Land use system",
                    na.value = "white")

，我得到了这张照片问题是当我显示热图时，x 轴自动将范围从 0 更改为 60。但是，我想要的范围是从 0 到 80。

有谁知道怎么做或者有这方面的经验吗？

Answer 1

已更新

我已经像这样使用函数 scale_x_continous 解决了这个问题

scale_x_continuous(breaks = seq(-80,0,20), labels = abs(seq(-80,0,20)))

对于任何对 R 中的地质时间尺度感兴趣的人，我建议使用包 deeptime

在 R 中的 ggtree 热图上设置 x 轴

set x axis on ggtree heatmap in R

r

heatmap

phylogeny

ggtree