基于上述代码，如何使x轴与y轴分离并且显示刻度

为了使x轴和y轴完全分离并且显示清晰的刻度，在ggplot2中，你可以使用`theme`函数进一步定制主题。下面是针对你提供的代码，添加x轴和y轴刻度、标签以及分离它们的方式：

p2 <- p2 + theme(
  axis.title.x = element_text(size = 12, margin = margin(side = "top", unit = "mm", b = 5), # 将x轴标题上移并增大字体
  axis.text.x = element_text(angle = 0, vjust = 0.5, hjust = 1), # 将x轴文字水平放置并稍微向上偏移
  axis.line.x.bottom = element_line(colour = "black", size = 0.5), # 显示x轴底部刻度线
  axis.ticks.x = element_blank(), # 移除x轴上的默认刻度点
  axis.title.y = element_text(hjust = 1, # 将y轴标题向右对齐
  axis.text.y = element_text(angle = -90, vjust = 0.5, hjust = 1), # 旋转y轴文字90度，使其垂直排列
  axis.line.y.left = element_line(colour = "black", size = 0.5), # 显示y轴左侧刻度线
  axis.ticks.y = element_blank(), # 移除y轴上的默认刻度点
  legend.position = "none" # 移除图例（如果你不需要的话）
)

p2

在这段代码里，我们调整了x轴的标题和标签的设置，使它们位于上方，且x轴不再有默认的刻度点。同样地，对于y轴，我们将其标签旋转了90度并放在左侧，同时移除了默认的刻度点。至于图例，如果不需要显示，则可以去掉`legend.position = "none"`这一行。这样做之后，x轴和y轴就会相对独立，刻度和标签都更加清晰可见。