ggrepel与geom_smooth一起

发布于 2025-02-13 01:45:20 字数 631 浏览 2 评论 0原文

ggplot(gapminder::gapminder,aes(x=year,y=lifeExp,label=continent,color=continent))+
geom_line(size=.1,alpha=.2)+
guides(color="none")+
theme_minimal()+
geom_smooth(aes(color=continent),se=F,method="loess")+
ggrepel::geom_label_repel(direction = "y",stat="smooth",nudge_x = 5)

导致以下结果：

我只想为每个大陆的每个平滑骨料提供一个标签。

我尝试调整参数，但没有帮助。如果我跳过stat =“ smooth”从GEOM_LABEL_REPEL中的术语，它将变成所有干草，并试图标记所有单个行 - 而不是平滑的线条。有什么想法吗？

原文

ggplot(gapminder::gapminder,aes(x=year,y=lifeExp,label=continent,color=continent))+
geom_line(size=.1,alpha=.2)+
guides(color="none")+
theme_minimal()+
geom_smooth(aes(color=continent),se=F,method="loess")+
ggrepel::geom_label_repel(direction = "y",stat="smooth",nudge_x = 5)

Results in the following:

I only want one label for each smoothed aggregate for each continent.

I´ve tried tweaking the parameters, but to no help. If I skip the stat="smooth" term from geom_label_repel It goes all haywire and tries to label all the individual lines - not the smoothed lines. Any ideas?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

全部不再 2025-02-20 01:45:23

您可以做到这一点的一种方法是在摘要标签数据框中获取每个大陆的最后一个（或第一个等）拟合的值，然后在ggrepel中使用该值：

library(tidyverse)
library(gapminder)
library(ggrepel)
library(broom)

label_df <- gapminder |> 
  nest(data = -continent) |> 
  mutate(model = map(data, ~loess(lifeExp ~ year, .x)),
         augmented = map(model, augment),
         fitted = map(augmented, ".fitted") |> map_dbl(last),
         year = map(data, "year") |> map_int(last)) |> 
  select(continent, fitted, year)

ggplot(gapminder, aes(year, lifeExp, color = continent)) +
  geom_line(size = .1, alpha = .2) +
  guides(color = "none") +
  theme_minimal() +
  geom_smooth(aes(color = continent), se = F, method = "loess") +
  geom_label_repel(aes(year, fitted, label = continent), data = label_df)

^{在2022-07-03创建的 reprex软件包（v2.0.1）}

One way you could do this is to get the last (or first etc. as desired) fitted value for each continent in a summary label data frame, then use that in ggrepel:

library(tidyverse)
library(gapminder)
library(ggrepel)
library(broom)

label_df <- gapminder |> 
  nest(data = -continent) |> 
  mutate(model = map(data, ~loess(lifeExp ~ year, .x)),
         augmented = map(model, augment),
         fitted = map(augmented, ".fitted") |> map_dbl(last),
         year = map(data, "year") |> map_int(last)) |> 
  select(continent, fitted, year)

ggplot(gapminder, aes(year, lifeExp, color = continent)) +
  geom_line(size = .1, alpha = .2) +
  guides(color = "none") +
  theme_minimal() +
  geom_smooth(aes(color = continent), se = F, method = "loess") +
  geom_label_repel(aes(year, fitted, label = continent), data = label_df)