通常,人们希望尽量减少绘图中的墨迹.我有一个刻面的情节(facet_wrap),并希望删除尽可能多的墨水,但保持可读性.我已经按照我的意愿进行了设置,除了x轴和y轴不适用于小平面(子地块),除非在最左侧或底部.go 掉这么多墨水后,我相信眼睛需要这些线索,我想知道如何在facet_wrap秒内把x轴和y轴放在所有图中.以下是我迄今为止的代码、当前输出和deired输出(红线是所需的附加模块):

library(ggplot); library(grid)

ggplot(mtcars, aes(mpg, hp)) + 
    geom_point() + 
    facet_wrap(~carb) +
    theme(panel.grid = element_blank(),
        panel.background = element_rect(fill = "white", colour = "black"), 
        panel.border = element_rect(fill = NA, colour = "white"), 
        axis.line = element_line(),
        strip.background = element_blank(),
        panel.margin = unit(2, "lines"))

Current Plot

Desired Plot

推荐答案

最简单的方法是在每个绘图面板中添加线段,

ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() + 
  facet_wrap(~carb) +
  theme_minimal() +
  annotate("segment", x=-Inf, xend=Inf, y=-Inf, yend=-Inf)+
  annotate("segment", x=-Inf, xend=-Inf, y=-Inf, yend=Inf)

example

R相关问答推荐

for循环和if else在R中

如何通过Exams2黑板对非整数字的问题进行评分

如何在热图中绘制一个图形,但在每个单元格中通过饼形图显示?

将Multilinetring合并到一个线串中,使用sf生成规则间隔的点

混淆矩阵,其中每列和等于1

过滤矩阵以获得R中的唯一组合

在ggplot Likert条中添加水平线

编辑文件后编辑RhandsonTable

Highcharter多次钻取不起作用,使用不同方法

如何编辑ggplot的图例字使用自定义对象(gtable)?'

如何在ggplot中标记qqplot上的点?

在df中保留原始变量和新变量

矩阵的堆叠条形图,条形图上有数字作为标签

如何使用tryCatch执行语句并忽略警告?

您是否可以将组添加到堆叠的柱状图

优化从每个面的栅格中提取值

将具有坐标列表列的三角形转换为多个多边形

如何根据其他列中的两个条件来计算数据帧中的行之间的差异?

随机将数据帧中特定列上的某些行设置为NA

TidyVerse中长度不等的列结合向量