Выровнять столбцы столбчатой ​​диаграммы с точками графика линии с ggplot

Question

Есть ли способ выстроить точки линии с полосками гистограммы, используя ggplot, когда они имеют одинаковую ось x? Вот пример данных, с которыми я пытаюсь это сделать.

library(ggplot2) 
library(gridExtra) 

data=data.frame(x=rep(1:27, each=5), y = rep(1:5, times = 27)) 
yes <- ggplot(data, aes(x = x, y = y)) 
yes <- yes + geom_point() + geom_line() 

other_data = data.frame(x = 1:27, y = 50:76 ) 

no <- ggplot(other_data, aes(x=x, y=y)) 
no <- no + geom_bar(stat = "identity") 

grid.arrange(no, yes) 

Вот результат:

Первая точка линии сюжета находится слева от первого бара, и последняя точка линии сюжета справа последний бар.

Спасибо за ваше время.

Answer 1

Расширение @ немного пост Stibu в: Для выравнивания участков, используйте gtable (Или увидеть ответы на your earlier question)

library(ggplot2) 
library(gtable) 

data=data.frame(x=rep(1:27, each=5), y = rep(1:5, times = 27)) 
yes <- ggplot(data, aes(x = x, y = y)) 
yes <- yes + geom_point() + geom_line() + 
    scale_x_continuous(limits = c(0,28), expand = c(0,0)) 

other_data = data.frame(x = 1:27, y = 50:76 ) 

no <- ggplot(other_data, aes(x=x, y=y)) 
no <- no + geom_bar(stat = "identity") + 
    scale_x_continuous(limits = c(0,28), expand = c(0,0)) 

gYes = ggplotGrob(yes) # get the ggplot grobs 
gNo = ggplotGrob(no) 

plot(rbind(gNo, gYes, size = "first")) # Arrange and plot the grobs 

Редактировать Для изменения высоты участков:

g = rbind(gNo, gYes, size = "first") # Combine the plots 
panels <- g$layout$t[grepl("panel", g$layout$name)] # Get the positions for plot panels 
g$heights[panels] <- unit(c(0.7, 0.3), "null") # Replace heights with your relative heights 
plot(g) 

Answer 2

я могу думать (по крайней мере) два способов, чтобы выровнять й-ось в двух участках:

1. Две осей не совпадают, потому что в баре сюжете, геометрия покрытие x- оси от 0,5 до 27,5, в то время как на другом участке данные варьируются от 1 до 27. Причина в том, что полосы имеют ширину, а точки - нет. Вы можете заставить axex выровнять, явно указав диапазон по оси x. Используя определения из вашего участка, это может быть достигнуто за счет

   yes <- yes + scale_x_continuous(limits=c(0,28)) 
   no <- no + scale_x_continuous(limits=c(0,28)) 
   grid.arrange(no, yes) 
   

   limits устанавливает диапазон оси х. Заметьте, однако, что альгинация все еще не совсем идеальна. Ярлыки оси y занимают немного больше места на верхнем участке, потому что цифры имеют две цифры. Сюжет выглядит следующим образом:

2. Другим решением является немного более сложным, но имеет то преимущество, что ось х рисуется только один раз, и что ggplot гарантирует, что выравнивание является совершенным. Он использует огранку и трюк, описанный в this answer. Во-первых, данные должны быть объединены в один кадр данных по

   all <- rbind(data.frame(other_data,type="other"),data.frame(data,type="data")) 
   

   , а затем участок может быть создан следующим образом:

   ggplot(all,aes(x=x,y=y)) + facet_grid(type~.,scales = "free_y") + 
       geom_bar(data=subset(all,type=="other"),stat="identity") + 
       geom_point(data=subset(all,type=="data")) + 
       geom_line(data=subset(all,type=="data")) 
   

   Хитрость заключается в том, чтобы фасеты быть построена по переменной type который ранее использовался для обозначения двух наборов данных. Но тогда каждый geom получает только подмножество данных, которое должно быть нарисовано с помощью этого geom. В facet_grid я также использовал scales = "free_y", потому что две оси y должны быть независимыми. Этот сюжет выглядит следующим образом:

Вы можете изменить метки граней, давая другие имена при определении кадра all данных.Если вы хотите, чтобы удалить их ALLtogether, затем добавьте следующую строку в ваш сюжет:

+ theme(strip.background = element_blank(), strip.text = element_blank())