这个问题可以通过将legend参数设置为FALSE来解决。以下是一个示例:
library(ggplot2)
#创建一个数据框
df <- data.frame(x = c(1,1,2,2), y = c(1,2,2,1), type = c("A","B","A","B"), size = c(1,2,3,4), stringsAsFactors = FALSE)
#用geom_segments绘制线条
ggplot(df, aes(x = x, y = y, group = type)) +
geom_segment(aes(xend = lead(x), yend = lead(y)), size = df$size, alpha = 0.5, color = df$type) +
scale_color_discrete(guide = FALSE)
这里的主要变化是将scale_color_discrete
函数的guide
参数设置为FALSE。这将取消图例的生成。因此,我们可以通过其他方式解决图例生成的问题,比如使用geom_text
手动添加标签。
上一篇:不同大小的多个数据文件目录
下一篇:不同大小的两个点云比较