R中有多行的不完整图

Question

我在使用R中的基本绘图功能绘制几行时遇到问题。当我设置type =＆＃39; o＆＃39;时，绘图显示所有值，但是当我将其设置为＆＃时39;升＆＃39;没有出现。我希望有一条简洁的线条，显示每一行没有圆点。

我尝试了ggplot，但它并没有覆盖图块的顶部。

任何人都可以告诉我为什么会这样吗？

以下是源代码，数据样本和类型=＆＃39; o＆＃39;并输入=＆＃39; l＆＃39;：

plot(range(c$Date), range(c$`Citibank Share Price`,na.rm=T), type="n", xlab="Year",
     ylab="Ratio to Jan. 1923 Price (Jan. 31 1923 Price =1)" )
color <- c('yellow','blue','green','black','grey','red')
# add lines
for (i in 2:dim(c)[2]) { 
  lines(c[,1], c[,i], type='l', lty=.1,lwd=.5, col=color[i-1]) 
} 

legend('topleft',legend=c('DJIA','S&P Ind.','S&P Banks','S&P Rail.','S&P 500','Citibank'),col=color,pch=1)

示例数据

        Date Dow Jones Industrials Average (Actual) S&P Industrials Index S&P Banks: Money Center (NYC) S&P Railroads
1 1923-01-31                               1.000000                     1                             1             1
2 1923-02-01                               1.002874                    NA                            NA            NA
3 1923-02-02                               1.013035                    NA                            NA            NA
4 1923-02-03                               1.019501                    NA                            NA            NA
5 1923-02-04                                     NA                    NA                            NA            NA
6 1923-02-05                               1.026686                    NA                            NA            NA
  S&P 500 Composite Price Index (w/GFD extension) Citibank Share Price
1                                               1             1.000000
2                                              NA                   NA
3                                              NA                   NA
4                                              NA             0.997006
5                                              NA                   NA
6                                              NA                   NA

ggplot代码

colnames(c)[-1] <- c('DJIA','S&P_Ind','S&P_NYC_Bank','S&P_Rail','S&P500','Citibank')

c <- melt(c, id.vars='Date')
ggplot(data=c, aes(x=Date,y=value,color=variable, group=variable)) + geom_line()