我的實際資料類似于下面的資料。我的代碼正在生成兩個單獨的圖，如下圖中的兩個頂部圖。但我希望它們在一個情節中，就像圖片中的底部情節一樣。
data(Salaries, package = "carData")
Salaries <- Salaries[1:15,]
Salaries$name <- c("Jim","Alex","Ray","Dog","Kim",
"Michael","Mike","Adrian","Claire","Lucy",
"Fray","Lucas","Crraig","Anthony","Harper")
Salaries <- Salaries[order(Salaries$yrs.since.phd), ]
ggplot(Salaries, aes(x = yrs.since.phd , y=reorder(name, yrs.since.phd)))
geom_point(size = 3, aes(colour = sex))
facet_grid(rows = vars(sex), scales = "free_y" ,space = "free_y")
theme(legend.position = "none")
Salaries <- Salaries[order(Salaries$salary), ]
ggplot(Salaries, aes(x = salary , y=reorder(name, salary)))
geom_point(size = 3, aes(colour = sex))
facet_grid(rows = vars(sex), scales = "free_y" ,space = "free_y")
theme(legend.position = "none")
我不知道該怎么做。我很感激這方面的任何幫助。
uj5u.com熱心網友回復：
我希望這是你想要的
library(ggplot2)
library(gtable)
library(grid)
library(gridExtra)
data(Salaries, package = "carData")
Salaries <- Salaries[1:15,]
Salaries$name <- c("Jim","Alex","Ray","Dog","Kim",
"Michael","Mike","Adrian","Claire","Lucy",
"Fray","Lucas","Crraig","Anthony","Harper")
Salaries <- Salaries[order(Salaries$yrs.since.phd), ]
p1=ggplot(Salaries, aes(x = yrs.since.phd , y=reorder(name, yrs.since.phd)))
geom_point(size = 3, aes(colour = sex))
facet_grid(rows = vars(sex), scales = "free_y" ,space = "free_y")
theme(legend.position = "none",strip.text.y = element_blank())
Salaries <- Salaries[order(Salaries$salary), ]
p2=ggplot(Salaries, aes(x = salary , y=reorder(name, salary)))
geom_point(size = 3, aes(colour = sex))
facet_grid(rows = vars(sex), scales = "free_y" ,space = "free_y")
theme(axis.text.y = element_blank(),
axis.ticks.y = element_blank(),
axis.title.y = element_blank(),
plot.background = element_blank(),
legend.position = "none")
gt1 <- ggplotGrob(p1)
gt2 <- ggplotGrob(p2)
grid.arrange(gt1, gt2, ncol=2)
我的參考來自擺脫那些灰色框上的 facet_grid 標簽？.
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/317988.html