R 删除条形背景保留面板边框

发布于01月07日

我有以下类型的情节，并希望保持每个条形文本上方的个人方面框作为"标题"的排序，但没有默认的灰色背景和周围的strip.background个黑色边框.我把它涂成白色，接近我想要的 colored颜色，但我希望strip.background的底边或panel.border的顶边是黑色.

在此处输入图像描述

library(ggplot2)

ggplot(mtcars, aes(mpg, hp)) + geom_point() +
    facet_wrap(~carb, ncol = 3) + theme_bw() +
    theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        strip.background = element_rect(colour="white", fill="white"),
        panel.border = element_rect(colour = "black"))

推荐答案

如果将strip.background设为element_blank()，将panel.border设为element_rect(colour="black", fill = NA)，则panel.border的上边缘将为黑色.

ggplot(mtcars, aes(mpg, hp)) + geom_point() +
  facet_wrap(~carb, ncol = 3) + theme_bw() +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        strip.background = element_blank(),
        panel.border = element_rect(colour = "black", fill = NA))

enter image description here

R相关问答推荐

R -创建一列，指示另一列是否具有相同的值

self_函数无法工作--无法子集结束后的列

无法在我的情节中表现出显着的差异

R 删除条形背景保留面板边框

推荐答案

R相关问答推荐

R -创建一列，指示另一列是否具有相同的值

self_函数无法工作--无法子集结束后的列

无法在我的情节中表现出显着的差异

带有叠加饼图系列的Highmap

R for循环返回到先前值

使用case_match()和char数组重新编码值

将包含卷的底部25%的组拆分为2行

制作等距离的线串副本

即使硬币没有被抛出，也要保持对其的跟踪

如何从R ggplot图片中获取SVG字符串？

将. xlsx内容显示为HTML表

计算两列中满足特定条件连续行之间的平均值

R -在先前group_by级别汇总时获取最大大小子组的计数

R如何计算现有行的总和以添加新的数据行

按列中显示的配对组估算NA值

创建列并对大型数据集中的特定条件进行成对比较的更高效程序

为R中的16组参数生成10000个样本的有效方法是什么？

随机 Select 的非NA列的行均数

数据集上的R循环和存储模型系数

为什么不能使用lApply在包装函数中调用子集