代码之家 › 专栏 › 技术社区 › Stonecraft

在ggplot/R中使用位置参数进行文本排斥

ggrepel geom-text position ggplot2 r

Stonecraft · 技术社区 · 7 年前

我试图在文本标签相互排斥的地方创建一个geom\u点,并指向它们的关联点,即使我使用的是position=dodge或position=jitter。我还有很多要标记的点,这就是为什么我想使用ggrepel或类似的东西。我的理解是,我不能将position参数用于ggrepel。

有没有什么方法可以得到这样的图,除非线段指向它们的关联点?

require(ggplot2)
require(ggrepel)
data("mtcars")
mtcars$cyl <- as.factor(mtcars$cyl)
mtcars$am <- as.factor(mtcars$am)

require(ggplot2)
require(ggrepel)
dodge = position_dodge(1)
ggplot(mtcars, aes(x = am, y=mpg)) +
  geom_point(size=3, position=dodge, alpha=0.5, aes(color=cyl)) +
  geom_text_repel(data = mtcars,
                  aes(label = mpg, x=am, y=mpg),  alpha=0.9, size=4,
                  segment.size = .25, segment.alpha = .8, force = 1)

1 回复 | 直到 7 年前

Kamil Slowikowski 7 年前

今天,我更新了ggrepel以支持 position 版本0.7.3中的选项。

请尝试一下,让我知道它是怎么回事。

如果您有问题,请在此处报告: https://github.com/slowkow/ggrepel/issues

安装ggrepel的0.7.3版:

devtools::install_github("slowkow/ggrepel")

让我们试试:

require(ggplot2)
require(ggrepel)
data("mtcars")
mtcars$cyl <- as.factor(mtcars$cyl)
mtcars$am <- as.factor(mtcars$am)

dodge <- position_dodge(1)
ggplot(mtcars, aes(x = am, y = mpg, label = mpg)) +
  geom_point(
    mapping = aes(color = cyl),
    position = dodge,
    size = 3,
    alpha = 0.5
  ) +
  geom_text_repel(
    mapping = aes(group = cyl),
    position = dodge,
    size = 4,
    alpha = 0.9,
    segment.size = .25,
    segment.alpha = .8,
    force = 1
  )

推荐文章

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

Jeff238 · 为scale\u fill\u连续比例而不是离散比例制作图例

2 年前

jerH · 从ggplot bar plot中省略一些数据标签

2 年前

Stefan · 当facet\u wrap()中的比例设置为“free”时,如何增加ggplot中的默认y轴限制

2 年前

Honorato · 在图形图例中插入两列数据-ggplot2

2 年前

Naota Feykneme · 你能在R中分别控制散点图点的宽度和高度吗?[副本]

2 年前

Shawn Hemelstrand · 如何在ggplot中的许多回归线中为一条特定回归线上色以匹配注释?

2 年前

Jenny · 如何在ggplot2轴上重新排序类别

2 年前

Kirds · 在ggplot中将国家名称添加到地图中

2 年前

MadelineJC · group_by在R中按顺序排列数字

2 年前