R x轴被压在一起

我想用我的R脚本创建一个降价文档。我设法用它来显示不同的条形图、饼图、传单地图等等

但它不适用于ggplot

{r, eval=TRUE, echo=TRUE, warning=FALSE, message=FALSE}

p <- qplot() +
  theme_classic() +
  ggtitle("Title") +
  coord_fixed(ratio = 1) +
  xlab("wrong") +
  ylab("super") +
  geom_polygon(data=fortify(data1),
               aes(x=long, y=lat, group=group), alpha=0.1, fill=NA, col="black", size=0.1) +
  geom_point(data = as.data.frame(data2),
            aes(x = coords.x1, y = coords.x2, color = pal1), shape=4, alpha=1)

p + theme(legend.position="right")

{r，eval=TRUE，echo=TRUE，warning=FALSE，message=FALSE}
p没有一个可重复的例子，很难解决你的问题。但是，您可以尝试更改几行（一次更改几行），看看这是否会有所不同。特别是，我会删除行
coord\u fixed（ratio=1）+
，看看会发生什么。您也可以尝试不同的
比率
数字，以获得您想要的。

如果这不能解决您的问题，请提供一个可复制的示例数据
 您能否提供一个包含YAML头并使用随机或内置数据集的列表？