Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/75.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R中有多行的不完全绘图_R_Plot_Ggplot2 - Fatal编程技术网

R中有多行的不完全绘图

R中有多行的不完全绘图,r,plot,ggplot2,R,Plot,Ggplot2,在R中使用base plot函数绘制几条线时遇到问题。当我设置type='o'时,绘图会显示所有值,但当我将其设置为'l'时,什么也不会显示。我想要一条干净的线,显示没有点的每一条线 我试过ggplot,但它没有覆盖绘图的顶部 谁能告诉我为什么会这样 以下是源代码、数据示例以及类型为“o”和“l”的图形: plot(range(c$Date), range(c$`Citibank Share Price`,na.rm=T), type="n", xlab="Year", ylab="R

在R中使用base plot函数绘制几条线时遇到问题。当我设置type='o'时,绘图会显示所有值,但当我将其设置为'l'时,什么也不会显示。我想要一条干净的线,显示没有点的每一条线

我试过ggplot,但它没有覆盖绘图的顶部

谁能告诉我为什么会这样

以下是源代码、数据示例以及类型为“o”和“l”的图形:

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)

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() 

colnames(c)[-1]你能把你的全部数据发布到某个地方吗?看起来你的问题可能是
lty=.1
。将
.1
更改为1到5之间的整数。(供参考,如果需要,您还可以使用其他方法指定更广泛的线型;例如,请参见。该示例使用ggplot2,但您可以在基本图形中以相同的方式指定线型。)
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()