我在Mac上使用R中的ggplot,使用group选项绘制折线图。我想添加与每条线的端点相对应的值。这是我正在使用的数据的一部分:
Year Foundation Type No. of Houses Percent Shares
1 2000 Crawl Space 209529 16.84583
2 2001 Crawl Space 206431 16.58441
3 2002 Crawl Space 204327 15.58577
4 2003 Crawl Space 213328 15.39025
5 2004 Crawl Space 224195 14.63272
6 2005 Crawl Space 258254 15.91873我运行以下代码:
ggplot(USbyFoundType, aes(x=Year, y=`Percent Shares`,
group=`Foundation Type`, color=`Foundation Type`)) +
geom_line() 我得到了这张图表。我想把值放在每一行的末尾。

谢谢你的帮助
发布于 2021-07-03 05:04:11
如果有一个可重现的例子就好了,但是类似于:
endpts <- (USbyFoundType
%>% group_by(`Foundation Type`)
%>% filter(Year == max(Year))
)然后添加
+ geom_text(data = endpts, aes(x = Year, y = `Percent Shares`,
colour = `Foundation Types`,
label = `Percent Shares`)您可能需要处理水平对齐(hjust)、间距(nudge_x)和页边距(例如+ expand_limits(y=2030))。
This question是关于在线条末尾绘制标签(而不是值)的,但包含了许多关于调整位置、边距、裁剪等的有用信息。
https://stackoverflow.com/questions/68230819
复制相似问题