3

添付のグラフィックを自分のデータセットで再作成しようとしています。添付の R スクリプトは 90% ありますが、図に従って線を様式化する方法を見つけることができないようです。具体的には、実線で始まり、点で終わり、破線として続くライン フィーチャが必要です。私は R で ggplot2 を使用することを好みます。

x = 5点で終わり、最後に破線として続くまで、図の各線を実線にするにはどうすればよいですか?

ここに画像の説明を入力

# Sample Dataset
Samples = c(1,2,3,4,5,6,7,8,9,10)
SestYB = c(2.1,3.89,5.42,6.73,7.87,8.86,9.75,10.56,11.3,12)
CILowYB = c(1.03,2.01,2.92,3.76,4.52,5.21,5.82,6.37,6.86,7.3)
CIUpYB = c(3.17,5.77,7.91,9.7,11.21,12.51,13.68,14.74,15.74,16.7)
SestEH = c(1.3,2.29,3.06,3.68,4.19,4.63,5.03,5.38,5.7,6)
CILowEH = c(0.34,0.73,1.13,1.5,1.84,2.13,2.39,2.61,2.79,2.95)
CIUpEH = c(2.26,3.85,4.98,5.85,6.54,7.14,7.66,8.15,8.61,9.05)
data.frame(Samples,SestYB,CILowYB,CIUpYB,SestEH,CILowEH,CIUpEH)

require(ggplot2)

mydata = data.frame(Samples,SestYB,CILowYB,CIUpYB,SestEH,CILowEH,CIUpEH)

# Variables
EH = mydata$SestEH
YB = mydata$SestYB

yb_lower = mydata$CILowYB
yb_upper = mydata$CIUpYB

eh_lower = mydata$CILowEH
eh_upper = mydata$CIUpEH

# Plot data
ggplot(mydata, aes(Samples)) + 
  xlab("Samples") +
  ylab("Species") +
  geom_line(aes(y=YB), 
            colour="blue", size = 1.25) + 
  geom_line(aes(y=EH), 
            colour="red", size = 1.25) +
  geom_ribbon(aes(ymin=yb_lower, ymax=yb_upper), 
              fill = "blue", 
              alpha=0.2) +
  geom_ribbon(aes(ymin=eh_lower, ymax=eh_upper), 
              fill = "red", 
              alpha=0.2) +
  theme(panel.background = element_blank()) +
  theme(panel.grid = element_blank()) +
  theme(axis.line = element_line(size = 1, colour = "dark gray", linetype = "solid"))
4

1 に答える 1

7

ここに非常に長い解決策があります。データフレームにある変数の名前を使用しましたmydata。

アイデアは、個別にプロットすることは、値 5 まで、次に値 5 の後に線分をプロットすることです。このため、subset()関数を使用しました。セグメントが確実に結合されるように、両方の線セグメント値 5 が含まれます。ポイントを追加するには、 geom_point() を使用し、値 5 だけにデータをサブセット化します。

ggplot() + 
  geom_line(data=subset(mydata,Samples<=5),aes(Samples,y=SestYB), 
            colour="blue", size = 1.25,linetype="solid") + 
  geom_line(data=subset(mydata,Samples>=5),aes(Samples,y=SestYB), 
            colour="blue", size = 1.25,linetype="dashed") +
  geom_line(data=subset(mydata,Samples<=5),aes(Samples,y=SestEH), 
          colour="red", size = 1.25,linetype="solid") + 
  geom_line(data=subset(mydata,Samples>=5),aes(Samples,y=SestEH), 
            colour="red", size = 1.25,linetype="dashed")+ 
  geom_ribbon(data=mydata,aes(Samples,ymin=CILowYB, ymax=CIUpYB), 
              fill = "blue", 
              alpha=0.2) +
  geom_ribbon(data=mydata,aes(Samples,ymin=CILowEH, ymax=CIUpEH), 
              fill = "red", 
              alpha=0.2)+
  geom_point(data=subset(mydata,Samples==5),aes(Samples,SestYB),size=5)+
  geom_point(data=subset(mydata,Samples==5),aes(Samples,SestEH),size=5)

ここに画像の説明を入力

于 2013-05-28T17:50:37.650 に答える