以下は状況です。
group1 <- seq(1, 10, 2)
group2 <- seq(1, 20, 3)
x = c(group1, group2)
mydf <- data.frame (X =x , Y = rnorm (length (x),5,1),
groups = c(rep(1, length (group1)), rep(2, length(group2))))
ggplot(mydf, aes(X, Y, group= groups)) + geom_point()+ facet_grid (.~ group)
次のプロットでは、さまざまなファセットがx制限によってスケーリングされています。
ggplot(mydf, aes(X, Y, group= groups)) + geom_point()+
facet_grid (.~ group, scales = "free_x")
Xの合計幅には意味があるので、スケールだけでなく幅の異なるファセットを作成したいと考えています。したがって、期待されるファセット1の幅は、サイズ2の半分になります。
私があなたを正しく理解していれば、space = "free_x"
はあなたがやりたいことをします。
library(ggplot2)
ggplot(mydf, aes(X, Y)) + geom_point()+
facet_grid (.~ groups, scales = "free_x", space = "free_x")
また、x軸に同じスタイルのラベルを付ける場合:
ggplot(mydf, aes(X, Y)) + geom_point()+
scale_x_continuous(breaks = seq(0,20,2)) +
facet_grid (.~ groups, scales = "free_x", space = "free_x")