2017-06-29 55 views
0

我Excel中的數據是這樣的:如何使用R中的直線函數逐個連接線圖點?

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 

我用R繪製線圖是這樣的:

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) 

我得到這樣的圖形: enter image description here

我想逐個連接點,看看膽紅素的變化趨勢。
我該怎麼做?

+0

儘量不要轉換'$逸到Date''factor',並按日期排序'庫(dplyr); dat%>%arrange(dat,Date)' – CPak

+0

它不起作用。輸出圖與帖子中的圖相同。我能做什麼?我只想看到隨着時間的推移膽紅素水平的變化趨勢。 –

+0

嘗試將日期列轉換爲Date對象'dat $ Date <-as.Date(dat $ Date,format =「%m /%d /%Y」)' – Dave2e

回答

0

我相信你的問題是導入日期列作爲因子變量。如果是這種情況,則將該列轉換爲字符對象,然後轉換爲Date對象。然後劇情功能應該運作良好。

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) 

enter image description here

+0

非常感謝 –