R语言绘制双坐标图直方图与折线的结合