1. 使用ggplot2的annotate()函数来添加额外的文本和值，并将其添加到图例中。例如：

library(ggplot2)
df <- data.frame(x = 1:5, y = c(2,6,4,8,5))
ggplot(df, aes(x=x, y=y, color=factor(x))) +
  geom_point() +
  annotate("text", x=4.5, y=7, label="Mean:", color="black") +
  annotate("text", x=4.5, y=6.5, label=mean(df$y), color="red") +
  labs(color = "Values:")

这将在图例中添加额外的文本“Mean”和值，并在图例标题中添加文本“Values”。

2. 另一种方法是通过在标签中使用表达式来添加文本和值。例如：

ggplot(df, aes(x=x, y=y, color=factor(x))) +
  geom_point() +
  labs(color = expression(paste("Values:", " ", "Mean: ", round(mean(df$y)))))

这将在图例标题中添加文本“Values: Mean:”和值。注意要使用expression()函数将文本和代码分开。

以上两种方法都可以实现在图例中添加额外的文本和值。