R 在y轴上拆分记号

我画了一张热图，但它看起来是这样的：

正如你们所看到的，y轴上的所有记号都互相覆盖，总的来说，看起来不太好。如何在y轴上将这些记号彼此分开？ 我的代码是：

ggplot(df, aes(Date, Place`)) +
  geom_tile(aes(fill = N)) +
  scale_fill_viridis(name = N, label = comma) +
  theme_tufte(base_family = "Helvetica") +
  theme(axis.ticks = element_blank()) +
  theme(axis.text = element_text(size = 10)) +
  scale_y_discrete(expand=c(0.2,0))

我试图将scale_y_离散（expand=c（0.2,0））更改为scale_y_离散（expand=c（0.7,0）），但没有任何更改。我无法减少y轴上的对象数

数据样本：

Date        Place          N
2020.04.20  8797    173032
2020.05.01  315D    10
2020.04.13  Q168    193597
2020.04.19  8797    96104
2020.04.02  8797    244935
2020.04.04  315D    474049
2020.05.01  8797    13
2020.04.23  315D    125607
2020.04.18  Q168    787224
2020.04.11  8797    282303
2020.04.12  8797    138443
2020.04.24  Q168    176487
2020.03.19  315D    290053
2020.04.10  315D    561935
2020.04.06  Q168    221196
2020.03.26  Q168    202552
2020.03.23  315D    516936
2020.04.06  315D    195038

---

您是否计划导出数据？如果是这样的话，我想在这一步解决任何缩放问题

ggsave(my_plot, filename = "plot.pdf", scale = 0.5)
ggsave(my_plot, filename = "plot.pdf", width = 10, height = 10, units = "in")

---

您可以用几乎任何文件格式替换“pdf”。

以下是调整y轴指南的两种解决方案。很抱歉没有使用您的数据，我无法轻松地将其粘贴到我的R会话中

第一个选项是不显示重叠的标签。可以通过在轴指南中设置

check.overlap=TRUE

来完成此操作

库（ggplot2）
ggplot（鸢尾花、aes（花瓣宽度、浆糊0（物种，“"”，1:150）））+
几何点（）+
导轨（y=导轨_轴（检查重叠=真））

第二个选项是“隐藏”标签，即将标签放置在层次结构中，其深度由

n.dodge

控制

ggplot（鸢尾花、aes（花瓣宽度、浆糊0（物种，“"”，1:150）））+
几何点（）+
导轨（y=导轨_轴（n.dodge=2））

---

由（v0.3.0）于2020-05-04创建

请提供一些样本数据，例如，添加了

dput（头部（df））

@mnist i样本data@mnist我不认为这个问题在小样本上是可见的，因为在原始数据中有数千个rowsim将它编织成html，我在rdpSorry中写道，我不太熟悉knitwell我可以在html中添加img文件，我可以将其转换为图像吗？是的，您可以

gg将绘图保存到计算机中，然后将图像添加到html中。如果您使用像PDF这样的矢量化格式，您不会损失任何质量。可能会有一个更优雅的解决方案，但这会得到相同的结果。我说找不到函数向导。\u Axis我有一个ggplot2版本3.2.1，该版本有什么解决方案吗？不，至少不方便。他们更新了指南在v3.3.0中的工作方式，因此这在较低版本上不起作用。