0

POXISの日付とイベントY：/R/Rtest.txtのデータがあります

 Date          ?NUM   ?Label
 201301241035  ?1     ?Event1
 201301241036  ?2     ?Event2
 201301241037  ?3     ?Event3

したがって、すべてのデータは同じ日のものです。X軸がMins"Secで、Y軸がNumの値である、XYグラフをプロットする必要があります。マウスカーソルがドットの上を通過すると、「Event1」などの文字列を表示する必要があります。

gvisAnnotatedTimeLine（）の使用方法は？プロットを描画します。例を挙げていただけますか。必要に応じて日付/時刻の形式を変更できます。

試したプログラムは

data3=read.table(file="Y:/R/Rtest.txt", header=TRUE, sep="?")

 line3=gvisAnnotatedTimeLine(data3, datevar="Date"))
  Error: unexpected ')' in "line3=gvisAnnotatedTimeLine(data3, datevar="Date"))"

  line3=gvisAnnotatedTimeLine(data3, datevar="Date")
  Error in as.Date.numeric(x) : 'origin' must be supplied
   class(data3$Date) = c('POSIXt', 'POSIXct')
   line3=gvisAnnotatedTimeLine(data3, datevar="Date")
   plot(line3)
4

1 に答える 1

0

これはうまくいくはずです

## read your data with header, you replace text ='..' with file=fileName
dat <- read.table(text = 'Date          ?NUM   ?Label
201301241035  ?1     ?Event1
201301241036  ?2     ?Event2
201301241037  ?3     ?Event3',header=T)
## rename the columns
colnames(dat) <- c('Date','Value','Label')
## format columns and remove special character
dat$Date <- as.POSIXct(strptime(dat$Date,'%Y%m%d%H%M'))
dat$Value <- as.numeric(gsub('[?]','',dat$Value ))
dat$Label <- gsub('[?]','',dat$Label)
## build the plot, here I use minimum options,
## to show the plot as below
A1 <- gvisAnnotatedTimeLine(dat, 
                            datevar ="Date",
                            numvar  ="Value",
                            annotationvar="Label",
                            options=list(displayAnnotations=TRUE,
                                         width=600, height=350))
plot(A1)

ここに画像の説明を入力してください

于 2013-01-25T09:38:54.827 に答える