R-如何使用ggplot2对散点图的最大和最小值点进行着色和标记？
R-如何使用ggplot2对散点图的最大和最小值点进行着色和标记？
提问于 2021-02-16 14:36:33
我有一个简单的data.frame (piez_df)，包含两列(Fecha和E.N.E.)：
Fecha E.N.E.
1 1993 1871.40
2 1994 NA
3 1995 1869.40
4 1996 1866.85
5 1997 1857.94
6 1998 1849.43
7 1999 1849.59
8 2000 1858.61
9 2001 1850.30
10 2002 1852.50
11 2003 NA
12 2004 1850.70
13 2005 NA
14 2006 1850.80
15 2007 1850.82
16 2008 NA
17 2009 1832.30
18 2010 NA
19 2011 NA
20 2012 NA
21 2013 NA
22 2014 NA
23 2015 NA
24 2016 NA
25 2017 NA
26 2018 1809.30
27 2019 1809.30
28 2020 1808.70我正在使用ggplot()，我想用E.N.E.的最大值和最小值分别用红色和蓝色绘制散点图，另外我想用这两个点各自的Fecha和E.N.E.值(一个在另一个下面)来标记这两个点。
这是我最好的尝试：
ggplot(data = piez_df, aes(x = Fecha, y = E.N.E.)) +
geom_point(color="black", size=2) +
geom_point(data = piez_df[which.min(piez_df$E.N.E.), ], color="blue",
size=3) +
geom_point(data = piez_df[which.max(piez_df$E.N.E.), ], color="red",
size=3)
我是R的新手，已经花了几天时间想知道怎么做，但仍然不能按我想要的方式添加标签。希望有人能帮我。
回答 2
Stack Overflow用户
发布于 2021-02-16 15:04:25
有几种方法可以实现这一点，具体取决于您希望生成的输出。在ggplot2的情况下，您可以使用geom_text或geom_label。如果您希望显示两段数据，最好的方法是首先将它们组合在一起，但也可以对两个函数进行两次调用，将每一列作为label传递
library(magrittr)
piez_df <- tibble::tribble(
~year, ~ene,
1993, 1871.40,
1994, NA,
1995, 1869.4,
1996, 1866.85,
1997, 1857.94,
1998, 1849.43,
1999, 1849.59,
2000, 1858.61,
2001, 1850.30,
2002, 1852.5,
2003, NA,
2004, 1850.7
) %>%
dplyr::mutate(
plot_text = glue::glue("{year}\n{ene}")
)
ggplot2::ggplot(
data = piez_df,
ggplot2::aes(
x = year,
y = ene
)
) +
ggplot2::geom_point(
color = "black",
size = 2
) +
ggplot2::geom_point(
data = piez_df[base::which.min(piez_df[["ene"]]),],
color = "blue",
size = 3
) +
ggplot2::geom_point(
data = piez_df[base::which.max(piez_df[["ene"]]), ],
color = "red",
size = 3
) +
ggplot2::geom_text(
data = piez_df[base::which.min(piez_df[["ene"]]),],
ggplot2::aes(
label = plot_text
),
check_overlap = TRUE,
nudge_y = 2
) +
ggplot2::geom_label(
data = piez_df[base::which.max(piez_df[["ene"]]),],
ggplot2::aes(
label = plot_text
)
)geom_label函数可用于将点替换为实际标签，而geom_text函数可将文本添加到绘图中。默认情况下，文本将使用数据中的原始x和y坐标进行定位，因此请确保将其微移。
Stack Overflow用户
发布于 2021-02-16 15:05:14
你就快到了。建议使用geom_text()添加文本，如下所示：
cars$lab <- paste(cars$speed,cars$dist, sep="\n")
ggplot(data = cars, aes(x = speed, y = dist)) +
geom_point(color="black", size=2) +
geom_point(data = cars[which.min(cars$dist), ], color="blue",
size=3) +
geom_point(data = cars[which.max(cars$dist), ], color="red",
size=3) +
geom_text(data = rbind(cars[which.min(cars$dist), ], cars[which.max(cars$dist),]), aes(speed+1,dist, label=lab))
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/66219712
复制相关文章
相似问题
腾讯云开发者
