2

タイトルを切り捨てずに、cowplot の plot_grid で生成したこのグラフから軸ラベルを削除したいと思います。ここに画像の説明を入力

これが私のコードです

    data(mtcars)
 library(ggplot2)
 library(cowplot)
 mpg = ggplot() +
 geom_boxplot(aes(y = mpg,x = as.factor(cyl)),data=mtcars) +
 coord_flip()
 am=ggplot() +
 geom_boxplot(aes(y = mpg,x = as.factor(am)),data=mtcars) +
 coord_flip()
 vs=ggplot() +
 geom_boxplot(aes(y = mpg,x = as.factor(vs)),data=mtcars) +
 coord_flip()
 gear = ggplot() +
 geom_boxplot(aes(y = mpg,x = as.factor(gear)),data=mtcars) +
 coord_flip()
 p=plot_grid(mpg,am,vs,gear, labels = "Variables effecting Mileage", label_size = 14, hjust = -0.5,
 + vjust = 0.5)+theme_grey()
p

また、カウプロットなしでこれを作成する方が簡単だとしたら、何を提案しますか?

4

3 に答える 3

2

このトレーニングはあなたに適していますか？

library(ggplot2)
library(gridExtra)
a <- ggplot() + geom_boxplot(aes(y = mpg,x = as.factor(cyl)),data=mtcars) + coord_flip()  + theme_grey() + theme(axis.title.x = element_blank()) 
b <- ggplot() + geom_boxplot(aes(y = mpg,x = as.factor(am)),data=mtcars) + coord_flip()  + theme_grey() + theme(axis.title.x = element_blank())
c <- ggplot() + geom_boxplot(aes(y = mpg,x = as.factor(vs)),data=mtcars) +
coord_flip() + theme_grey() + theme(axis.title.x = element_blank())
d <-  ggplot() + geom_boxplot(aes(y = mpg,x = as.factor(gear)),data=mtcars) +
coord_flip() + theme_grey() + theme(axis.title.x = element_blank()) 
grid.arrange(a, b, c, d, ncol=2, top = "Variables effecting Mileage")

ここに画像の説明を入力

于 2015-12-26T01:39:27.577 に答える
1

ありがとうマイク。これは仕事をします。

 data(mtcars)
 library(ggplot2)
 library(cowplot)
 library(gtable)
 mpg = ggplot() +
 geom_boxplot(aes(y = mpg,x = as.factor(cyl)),data=mtcars) +
 coord_flip() + labs(x="",y="")
 am=ggplot() +
 geom_boxplot(aes(y = mpg,x = as.factor(am)),data=mtcars) +
 coord_flip()+ labs(x="",y="")
 vs=ggplot() +
 geom_boxplot(aes(y = mpg,x = as.factor(vs)),data=mtcars) +
 coord_flip()+ labs(x="",y="")
 gear = ggplot() +
 geom_boxplot(aes(y = mpg,x = as.factor(gear)),data=mtcars) +
 coord_flip()+ labs(x="",y="")
 p=plot_grid(mpg,am,vs,gear, 
        labels = "Variables effecting Mileage", 
        label_size = 14, hjust = -1.3[![enter image description here][1]][1], vjust = -0.1)+
 theme_grey() +

 # Add some space around the edges  
 theme(plot.margin = unit(c(1,0.5,0.5,0.5), "cm")) 

 # Suppress tick marks
 p=p+scale_y_continuous(breaks=NULL)+scale_x_continuous(breaks=NULL)

# Have to turn off clipping
 gt <- ggplot_gtable(ggplot_build(p))
 gt$layout$clip[gt$layout$name == "panel"] <- "off"

# need to draw it with the new clip settings
 grid.draw(gt)

これが私のプロットです 解決

于 2015-12-26T15:41:02.857 に答える