在ggplot中绘制图例
融合
我已经使用 ggplot2 生成了一个图，但是我在创建自定义图例时遇到了困难。我的情节是这样的：
黑色部分是ggplot创建的，红色部分是我需要添加的部分。点旁边的矩形实际上是一个标签，但我需要标签轮廓（一个矩形）作为图例的一部分. 我已经提到了相关的问题，但到目前为止我还没有看到类似的问题，因为我认为这个问题在图例中更像是“绘图”而不是“映射”。
有人可以帮我吗？由于我有很多图，我更愿意用 R 解决这个问题，而不是用图像编辑器手动编辑图。谢谢！
编辑：根据要求，一个可重复的样本。抱歉没有提前添加！
library(ggrepel)
dput(df)
structure(list(ID = 1L, Date = structure(16259, class = "Date"),
Primary = 0.009, Secondary = structure(1L, .Label = "Label ABC", class = "factor")), row.names = c(NA,
-1L), class = "data.frame", .Names = c("ID", "Date", "Primary",
"Secondary"))
ggplot(df, aes(Date, Primary)) + geom_point(aes(shape=ifelse(Primary>0, "Detected", "Not Detected"))) + geom_label_repel(aes(label=Secondary)) + scale_shape_manual(values=c("Not Detected"=1,"Detected"=19),name="Primary") + theme_bw()
dmi3kno
您的数据：
df <- data.frame(stringsAsFactors=FALSE,
ID = c(1L, 2L),
Date = c("2014-07-08", "2017-03-12"),
Primary = c(0.009, -0.05),
Secondary = c("Label ABC", "Label BCD")
)
这是本机ggplot解决方案。基本上每个点后面都有一个隐藏的矩形，它是图例中显示的矩形。您需要将它放在不同的 aestetic 上，例如color，而点由 区分shape，以便它不会与点合并为一个图例项。
library(ggrepel)
df %>%
mutate(isDetected=ifelse(Primary>0, "Detected", "Not Detected")) %>%
ggplot(aes(Date, Primary)) +
geom_rect(aes(xmin=Date, xmax=Date, ymin=Primary, ymax=Primary, color=isDetected),
fill="white")+
geom_point(aes(shape=isDetected), size=3) +
geom_label_repel(aes(label=Secondary, color=isDetected), show.legend = FALSE) +
scale_shape_manual(values=c("Not Detected"=1,"Detected"=19))+
labs(shape="Primary",
color="Secondary")+
theme_bw()
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
编辑于
相关文章
TOP 榜单
- 1
UITableView的项目向下滚动后更改颜色，然后快速备份
- 2
Linux的官方Adobe Flash存储库是否已过时？
- 3
用日期数据透视表和日期顺序查询
- 4
应用发明者仅从列表中选择一个随机项一次
- 5
Mac OS X更新后的GRUB 2问题
- 6
验证REST API参数
- 7
Java Eclipse中的错误13，如何解决？
- 8
带有错误“ where”条件的查询如何返回结果？
- 9
ggplot：对齐多个分面图-所有大小不同的分面
- 10
尝试反复更改屏幕上按钮的位置 - kotlin android studio
- 11
如何从视图一次更新多行（ASP.NET - Core）
- 12
计算数据帧中每行的NA
- 13
蓝屏死机没有修复解决方案
- 14
在 Python 2.7 中。如何从文件中读取特定文本并分配给变量
- 15
离子动态工具栏背景色
- 16
VB.net将2条特定行导出到DataGridView
- 17
通过 Git 在运行 Jenkins 作业时获取 ClassNotFoundException
- 18
在Windows 7中无法删除文件（2）
- 19
python中的boto3文件上传
- 20
当我尝试下载 StanfordNLP en 模型时，出现错误
- 21
Node.js中未捕获的异常错误，发生调用
我来说两句