- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我想创建 facet_grid
/facet_wrap
图,其中 x 轴在每个图表下重复,但刻度仅出现在最低图表上。
这是一个使用 facet_grid
绘制的 x 轴仅出现一次的示例
ggplot(mtcars, aes(y=mpg,x=cyl)) +
facet_grid(am~., scales="free") +
geom_point() +
theme_classic() +
theme(strip.background = element_rect(colour="white", fill="white"),
strip.text.y = element_blank())
这是一个绘图示例,其中 x 轴出现两次,但两次都使用 facet_wrap
ggplot(mtcars, aes(y=mpg, x=cyl)) +
facet_wrap(~am, ncol=1, scales="free") +
geom_point() +
theme_classic() +
theme(strip.background = element_rect(colour="white", fill="white"),
strip.text.x = element_blank())
我想要与上面的图相同的图,但上图的 x 轴上没有刻度线。或者,如果您愿意,我想要与第一个图相同的图,但在上图上有一个 x 轴。
最佳答案
这是一个非常冗长的解决方案,但我认为您无法仅使用常用的 ggplot
函数来获得所需的绘图。
library(ggplot2)
library(grid)
Plot <- ggplot(mtcars, aes(y=mpg, x=cyl)) +
facet_wrap(~am, ncol=1, scales="free") +
geom_point() +
theme_classic() +
theme(strip.background = element_rect(colour="white", fill="white"),
strip.text.x = element_blank())
关闭顶部 x 轴需要修改绘图的 gtable 对象。
Plot.build <- ggplot_gtable(ggplot_build(Plot))
axis.pos <- grep("axis-b-1-1", Plot.build$layout$name)
num.ticks <- length(Plot.build$grobs[[axis.pos]]$children[2]$axis$grobs[[1]]$y)
此步骤删除轴标签:
Plot.build$grobs[[axis.pos]]$children$axis$grobs[[2]]$children[[1]]$label <- rep("", num.ticks)
此步骤删除刻度线:
Plot.build$grobs[[axes.pos]]$children[2]$axis$grobs[[1]]$y <- rep(unit(0, units="cm"), num.ticks)
最后,使用以下方法生成绘图:
grid.draw(Plot.build)
关于r - `ggplot2 - facet_grid` : Axes without ticks in interior facets,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48217290/
我有一个大致如下所示的数据集: names = tibble(NAME_2=c("Location1","Location2","Location3","Location4")) dates = ti
问题是什么? ggplot2 中的每个方面可能不包含“名称”列中的所有因子水平,在这种情况下,我希望该方面忽略这些因子水平以避免图 block 中的间隙。 我尝试了什么 我尝试在 中添加和删除 sca
我想使用分面网格只显示右边距而不是底部边距。 示例代码 library(ggplot2) qplot(mpg, wt, data=mtcars) + facet_grid(cyl ~ vs, marg
我刚刚在 ggplot2 0.9 中遇到了 facet_grid() 的奇怪行为,我想知道是否有人可以向我解释一下...... 采用以下 df 数据框: var <- sample(c("red",
我有以下数据框: Date K Row Col Downward_solar_radiation Solar_radiation_calc 1 2014-01-02 1 1 1
这是 this question 的变体和 this question我还没有找到解决方案。 以mtcars为例,我想要一个类似下面的情节 ggplot(mtcars, aes(x=cyl,y=mpg
我想在一组分面网格箱线图的每一行中添加一条唯一的水平线。 x<-c("species_X","species_X","species_X", "species_Y","species_Y",
我希望有人可以帮助解决我遇到的这个绘图问题。资料可查here . 基本上,我想为我测试的 4 个模型绘制一条线(平均值)及其相关的置信区间(下、上)。我想对 Cat_Auth 变量进行分面,该变量有
我很难为我的 2 个不同的 facet_grids 获得不同的颜色。 这是我的简单示例: df <- data.frame(x = rep(1:20, each=20), y= rep(1:20, 2
我想从多面 ggplot2 图中有选择地删除不必要的方面。我看过这个问题,但不知道怎么做(也许那里的建议现在已经过时了): adding empty graphs to facet_wrap in g
我正在寻找一种使用 facet_grid 进行绘图的方法在 ggplot2只显示几个选定的方面。说我有以下情节: 例如,一直在寻找一种快速的方法来绘制方面 1 和 3。 #data y<-1:12 x
我有几个关于 ggplot2 分面的问题... 假设我有一个查询返回如下所示的数据: (请注意,它是按 Rank asc 排序的,Alarm asc 和两个 Alarms 的 Rank 为 3,因为它
我有一个如下所示的数据框: Direction ID RY Value Part_of_prog North 1 2016 29 0 No
我想同时显示右侧和底部边距,但不是两者的组合。这可能与 facet_grid 吗? library(ggplot2) ggplot(mtcars, aes(x = hp, group = vs)) +
在我下面的情节中,我想知道如何保持一切不变,但只是删除空的情节? library(tidyverse) hsb <- read.csv('https://raw.githubusercontent.c
以下示例创建了一个 ggplot与 4 个面板“A”、“B”、“C”、“D”排成一排。 我想出了如何在一列中绘制这 4 个面板。然而,仍然是个谜是如何排列 4 个面板,使“A”和“B”在第一行,而“C
我想要的是删除右侧的那些标签,即侧面灰色框上的标签。我举个例子: p <- ggplot(mtcars, aes(mpg, wt, col=factor(cyl))) + geom_point() p
我想使用 facet_grid 在彼此之上绘制一些条形图: library(ggplot2) df % summarise(cty = mean(cty), hwy = mean(hwy)) %>
我正在使用 中的“提示”数据集ggplot2 .如果我做 sp = ggplot(tips,aes(x=total_bill, y = tip/total_bill)) + geom_
在 ggplot , 当使用 facet_grid(..., space = "free_y")并且组内的点数很少,分面标题被切断。 例如... library(tidyverse) d pg Ta
我是一名优秀的程序员,十分优秀!