R如何沿着比图范围更短的范围填充两块地块之间的区域？

Question

我正在研究R，我刚刚制作了一个情节。问题是我需要填写两条迹线之间的区域，但不是在整个范围内 我发现参数fill =“....”但是它填充了所有图表，我需要控制哪个轨迹填充区域并设置一个比图表范围短的范围。
那么请你帮我做一下吗？

<LinearLayout
    android:layout_width="wrap_content"
    android:layout_height="wrap_content"
    android:orientation="vertical">

    <LinearLayout
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:orientation="horizontal"
        tools:layout_editor_absoluteX="0dp"
        tools:layout_editor_absoluteY="0dp">

        <TextView
            android:id="@+id/textView3"
            android:layout_width="match_parent"
            android:layout_height="94dp"
            android:layout_margin="5dp"
            android:text="@string/nut1" />
    </LinearLayout>

    <View
        android:layout_width="395dp"
        android:layout_height="2dp"
        android:background="@color/colorPrimary"
        tools:layout_editor_absoluteX="8dp"
        tools:layout_editor_absoluteY="0dp" />

    <LinearLayout
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:orientation="horizontal"
        tools:layout_editor_absoluteX="0dp"
        tools:layout_editor_absoluteY="0dp">

        <ImageView
            android:layout_width="94dp"
            android:layout_height="94dp"
            android:adjustViewBounds="false"
            android:background="@drawable/one"
            android:contentDescription="@string/nut3"
            android:cropToPadding="false"
            android:saveEnabled="false"
            android:scaleType="center" />

        <TextView
            android:id="@+id/textView1"
            android:layout_width="match_parent"
            android:layout_height="94dp"
            android:layout_margin="10dp"
            android:text="@string/nut3" />
    </LinearLayout>
</LinearLayout>

This is what i'm trying to do

Answer 1

我不熟悉着色的plot_ly语法。这是ggplot的另一种选择：

ggplot(data, aes(x=sem)) + 
      geom_line(aes(y = A)) + 
      geom_line(aes(y = B)) +
      geom_ribbon(data=subset(data, 3 <=  sem & sem <= 9), 
                  aes(ymin=B, ymax= A), fill="blue", alpha="0.5")