我想在类别的单个级别周围创建一个框/矩形,并包括轴类别文本和栏本身:
正如您在照片中看到的,矩形延伸到网格之外,并进入绘图区域,以包围轴文本。我希望有一些可定制的东西,这样我就可以画圆角或不画圆角,改变颜色,并指定它的位置。
下面是我用来生成图的一些通用代码:
ggplot(mtcars, aes(x=factor(cyl)))+
geom_bar(stat="count", width=0.7, fill="steelblue")+
theme_minimal()
希望这个问题还没有在某个地方得到回答!
发布于 2021-08-03 17:18:47
对于矩形,使用带有"rect"
geom_text
设置y为0或-1添加新的准轴p <- ggplot(mtcars, aes(x=factor(cyl)))+
geom_bar(stat="count", width=0.7, fill="steelblue")+
theme_minimal()
p + annotate("rect", xmin = 0.5, xmax = 1.5, ymin = -1, ymax = 12,
alpha = 0, color= "green") +
theme(axis.text.x = element_blank(),
axis.line.x = element_blank(),
axis.ticks.x = element_blank()) +
geom_text(aes(y = -0.5, x = factor(cyl),
label = cyl)) +
labs(title="Rectangle over x axis!",
x ="cyl", y = "count")
https://stackoverflow.com/questions/68640187
复制相似问题