问题描述
我在ggplot2中制作条形图，出于演示原因，我需要在我的一些条形图之间有空格。我在 scale_x_discrete 中使用了限制来插入空栏，这给了我需要的空间。
在我的模拟数据中，组之间 b 和 c 看起来很完美，但是 a 和 b 在背景中仍然有黑色刻度线和白线。我不需要任何x轴网格线，所以我可以很容易地解决白线的问题，但我无法弄清楚如何摆脱刻度线。
我正在使用R版本3.3.1（2016-06-21） - Bug in Your Hair，在RStudio中工作，代码需要ggplot2
###模拟具有与我的
my.data相同结构的数据< - data.frame（x = rep（c（a，b c，d），3），
y = c（e，f，g））
###图形
ggplot （my.data，aes（x = x，fill = y））+
geom_bar（position =fill）+
scale_x_discrete（limits = c（a，，b ，，c，d））
###通过删除所有x个网格线删除背景中的白线
ggplot（my.data，aes（x = x ，fill = y））+
geom_bar（position =fill）+
scale_x_discrete（limits = c（a，，b，，c，d ））+
theme（panel.grid.minor.x = element_blank（），
panel.grid.major.x = element_blank（））
如何删除 a 和 b ？
如果我需要改变我在条形图之间插入空格的方式，我该怎么做并维护图形结构？
$ b $你可以通过黑客来做你想要的：如果你替换你的空白
限制 / code>，第一个值为a，ggplot会在第一次出现时放置该栏，并将下一栏留空。 my.data< -data.frame（x = rep（c（a，b，c ，d），3），
y = c（e，f，g））
ggplot（my.data，aes（x = x， fill = y））+
geom_bar（position =fill）+
scale_x_discrete（limits = c（a，a，b，a，c， d））
但是， right 分隔变量的方法是通过facetting，这需要一个变量来定义你想要的组，例如
library（dplyr）
＃使用您最喜欢的语法创建
my.data％>％mutate（grp = case_when（。$ x =='a'〜1，
。$ x =='b'〜2，
TRUE〜3））
＃> x y grp
＃> 1 a e 1
＃> 2 b f 2
＃> 3 c g 3
＃> 4 d e 3
＃> 5 a f 1
＃> 6 b g 2
＃> 7 c e 3
＃> 8 d f 3
＃> 9 a g 1
＃> 10 b e 2
＃> 11 c f 3
＃> 12 dg 3
您可以将其传递给ggplot进行构造：
my.data％>％mutate（grp = case_when（。$ x =='a'〜1，
。$ x =='b'〜2，
TRUE〜3））％>％
ggplot（aes（x，fill = y））+
geom_bar（position ='fill '）+
facet_grid（。〜grp，space ='free_x'，scales ='free_x'）
I'm making a bargraph in ggplot2, and for presentation reasons I need spaces between some of my bars. I'm using limits in scale_x_discrete to insert empty bars, which gives me the spacing I need.
The gap between groups b and c in my mock data looks perfect, but the gap between a and b still has the black tick mark and the white line in the background. I don't need any x axis gridlines, so I can fix the problem of the white line easily enough, but I can't work out how to get rid of the tick mark.
I'm using R version 3.3.1 (2016-06-21) -- "Bug in Your Hair", working in RStudio and the code requires ggplot2
### Mock data with the same structure as mine
my.data <- data.frame(x = rep(c("a", "b", "c", "d"), 3),
y = c("e", "f", "g"))
### Make graph
ggplot(my.data, aes(x = x, fill = y)) +
geom_bar(position = "fill") +
scale_x_discrete(limits = c("a", "", "b", "", "c", "d"))
### Remove white line in background by removing all x grid lines
ggplot (my.data, aes(x = x, fill = y)) +
geom_bar(position = "fill") +
scale_x_discrete(limits = c("a", "", "b", "", "c", "d")) +
theme(panel.grid.minor.x = element_blank(),
panel.grid.major.x = element_blank())
How do I remove the black tick mark between a and b?
If I need to change the way I'm inserting spaces between bars, how do I do that and maintain the graph structure?
解决方案 You can do what you're asking through a hack: If you replace your blank limits with the first value "a", ggplot will place the bar at the first occurrence and leave the next ones blank:
my.data <-data.frame (x=rep(c("a", "b", "c", "d"),3),
y=c("e", "f", "g"))
ggplot(my.data, aes(x=x, fill = y)) +
geom_bar(position = "fill") +
scale_x_discrete(limits = c("a", "a", "b", "a", "c", "d"))
However, the right way to separate variables is by facetting, which requires a variable to define the groups you want, e.g.
library(dplyr)
# create with your favorite grammar
my.data %>% mutate(grp = case_when(.$x == 'a' ~ 1,
.$x == 'b' ~ 2,
TRUE ~ 3))
#> x y grp
#> 1 a e 1
#> 2 b f 2
#> 3 c g 3
#> 4 d e 3
#> 5 a f 1
#> 6 b g 2
#> 7 c e 3
#> 8 d f 3
#> 9 a g 1
#> 10 b e 2
#> 11 c f 3
#> 12 d g 3
which you can pass to ggplot for facetting:
my.data %>% mutate(grp = case_when(.$x == 'a' ~ 1,
.$x == 'b' ~ 2,
TRUE ~ 3)) %>%
ggplot(aes(x, fill = y)) +
geom_bar(position = 'fill') +
facet_grid(. ~ grp, space = 'free_x', scales = 'free_x')
这篇关于在R中删除ggplot2中的单个x轴刻度标记？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！