如何在ggplot中的躲避几何之间画线？

Question

我正在尝试找出如何在ggplot中的躲避几何之间绘制一条线。

我想用一条线连接使用position_dodge()躲避过的条形（或其他几何形状）的顶部

以下是使用mtcars

的示例

我希望该行将单个gear组中的条形顶部连接起来。

但是，如果我仅为position_dodge指定一个geom_line()，则结果行将连接carb级别的顶部。

ggplot(
  data = mtcars,
   aes(
       x=gear,
       y=cyl,
       group=carb
       )
    )+
    geom_col(
    position = position_dodge(width = 0.9)
    )+
    geom_line(
    position = position_dodge(width = 0.9)
    )

将gear指定为geom_line()中的分组，只产生一条垂直线。

ggplot(
  data = mtcars,
  aes(
     x=gear,
     y=cyl,
     group=carb
    )
  )+
   geom_col(
     position = position_dodge(width = 0.9)
   )+
   geom_line(
    aes(
      group=gear
    ),
    position = position_dodge(width = 0.9)
  ) 

所需的输出如下所示：

Answer 1

您可以尝试以下方法。内联说明：

function kond_ajax(){
$k_t = $this->Hb_model->select_kr();
$j_kr = count($kr_total);
$idkr = "idkr";
$np = "np";
$idkp ="idkp";

for ($i=1; $i <= $jj_kr ; $i++) { 
  $idkrr = $idkr.$i;
  $npp = $np.$i;
  $idkpp = $idkp.$i;

  $data_ap = array(
    $idkrr => $this->input->post($idkrr),
    $npp   => $this->input->post($npp),
    $idkpp => $this->input->post($idkpp)
  );
   print_r($data_ap);

}