2

我参考了这个问题的答案并有其他问题。

我已将代码修改如下：

library(ggplot2)

ids <- letters[1:2]

# IDs and values to use for fill colour
values <- data.frame(
  id = ids,
  value = c(4,5)
)

# Polygon position
positions <- data.frame(
  id = c(rep(ids, each = 10),rep("b",5)),
  #     shape      hole         shape        hole
  x = c(1,4,4,1,1, 2,2,3,3,2,   5,10,10,5,5, 6,6,7,7,6, 8,8,9,9,8),
  y = c(1,1,4,4,1, 2,3,3,2,2,   5,5,10,10,5, 6,7,7,6,6, 8,9,9,8,8)
)

# Merge positions and values
datapoly <- merge(values, positions, by=c("id"))

chart <- ggplot(datapoly, aes(x=x, y=y)) + 
  geom_polygon(aes(group=id, fill=factor(value)),colour="grey") +
  scale_fill_discrete("Key")

并给出以下输出：

在此处输入图像描述

有一条线穿过两个彩色框，我不太喜欢它，我该如何删除它？谢谢。

4

2 回答 2

7

我多年前提出的用于绘制孔的解决方案是确保在每个孔之后您的 x,y 坐标返回到同一个位置。这会阻止线在周围嗡嗡作响并穿过其他多边形并留下绕组数算法不填充（或不应该填充时填充）的开放区域。

因此，如果您有一个数据集，其中前 27 个点是您的外部点，然后您有 5、6 和 7 个点的三个孔，请构建一个新数据集：

newdata = data[c(1:27,28:32,27,33:38,27,39:45,27),] # untested

注意它是如何在每个洞后跳回第 27 点的。确保你的洞顺时针方向（我认为）。

然后使用 newdata 绘制，但只填充，不绘制轮廓。如果您需要轮廓，请稍后添加（使用按环 id 分组的原始数据）

您有时会得到非常非常薄的伪影，其中孔的出线与入线的绘制不太一样，但它们几乎不引人注意。怪布雷森汉姆。

于 2012-08-21T08:50:59.277 回答
2

试试这个

ggplot(datapoly, aes(x=x, y=y)) +
  geom_polygon(aes(group=id, fill=factor(value))) +
  scale_fill_discrete("Key")

在此处输入图像描述

于 2012-08-21T02:36:47.933 回答