vertical position off piano-staff-name

[Stefan Thomas]

Dear community,
in the below quoted example, the placement of the PianoStaff.instrument Name is not convincing, in my opinion.
How can I change it?
Has it to do with the dynamics and pedal-contextes?
\version "2.12.2"
music = \relative c' {
  c1
}
floete = {
  \set Staff.instrumentName = "Flute" \music
}
rechts = {
    \set PianoStaff.instrumentName = "Klavier" \music
}
links = {
  \music
}
dynamik = {
  s1\p
}
pedal = {
  s2.\sustainOn s4 \sustainOff
}
\layout {
    % Definiert den Kontext,in dem Dynamik und Taktangaben notiert sind
    \context {
      \type "Engraver_group"
      \name Dynamics
      \alias Voice
      \consists "Output_property_engraver" %keine Ahnung, was das bedeuten soll!
      \consists "Script_engraver"
      \consists "New_dynamic_engraver"
      \consists "Dynamic_align_engraver"
      \consists "Text_engraver"
      \consists "Skip_event_swallow_translator"
      \consists "Axis_group_engraver"
      \consists "Text_spanner_engraver"
      \override DynamicLineSpanner #'Y-offset = #0
      \override TextScript #'font-size = #2
      \override TextScript #'font-shape = #'italic
        \override TextScript #'Y-offset = #0
      \override DynamicLineSpanner #'Y-offset = #0
     \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
    }
    \context {
      \type "Engraver_group"
      \name Pedal
      \alias Voice
      \consists "Output_property_engraver" 
      \consists "Piano_pedal_engraver"
      \consists "Dynamic_align_engraver"
      \consists "Text_engraver"
      \consists "Skip_event_swallow_translator"
      \consists "Axis_group_engraver"
   \consists "Text_spanner_engraver"
      pedalSustainStrings = #'("Ped." "*Ped." "*")
      pedalUnaCordaStrings = #'("una corda" "" "tre corde")
      \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
    }
    % modify PianoStaff context to accept Dynamics context
    \context {
      \PianoStaff
      \accepts Dynamics
        \accepts Pedal
    }
        \context {  \Pedal \override PianoPedalBracket #'style = #'bracket }
  }
\score {
  << 
          \new Staff \with { fontSize = #-3 \override StaffSymbol #'staff-space = #(magstep -3) \override StaffSymbol #'thickness = #(magstep -3) } { \floete }
          \new PianoStaff = "Klavier" <<
            \set PianoStaff.instrumentName = "Klavier"
    \new Staff = "rechts" \rechts
    \new Dynamics = "Dynamics_pf" \dynamik
    \new Staff = "links"  \links
    \new Pedal = "pedal" { \set pedalSustainStyle = #'mixed  \pedal }

  >>
    
  >>
  
}