blocks|key|323680|text|我不能百分之百地确定这是你想要的，但以下是我如何处理我所理解的问题。如果我们用xx.sub1.df中的任何数据映射一些未使用的geom，但使其在绘图上不可见，我们仍然可以获得该geom的图例。在这里，我使用了geom_point，但您也可以使用其他方法。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|323681|p+<-+ggplot(xx.sub2.df)+%2B+
++aes(long,+lat,+fill+=+(SID79/BIR79)*1000,+group+=+group)+%2B+
++geom_polygon()+%2B+geom_path(color="grey80")+%2B
++coord_equal()+%2B+
++scale_fill_gradientn(colours+=+brewer.pal(7,+"YlOrBr"))+%2B
++geom_polygon(data+=+xx.sub1.df,+fill+=+"grey50")+%2B+
++geom_path(data+=+xx.sub1.df,+color="grey80")+%2B
++labs(fill+=+"Mapped+value",+title+=+"Title")

#Now+we+add+geom_point()+setting+shape+as+NA,+but+the+colour+as+"grey50",+so+the+
#legend+will+be+displaying+the+right+colour

p2+<-+p+%2B+geom_point(data+=+xx.sub1.df,+aes(size="xx.sub1",+shape+=+NA),+colour+=+"grey50")|code-block|syntax|javascript|323682|​|323683|📷|atomic|323684|323685|现在我们只需要更改图例上点的大小和形状，并更改图例的名称(感谢演示此earlier的@DizisElferts+)。|323686|p2+%2B+guides(size=guide_legend("Source",+override.aes=list(shape=15,+size+=+10)))|323687|323688|323689|323690|当然，您可以更改标签的工作方式或其他方式来突出显示您想要显示的内容。|323691|如果这不是你想要的，让我知道！|323692|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/e0a6c03feb67dcae9fc97e6cdf40e255.png|imageAlt|1|LINK|MUTABLE|url|https://stackoverflow.com/questions/16311335/different-legend-keys-inside-same-legend-in-ggplot2|2|https://ask.qcloudimg.com/http-save/yehe-900000/f307300fe0773c7138b72528d102939e.png^0|13|A|1R|4|2G|4|2W|A|0|0|0|0|1|0|0|0|Y|7|1|0|0|0|0|1|2|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1H|8|@$9|1I|A|1J|B|C]|$9|1K|A|1L|B|C]|$9|1M|A|1N|B|C]|$9|1O|A|1P|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|1Q|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|1R|8|@]|D|@]|E|$]]|$1|M|3|N|5|O|7|1S|8|@]|D|@$9|1T|A|1U|1|1V]]|E|$]]|$1|P|3|L|5|6|7|1W|8|@]|D|@]|E|$]]|$1|Q|3|R|5|6|7|1X|8|@]|D|@$9|1Y|A|1Z|1|20]]|E|$]]|$1|S|3|T|5|H|7|21|8|@]|D|@]|E|$I|J]]|$1|U|3|L|5|6|7|22|8|@]|D|@]|E|$]]|$1|V|3|N|5|O|7|23|8|@]|D|@$9|24|A|25|1|26]]|E|$]]|$1|W|3|L|5|6|7|27|8|@]|D|@]|E|$]]|$1|X|3|Y|5|6|7|28|8|@]|D|@]|E|$]]|$1|Z|3|10|5|6|7|29|8|@]|D|@]|E|$]]|$1|11|3|-4|5|6|7|2A|8|@]|D|@]|E|$]]]|12|$13|$5|14|15|16|E|$17|18|19|-4]]|1A|$5|1B|15|1C|E|$1D|1E]]|1F|$5|14|15|16|E|$17|1G|19|-4]]]]

I'm not 100% sure this is what you want, but here's how I'd approach the problem as I understand it. If we map some unused <code>geom</code> with any data from <code>xx.sub1.df</code>, but make it invisible on the plot, we can still get a legend for that <code>geom</code>. Here I've used <code>geom_point</code>, but you could make it others.

