绘制折线图

Question

我正在尝试绘制折线图以及数据集的点。 不幸的是，我无法在图中绘制线条，但是绘制了点吗？ 我收到的错误是geom_path：每一组仅包含一个观察值。您是否需要调整小组审美？ 有人可以帮我吗？

我已经确保所有变量都是数字或字符，而不是因素。我还尝试将它们标记为组，但是没有用。

df<- c('a','b','c','d','e')
df1<-1:5
df2<-11:15
df3<-21:25
df4<-cbind(df,df1,df2,df3)
colnames(df4)<-c("Names", "P1","P2","P3")
df4<-as.data.frame(df4)
dfplot <- gather(df4,key="Period", value="Price",-Names,P1,P2,P3 )
dfplot<-dfplot[order(dfplot$Names),]
vars<-c("Price")
vars1<-c("Names","Period")
dfplot[vars] <- sapply(dfplot[vars], as.numeric)
dfplot[vars1]<-sapply(dfplot[vars1], as.character)  

ggplot(dfplot, aes(x = Period, y = Price, color = Names),group=5 ) + geom_line()+geom_point()

Answer 1

在对数据进行分组时，您需要告诉geom_line（）数据在哪个字段上分组：

ggplot(dfplot, aes(x = Period, y = Price, color = Names),group=5 ) + geom_line(aes(group=Names))+geom_point()

Some more information