1

我正在使用要在geom_tile绘图中输出的数据集，请参见下文：

plot114 <- ggplot(data = data1, 
                  aes(x = total, 
                      y = vrc)) +
   geom_step(step, 
             aes(x = x, 
                 y = y), 
             direction = "hv") +
   geom_tile(aes(fill = number)) +
   geom_text(aes(label = number), 
             family = "Arial") +
   theme(panel.background = element_blank(), 
         panel.border = element_rect(colour = "black", 
                                     fill = NA), 
         axis.line = element_line(colour = "black")) +
   ylab("Number of interest") + 
   xlab("Total number") +
   guides(fill = FALSE) +
   coord_fixed(ratio = 1) + 
   scale_fill_distiller(palette = "Reds", 
                        trans = "reverse") +
   scale_y_continuous(breaks = seq(0, 40, 1), 
                      expand = c(0, 0), 
                      limits = c(-0.5, 18.5)) +  
   scale_x_continuous(breaks = seq(0, 40, 1), 
                      expand = c(0, 0), 
                      limits = c(-0.5, 25.5))

输出图形（也当您将其导出为图像时）如下所示：

https://imgur.com/a/Z1VYT1V

但是，当我将其导出为 .pdf （ggsave例如）时，标签会移动到右下角，如果它们有多个数字，它们也会相互移动（任何大于 9 的数字，例如 25，变成 2 和一个 5 相互移动使其不可读，见深红色方块）

在此处输入图像描述

我不想使用ggrepel并且正常导出到 .png 或其他文件类型告诉我这也应该可以使用 .pdf 文件。

任何人都可以帮助我/有人知道对此可以做些什么吗？

谢谢！

4

0 回答 0