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")
如果我用 ggsave 导出它,该图看起来非常好,但在降价中,x 轴被压在一起。
解决方案
没有可重现的例子,很难解决你的问题。但是,您可以尝试更改几行(一次每行),看看是否有区别。特别是,我会删除该行coord_fixed(ratio = 1) +
以查看会发生什么。你也可以尝试不同的ratio
数字来得到你想要的。
如果这不能解决您的问题,请提供可重现的示例数据。
推荐阅读
- javascript - offsetTop 返回 0
- sql - Full Outer Join 返回正确的结果,但 Order by 不完整
- c++ - 使用来自引用指针的信息来填充向量
- docker - 在 up -d docker 之后运行 shell 脚本
- javascript - 按钮提交表单的钩子调用无效
- c# - Unity 错误“不包含 'IsGameObjectInMainScenes' 的定义”
- node.js - 返回 POST 请求响应后运行方法
- r - 如何将 NA = 设置为两个不同的值?
- xml - IMPORTXML 将工具提示导入 Google 表格
- java - Java:如何启动客户端或服务器,取决于服务器是否已经启动?