ggplot:如何填充由3条线分隔的4个区域？
ggplot是一个用于数据可视化的R语言包，它提供了丰富的绘图功能。在ggplot中，要填充由3条线分隔的4个区域，可以使用geom_polygon函数。
具体步骤如下：
- 首先，需要准备数据集，包含4个区域的坐标点。每个区域由一组坐标点构成，这些坐标点按照逆时针方向排列。
- 使用ggplot函数创建一个绘图对象，并指定数据集。
- 使用geom_polygon函数添加多边形图层。在geom_polygon函数中，通过aes函数指定x和y的映射关系，以及fill参数指定填充颜色。
- 最后，可以通过scale_fill_manual函数自定义填充颜色。
下面是一个示例代码：
library(ggplot2)
# 准备数据集
data <- data.frame(
x = c(1, 2, 2, 1),
y = c(1, 1, 2, 2),
group = c("A", "B", "C", "D")
)
# 创建绘图对象
p <- ggplot(data, aes(x = x, y = y))
# 添加多边形图层
p <- p + geom_polygon(aes(fill = group))
# 自定义填充颜色
p <- p + scale_fill_manual(values = c("red", "blue", "green", "yellow"))
# 显示图形
print(p)在这个示例中，我们创建了一个4个区域的图形，每个区域由一组坐标点构成。通过填充颜色区分了不同的区域。你可以根据实际需求修改坐标点和填充颜色。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云产品：https://cloud.tencent.com/product
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iot
- 腾讯云区块链（BCBaaS）：https://cloud.tencent.com/product/baas
- 腾讯云元宇宙（Metaverse）：https://cloud.tencent.com/product/metaverse
请注意，以上链接仅供参考，具体产品选择应根据实际需求进行评估。
相关·内容
3回答
我在一个独特的SpatialPolygonsDataFrame中有>100个嵌套多边形。我希望用ggplot2和来绘制它们，所有这些都需要在地图中显示，也就是说，覆盖较大的多边形必须在背景中。
我发现我可以通过在alpha = 0函数中使用geom_polygon来实现这一点，但是如何为每个多边形指定填充颜色呢？
这里是我的代码的一个例子，它只有两个多边形：
library(ggplot2)
读取包含两个shapefiles的csv文件，然后从data.frame转换为fortify。
#read csv file shape_1_2.csv
shape_1_2 = read.csv(&
浏览 2提问于2018-06-28得票数 3
回答已采纳
1回答
我想用ggplot把几个多边形叠加起来。覆盖的填充应该是透明的，但它们的边框应该是红色的。我只想看到第一个多边形的填充，所以我想使覆盖transparent...but，我不能让他们完全透明。不知何故，我会更容易仅仅定义填充颜色为无填充……但我不知道怎么做。有什么想法吗？
以下是重现示例的一些代码：
ids <- factor(c("1.1", "2.1", "1.2", "2.2", "1.3", "2.3"))
values <- data.frame(
浏览 0提问于2013-02-06得票数 3
回答已采纳
我试图画一个散点图，然后覆盖一些多边形，并在ggplot 2中用特定的颜色填充多边形，但我在获取正确的填充颜色时遇到了一些问题。我可以绘制散点图和多边形，并将散点图和多边形的边界着色为相同的颜色，但当我尝试填充多边形时，它们总是显示不同的颜色或给我带来错误。
我的数据是这样的，
id lat long group
Ak 0.5109300 30.43713 1
Ak 0.5109300 30.43713 2
An 0.4709994 30.43434 1
An 0.4860330 30.44015 2
At 0.4956100
浏览 3提问于2017-02-27得票数 3
1回答
我正在修改由其他人制作的地图的代码，它使用包concaveman从点生成凹壳。其目标是绘制海洋中的多个不同的多边形，并通过分组变量对它们进行颜色编码。代码可以很好地绘制所有多边形的地图，并按身份对它们进行颜色编码：
library(sf)
library(concaveman)
library(data.table)
library(ggplot2)
dat <- data.table(longitude = c(-131.319783, -131.141266, -131.08165, -131.079066, -130.894966,
-131.063
浏览 13提问于2022-05-01得票数 0
回答已采纳
1回答
我试图创建一个世界上所有种族的地图-基于一个SpatialPolygonsDataFrame (形状文件可以下载)。我的问题是，每次调用ggplot之后，geom_polygon似乎都会重新分配颜色。以下两个国家的代码运作良好，所有地区/族裔都可以相互区分。
library(rgeos)
library(maptools)
library(rms)
library(igraph)
library(foreign)
library(sp)
library(spdep)
library(ggplot2)
setwd("yourdirectory")
# load GREG da
浏览 3提问于2014-08-24得票数 3
回答已采纳
2回答
我试图用ggplot2包绘制加拿大的一些部分。我知道保持整个多边形可能是很棘手的，因为ggplot正在去掉超出限制的点(如果在scale_x/y_continuous()中使用scale_x/y_continuous())。为了克服这一点，绘制整个地图，然后应用缩放(coord_map)是很有用的。我的多边形都很好，除了海洋的颜色和加拿大/阿拉斯加一样。然而，如果我看整张地图，它是白色的。
一个有用的例子：
require(rgdal)
require(ggplot2)
YK <- map_data("world") ##World
## Regions Canada
浏览 5提问于2017-12-06得票数 3
回答已采纳
我有一个类似的问题：“中的迈克”。问题是如何在地图图中设置区域的轮廓颜色。
建议的解决方案是在边界上添加一个geom_polygon来绘制图。这是可行的，只要整个地区被绘制。当试图限制到一个子区域时，多边形会被奇怪地绘制出来(大概是因为一些顶点被丢弃了)。使用标准的geom_map示例：
# Create example data
ids <- factor(c("1.1", "2.1", "1.2", "2.2", "1.3", "2.3"))
values <- data.frame
浏览 2提问于2012-05-13得票数 5
回答已采纳
我在R里有一个样本数据。
df <- data.frame(product_id= c("A","A","A","B","B","B","C","C"), year = c("2019", "2020", "2021", "2019", "2020", "2021", "2019", "2020"), profit=c(1.5, 2.2
浏览 1提问于2021-03-20得票数 0
回答已采纳
假设我绘制了以下由两个多边形组成的图：
library(ggplot2)
polys <- data.frame(
id = rep(factor(c("1","2")),each=4),
x = c(1,2,2,1,2,3,3,2),
y = c(1,1,2,2,1,1,2,2),
value = rep(c(3, 4), each=4)
)
(p <- ggplot(polys, aes(x=x, y=y)) + geom_polygon(aes(fill=value, group=id)))
这就给出了：
有没
浏览 0提问于2011-05-27得票数 1
回答已采纳
2回答
对于不同的产品，我试图在一个堆叠的条形图中绘制每个销售渠道的销售额，使用R中的ggplot，我绘制了x轴上的产品和y轴上绘制的金额。填充是通道。
我的代码如下所示：
ggplot(df, aes(x=products, y=sales, fill=channel)) + geom_bar(stat = "identity")
有四个不同的销售渠道(网站，电子邮件，街头销售，直接信息)。我面临的问题是，对于不同的产品，使用不同的情节颜色，因为并不是所有的产品都使用每个销售渠道进行销售。重要的是要知道，我想把每一个产品都画成一个单独的图。例如，product1已经使用了所有四个销售
浏览 0提问于2018-11-08得票数 1
回答已采纳
我正在尝试利用在SO上找到的ggplot。问题是我不断地出错，我认为这与试图通过shinydashboard传递函数有关。我试过各种各样的东西。我可以让它在控制台中呈现得很好，而不是在shinydashboard中。
library(shinydashboard)
library(shiny)
library(ggplot2)
library(dplyr)
ui <- fluidPage(
gggauge(52,breaks=c(0,35,70,100)
)
)
server <- function(input, output) {
gggauge
浏览 0提问于2018-11-23得票数 1
回答已采纳
我正试图理解geom_polygon中ggplot中的“填充”参数的行为。
我有一个数据，其中我有多个值，从一个度量的兴趣，在不同的县为每个州。我已经将我的数据库与“映射”包中的坐标合并了，然后我通过ggplot调用了这个地块。考虑到填充变量中提供了不同的数字(均值?中值?插值？)，我不明白ggplot如何为一个状态选择什么颜色。
复制我的数据片段来解释我的意思：
state=rep("Alabama",3)
counties=c("Russell","Clay","Montgomery")
long=c(-87.46201,-8
浏览 1提问于2019-09-23得票数 2
回答已采纳
1回答
我试图用ggplot和plotly绘制一个多边形外壳。
在没有label多边形的情况下，当我在美学中添加额外的标签时，多边形就消失了。
library(data.table)
library(ggplot2)
library(dplyr)
library(plotly)
df <- data.table(continent = c(rep("America",3), rep("Europe",4)),
state = c("USA", "Brasil", "Chile
浏览 1提问于2022-05-16得票数 2
回答已采纳
我想添加阴影区域到图表，以帮助人们了解哪里不好，好，好点可以适合。
Good = x*y>=.66
Ok = x*y>=.34
Bad = x*y<.34
生成正确的数据序列以正确地将曲线边界应用到图表上是很困难的。
生成曲线的最优雅的方法是什么？
额外的问题:你如何做到这一点，以产生不重叠的区域，以便可以使用不同的颜色？
更新
我用一种相当讨厌的方式画出了圆圈。我更新了MRE以使用修改后的segMaker函数。
MRE
library(ggplot2)
pts<-seq(0,1,.02)
x<-sample(pts,50,r
浏览 3提问于2016-02-19得票数 5
回答已采纳
1回答
我对R非常陌生，我设法用下面的代码生成了下面的地图。
我想将地图上最右边的多边形(在代码中表示为"WestTerr“)与其他三个多边形(在代码中表示为"Serena”)着色为不同的颜色。我尝试过各种各样的东西，这些东西都抛出了错误。有人知道怎么帮我吗？
library(ggmap)
library(RgoogleMaps)
library(foreign)
library(raster)
library(sp)
library(rgeos)
library(spatstat)
library(maptools)
library(rgdal)
library(ggplo
浏览 20提问于2016-09-03得票数 1
v1 i想要创建一个二维值可视化的合唱图(=根据有序对填充多边形，其中**v1和 v2 是有序因子)。
下面是一个结果应该是什么样子的示例：
我认为颜色矩阵图例与二维清楚地说明了我想要实现的目标。
我想使用ggplot2::geom_polygon来实现这一点。
最起码的例子：
ids <- factor(c("1.1", "2.1", "1.2", "2.2", "1.3", "2.3"))
values <- data.frame(
id = ids,
v1
浏览 3提问于2016-05-11得票数 2
回答已采纳
2回答
-How我可以将Y轴和X轴分别缩放到0,30和0,50，并根据缩放比例绘制数据点吗？ -How是否将组1、组2和组3的颜色更改为紫色、橙色和黄色？ library(ggplot2)
library(plotly)
ID <- c("Group 1", "Group 1", "Group 1", "Group 2", "Group 2", "Group 2", "Group 3", "Group 3", "Group 3", "Gr
浏览 6提问于2019-02-18得票数 0
我想要创建一个基于变量因子填充to线之间区域的图。我希望多边形在ya > yb行时是红色的，当yb > ya时是绿色的。
xa <- c(1,2,3,4,5,6)
ya <- c(1,10,15,7,12,3)
xb <- c(1,2,3,4,5,6)
yb <- c(5,10,14,12,2,11)
toyset <- as.data.frame(cbind(xa, ya, xb, yb))
toyset$color<-ifelse(toyset$yb>ya,"green","red")
poly_df
浏览 2提问于2016-04-06得票数 1
回答已采纳
这是我在这里的第一个问题，希望这是有意义的，并感谢您的时间提前！
我试图生成一个散点图，数据点是来自一个RNA-Seq数据集的2个处理的基因的log2表达值。通过这段代码，我生成了下面的情节：
ggplot(control, aes(x=log2_iFGFR1_uninduced, y=log2_iFGFR4_uninduced)) +
geom_point(shape = 21, color = "black", fill = "gray70") +
ggtitle("Uninduced iFGFR1 vs Unin
浏览 2提问于2020-04-22得票数 1
回答已采纳
4回答
我正试图绘制一张德国的合唱图，显示按州分列的贫困率(受启发)。
问题是，一些州(例如柏林)完全被其他州(勃兰登堡)包围，我很难弄清楚勃兰登堡的“洞”。
此示例的数据是。
library(rgdal)
library(ggplot2)
library(RColorBrewer)
map <- readOGR(dsn=".", layer="germany3")
pov <- read.csv("gerpoverty.csv")
mrg.df <- data.frame(id=rownames(map@data),ID_1=ma
浏览 8提问于2014-02-13得票数 16
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