<pre><code>p &lt;- ggplot(xx.sub2.df) + 
 aes(long, lat, fill = (SID79/BIR79)*1000, group = group) + 
 geom_polygon() + geom_path(color="grey80") +
 coord_equal() + 
 scale_fill_gradientn(colours = brewer.pal(7, "YlOrBr")) +
 geom_polygon(data = xx.sub1.df, fill = "grey50") + 
 geom_path(data = xx.sub1.df, color="grey80") +
 labs(fill = "Mapped value", title = "Title")

#Now we add geom_point() setting shape as NA, but the colour as "grey50", so the 
#legend will be displaying the right colour

p2 &lt;- p + geom_point(data = xx.sub1.df, aes(size="xx.sub1", shape = NA), colour = "grey50")
</code></pre>

<img src="https://i.stack.imgur.com/YihAW.png" alt="enter image description here">

Now we just need to alter the size and shape of the point on the legend, and change the name of the legend (thanks to @DizisElferts who demonstrated this <a href="https://stackoverflow.com/questions/16311335/different-legend-keys-inside-same-legend-in-ggplot2" title="earlier">earlier</a>).

<pre><code>p2 + guides(size=guide_legend("Source", override.aes=list(shape=15, size = 10)))
</code></pre>

<img src="https://i.stack.imgur.com/XKwba.png" alt="enter image description here">

Of course you can change the way the labels work or whatever to highlight what you want to show. 

If this isn't what you're after, let me know!

I'm trying to build a map in <code>ggplot2</code> using data from separate data frames.

<pre><code>library(maptools)

xx &lt;- readShapePoly(system.file("shapes/sids.shp", package="maptools")[1], IDvar="FIPSNO", proj4string=CRS("+proj=longlat +ellps=clrk66"))

xx.sub1 &lt;- subset(xx, xx$FIPSNO &lt; 37010)
xx.sub2 &lt;- subset(xx, xx$FIPSNO &gt; 37010)

xx.sub1@data$id &lt;- rownames(xx.sub1@data)
xx.sub1.points &lt;- fortify(xx.sub1, region="id")
xx.sub1.df = plyr::join(xx.sub1.points, xx.sub1@data, by="id")

xx.sub2@data$id &lt;- rownames(xx.sub2@data)
xx.sub2.points &lt;- fortify(xx.sub2, region="id")
xx.sub2.df = plyr::join(xx.sub2.points, xx.sub2@data, by="id")

ggplot(xx.sub2.df) + 
 aes(long, lat, fill = (SID79/BIR79)*1000, group = group) + 
 geom_polygon() + geom_path(color="grey80") +
 coord_equal() + 
 scale_fill_gradientn(colours = RColorBrewer::brewer.pal(7, "YlOrBr")) +
 geom_polygon(data = xx.sub1.df, fill = "grey50") + 
 geom_path(data = xx.sub1.df, color="grey80") +
 labs(fill = "Mapped value", title = "Title")
</code></pre>

Up to this point everything works as expected and I get a nice map:

<img src="https://i.stack.imgur.com/fPGIO.png" alt="enter image description here">

What I'd like to change however is to add separate legend for data from <code>xx.sub1.df</code> - since all polygons are just filled with grey I hope it will be one additional entry.

How can I achieve that?

In ggplot2, how can I add additional legend?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我正在尝试使用来自不同数据框的数据在ggplot2中构建地图。library(maptools)xx <- readShapePoly(system.file("shapes/sids.shp", package="maptools")[1], IDvar="FIPSNO", proj4string=CRS("+pro...

在ggplot2中，如何添加其他图例？-腾讯云开发者社区-腾讯云

问在ggplot2中，如何添加其他图例？
EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在ggplot2中，如何添加其他图例？EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在ggplot2中，如何添加其他图例？
EN