gpt4 book ai didi

r - 绘制带孔的 "donut"多边形

转载 作者:行者123 更新时间:2023-12-01 12:30:02 24 4
gpt4 key购买 nike

我想在 ggplot2 中制作圆环状的填充多边形,中心是透明的。我认为最好的方法是将外部多边形和内部多边形组合成一个形状,用一个“主干”连接两个多边形,然后填充这个形状。 (想象一下,如果您必须在不将笔从页面上移开的情况下绘制两个同心圆,则必须绘制茎干。)请参见下面的示例。但是,问题是它仍然填充了多边形的内部!有人知道为什么会这样吗?

library(ggplot2)

#generates a dataframe of points for a regular polygon, with the starting point duplicated at the end.
NgonPoints <- function(center=c(0,0), radius=1, nsides=100, start=0, end=2)
{
tt <- seq(start*pi, end*pi, length.out=nsides+1)
data.frame(x = round(center[1] + radius * cos(tt),5),
y = round(center[2] + radius * sin(tt),5))
}

#get points for an inner and outer square
twosquares <- rbind(NgonPoints(nsides=4, radius=1), NgonPoints(nsides=4, radius=.5))


test <- ggplot(data=twosquares, mapping=aes(x=x,y=y)) +
coord_fixed(ratio=1)+
xlim(-1,1)+
ylim(-1,1)+
theme_bw() +
theme(axis.line = element_line(colour = "black"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank())

#this traces the correct path
test <- test + geom_path()
test
#but this fills the inside of the inner square
test <- test + geom_polygon(alpha=.5)
test

plot results

最佳答案

外方正方形逆时针方向:

twosquares$id <- seq_len(nrow(twosquares))
ggplot(data=twosquares, mapping=aes(x=x,y=y)) +
geom_text(aes(label=id))

因此,您必须顺时针定位内部正方形以避免填充它:

ggplot(data=twosquares[c(1:6,9,8,7,10), ], mapping=aes(x=x,y=y)) +
geom_polygon()

关于r - 绘制带孔的 "donut"多边形,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35088138/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com