Comment connecter les points du graphique linéaire un par un en utilisant la fonction des lignes dans R?

Question

données excel Mon est comme ceci:

Date  Total Bilirubin(umol/l) 
10/18/2015 336.9 
10/21/2015 352.7 
10/24/2015 330.4 
10/27/2015 310.2 
10/30/2015 390.3 
11/2/2015 378.3 
11/5/2015 435.8 
11/8/2015 449.3 
11/11/2015 460.7 
11/14/2015 385.3 
11/17/2015 350.7 
11/20/2015 278.6 
11/23/2015 252.1 
11/26/2015 180.8 
11/29/2015 159.4 
12/2/2015 105.5 
12/5/2015 83.2 
12/8/2015 64.4 
12/11/2015 60.8 

J'utilise R pour dessiner un graphique linéaire comme ceci:

dat<-read.xlsx("/Users/user/Research/Obstructive Jaundice/liuxuebin bilirubin.xlsx",sheetName = "liuxuebin_bilirubin") 
dat$Date<-factor(dat$Date) 

lines(dat$Date,dat$Total.Bilirubin.umol.l.,type="b",lwd=1.5,lty=3,col="red",pch=16) 

je reçois le graphique comme celui-ci:

Je veux reliez les points un par un pour voir la tendance changeante de bilirubin.
Comment puis-je faire ça?

Answer 1

Je crois que votre problème est que la colonne Date est importée en tant que variable factorielle. Si tel est le cas, convertissez la colonne en objet de personnage, puis en objet Date. Ensuite, la fonction de tracé devrait fonctionner correctement.

dat<-read.table(text="Date  Total.Bilirubin(umol/l) 
10/18/2015 336.9 
       10/21/2015 352.7 
       10/24/2015 330.4 
       10/27/2015 310.2 
       10/30/2015 390.3 
       11/2/2015 378.3 
       11/5/2015 435.8 
       11/8/2015 449.3 
       11/11/2015 460.7 
       11/14/2015 385.3 
       11/17/2015 350.7 
       11/20/2015 278.6 
       11/23/2015 252.1 
       11/26/2015 180.8 
       11/29/2015 159.4 
       12/2/2015 105.5 
       12/5/2015 83.2 
       12/8/2015 64.4 
       12/11/2015 60.8", header=TRUE) 

#convert dat$Date from a factor to a Date object 
dat$Date<-as.Date(as.character(dat$Date), format="%m/%d/%Y") 
#plot image 
plot(dat$Date,dat$Total.Bilirubin.umol.l.,type="b",lwd=1.5,lty=3,col="red",pch=16)