如何在ggplot中调整载荷标签至箭头末端？

当前载荷标签位于箭头基部（表现为标签靠近原点，未跟随箭头末端），期望调整至箭头末端位置。

原使用代码： #

ggplot <- ggplot(data=sep_total_raw_data, aes(x=pc1t, y=pc2t))+geom_point(alpha=0.8, size=1,aes(colour=Data_Type, shape=Data_Type))+xlab("PC1 (53.83%)")+ylab("PC2 (26.3%)")+guides(colour=guide_legend(title="Data_Type"))+geom_mark_hull(concavity=5, expand=0, radius=0, aes(fill=Data_Type))+theme(panel.grid = element_blank(), panel.border = element_rect(fill = "transparent"))+geom_text(aes(label=Code, fontface="bold", colour=Data_Type))

ggplot + geom_segment(data = PCA_loadings, aes(x=0, y=0, xend=PC1*4.6, yend=PC2*4.6), arrow = arrow(length = unit(0.03, "npc")), alpha=1)+ geom_text(data=PCA_loadings, mapping = aes(x=PC1, y=PC2, label=rownames(PCA_loadings)), hjust=1, vjust=-0.2)

可复现代码（基于iris数据集）： #

ggplot <- ggplot(data=iris, aes(x=Petal.Length, y=Petal.Width))+geom_point(alpha=0.8, size=1,aes(colour=Species, shape=Species))+xlab("Petal Length")+ylab("Petal Width")+guides(colour=guide_legend(title="Species"))+geom_mark_hull(concavity=5, expand=0, radius=0, aes(fill=Species))+theme(panel.grid = element_blank(), panel.border = element_rect(fill = "transparent"))+geom_text(aes(label=Species, fontface="bold", colour=Species))

解决方法： #

问题核心是标签坐标与箭头末端坐标不匹配：箭头末端用了放大后的载荷值（PC1*4.6、PC2*4.6），但标签仍使用原始载荷值（PC1、PC2），导致标签停在箭头基部。

修改时需：

• 将geom_text的x、y参数改为与箭头末端一致的放大后坐标
• 调整hjust和vjust，让标签紧贴箭头末端（可根据箭头方向微调）

修改后的实际代码：

ggplot <- ggplot(data=sep_total_raw_data, aes(x=pc1t, y=pc2t))+geom_point(alpha=0.8, size=1,aes(colour=Data_Type, shape=Data_Type))+xlab("PC1 (53.83%)")+ylab("PC2 (26.3%)")+guides(colour=guide_legend(title="Data_Type"))+geom_mark_hull(concavity=5, expand=0, radius=0, aes(fill=Data_Type))+theme(panel.grid = element_blank(), panel.border = element_rect(fill = "transparent"))+geom_text(aes(label=Code, fontface="bold", colour=Data_Type))

# 关键修改：geom_text的x和y使用PC1*4.6、PC2*4.6，同时调整hjust/vjust
ggplot + geom_segment(data = PCA_loadings, aes(x=0, y=0, xend=PC1*4.6, yend=PC2*4.6), arrow = arrow(length = unit(0.03, "npc")), alpha=1)+ 
  geom_text(data=PCA_loadings, mapping = aes(x=PC1*4.6, y=PC2*4.6, label=rownames(PCA_loadings)), hjust=1.1, vjust=1.1)

基于iris的可复现修改示例（模拟载荷箭头）：

如果要在iris示例中添加箭头和标签，可参考以下代码：

# 先模拟载荷数据
set.seed(123)
PCA_loadings <- data.frame(
  PC1 = rnorm(4),
  PC2 = rnorm(4)
)
rownames(PCA_loadings) <- colnames(iris)[1:4]

ggplot <- ggplot(data=iris, aes(x=Petal.Length, y=Petal.Width))+geom_point(alpha=0.8, size=1,aes(colour=Species, shape=Species))+xlab("Petal Length")+ylab("Petal Width")+guides(colour=guide_legend(title="Species"))+geom_mark_hull(concavity=5, expand=0, radius=0, aes(fill=Species))+theme(panel.grid = element_blank(), panel.border = element_rect(fill = "transparent"))+geom_text(aes(label=Species, fontface="bold", colour=Species))

# 添加箭头和标签，标签放在箭头末端
ggplot + geom_segment(data = PCA_loadings, aes(x=0, y=0, xend=PC1*2, yend=PC2*2), arrow = arrow(length = unit(0.03, "npc")), alpha=1)+ 
  geom_text(data=PCA_loadings, mapping = aes(x=PC1*2, y=PC2*2, label=rownames(PCA_loadings)), hjust=1.1, vjust=1.1)

说明： #

• 调整hjust和vjust的数值可优化标签与箭头的相对位置，比如箭头指向右上方时，hjust=1.1和vjust=1.1会让标签在箭头末端的外侧；若箭头指向左下方，可尝试hjust=-0.1和vjust=-0.1。
• 确保箭头和标签使用的放大系数一致（示例中的4.6、2），否则标签仍会错位。

内容的提问来源于stack exchange，提问作者stakrawolf