章节 6 补充函数

6.1 MarkPoint

dat <- cut(rnorm(1000), -4:4)
chart = eLine(dat)
eMarkPoint(chart, type=c('max','min'),valueIndex = 1)

eMarkPoint(chart, dat = data.frame(2:3,rep(200,2)),
         type=c('max','min'),valueIndex = 1)

6.2 HLine

chart = ePoints(iris[, 3:5], theme = 2)
eHLine(chart,1,lineColor = 'blue')

eHLine(chart,'min',lineWidth = 5)

6.3 VLine

eVLine(chart,1,lineColor = 'blue')

eVLine(chart,'min',lineWidth = 5)

6.4 MarkLine

eMarkLine(chart, c(1,0), c(7,2.5))

6.5 eTimeline

x = runif(6)
names(x) = LETTERS[1:6]
e1 = ePie(x) + eTitle("test1")
x = runif(6)
names(x) = LETTERS[1:6]
e2 = ePie(x) + eTitle("test2")
x = runif(6)
names(x) = LETTERS[1:6]
e3 = ePie(x) + eTitle("test3")
x = runif(6)
names(x) = LETTERS[1:6]
e4 = ePie(x) + eTitle("test4")
eTimeline(e1,e2,e3,e4)