散点图需要的输入是data.frame,需要指定xvar
和yvar
, series
为可选的颜色分度参数,
library(recharts)
ePoints(iris[, 3:5], theme = 2) iris$Species <- as.character(iris$Species) iris[1:20, "Species"] = "redFlower" ePoints(iris[,3:5], xvar = ~Petal.Length, yvar = ~Petal.Width, series = ~Species, theme = 1) ePoints(iris[,3:5], xvar = ~Petal.Length, yvar = ~Petal.Width, series = ~Species, theme = 6)
head(WorldPhones) eLine(WorldPhones, theme=1)
#mode 2 input. df2 <- data.frame( saleNum=c(10,20,30,40,50,60,70,15,25,35,45,55,65,75,25,35,45,55,65,75,85), seller=c(rep("Yellow",7), rep("Red",7), rep("White",7)), weekDay = c(rep(c("Mon","Tue","Wed","Thu","Fri","Sat","Sun"),3)), stringsAsFactors =FALSE ) eLine(df2, xvar=~weekDay, yvar= ~saleNum, series=~seller) dat <- cut(rnorm(1000), -4:4) eLine(dat)
require(plyr) dat = ddply(iris, .(Species), colwise(mean)) rownames(dat) = dat[,1] dat = dat[, -1] dat eBar(dat) eBar(dat, horiz = TRUE) #mode 2 input. df2 <- data.frame( saleNum=c(10,20,30,40,50,60,70,15,25,35,45,55,65,75,25,35,45,55,65,75,85), seller=c(rep("Yellow",7), rep("Red",7), rep("White",7)), weekDay = c(rep(c("Mon","Tue","Wed","Thu","Fri","Sat","Sun"),3)), stringsAsFactors =FALSE ) dat <- df2 xvar=~weekDay; yvar= ~saleNum; series=~seller eBar(df2, xvar = ~seller, ~saleNum, ~weekDay ) eBar(df2, xvar = ~seller, ~saleNum, ~weekDay, stack=T) eBar(df2, xvar = ~seller, ~saleNum, ~weekDay, stackGroup = list(c('Sat','Sun'))) dat <- df2[1:7,] eBar(dat, ~weekDay, ~saleNum) dat <- cut(rnorm(1000), -4:4) eBar(dat)
x = runif(6) names(x) = LETTERS[1:6] ePie(x) + eTitle("test") testData <- head(mapTestData_chs, 5) ePie(testData, ~stdName, ~val1)
x = runif(6) names(x) = LETTERS[1:6] ePie(x,reset_radius = c(80,120),showL = T,labelformatter = "{b}:{c}")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.