我想以某种方式组合两个图，它们有一个共同的 x 轴，但一个是分类数据的多面条形图。另一个是连续数据，没有分面，但与第一个图上的两个方面相关。
我有以下虚拟数据和代码：
farm<- c(22, 33, 22, 33, 22, 33, 22, 33,
22, 33, 22, 33, 22, 33, 22, 33, 22, 33,
22, 33)
year<- c(2010, 2010, 2011, 2011, 2012, 2012, 2013, 2013,
2014, 2014, 2010, 2010, 2011, 2011, 2012, 2012, 2013,
2013, 2014, 2014)
exp<- c('a', 'a', 'a', 'a', 'a', 'a', 'a', 'a',
'a', 'a', 'b', 'b', 'b', 'b', 'b', 'b', 'b',
'b', 'b', 'b')
variable1<- c(3, 1, 3, 1, 2, 0, 2,
1, 3, 0, 1, 1, …