gpt4 book ai didi

r - ggplot2:从纵横比中排除图例

转载 作者:行者123 更新时间:2023-12-05 01:10:59 26 4
gpt4 key购买 nike

我用 ggplot2knitr发布带有右侧图例的散点图。图例包含在纵横比中,因此破坏了绘图的“方形”,如 default themes 所示。 .当图例文本变得比“a”和“b”长一点时,图形变成“长矩形”而不是“正方形”。

我想保持图形“平方”,因此想从我的 ggplot2 上的纵横比中排除图例图表。我的 .Rprofile有以下信息给力ggplot2生成具有更大文本和更多轴标题周围空间的低色图形:

theme_set(theme_bw(16))
theme_update(
axis.title.y = element_text(angle = 90, vjust = -.25),
axis.title.x = element_text(vjust = -1),
plot.margin = unit(c(1,1,1,1), "cm")
)

我可以在此处添加任何内容以从纵横比中排除图例吗?使用 coord_equal 进行操作和 coord_fixed到目前为止都失败了, fig.width 也是如此。和 fig.height选项。谢谢你的帮助!

编辑:删除了工作示例,下面用完整的示例代码回答了问题(抱歉延迟批准答案)。

最佳答案

设置 coord_fixed()应该做的伎俩:

library(ggplot2)
library(gridExtra) ## for grid.arrange()

## Create some data with one longer label
cars <- transform(mtcars,
cyl = factor(cyl, labels=c("4","6","8 is big")))


## Compute ratio needed to make the figure square
## (For a taller narrow plot, multiply ratio by number > 1;
## for a squatter plot, multiply it by number in the interval (0,1))
ratio <- with(cars, diff(range(mpg))/diff(range(wt)))

## Make plots with and without a legend
a <- ggplot(cars, aes(mpg, wt)) +
geom_point() + coord_fixed(ratio=ratio)

b <- ggplot(cars, aes(mpg, wt, color=cyl)) +
geom_point() + coord_fixed(ratio=ratio)

## Plot them to confirm that coord_fixed does fix the aspect ratio
grid.arrange(a,b, ncol=2)

enter image description here

关于r - ggplot2:从纵横比中排除图例,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14631523/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com