静态图

• 静态呈现
• 多用于文稿

library(ggplot2)
p <- ggplot(diamonds, aes(x=cut, fill=clarity)) +
    geom_bar(position="dodge")
print(p)

动态/交互图

• 动态呈现/支持交互（点击、轻拂…）
• 多用于网页

library(plotly)
ggplotly(p, width=400, height=300)

library(readr); library(ggmap)
earthquake <- read_csv(
    "A03_07_interactive_files/files/earthquake.csv"
names(earthquake)[c(1, 3, 4, 5, 6)] <- c(
    "Date", "lat", "long", "Depth", "Grat")
earthquake$Year <- as.integer(
    format(earthquake[["Date"]], "%Y"))
earthquake$Grat <- as.numeric(
    gsub("^M(.+)$", "\\1", earthquake[["Grat"]]))
saveGIF({
    gg.map <- ggmap(get_googlemap("China", zoom=4))
    for (yr in sort(unique(earthquake$Year))){
        print(gg.map + geom_point(
            aes(long, lat, size=Grat, alpha=Depth),
            data=earthquake[earthquake$Year==yr,], 
            color='red') + scale_alpha(range=c(1, 0.2))+
            ggtitle(paste("Earthquake as of", yr)))
    }
}, "earthquake.gif")

RStuio Inc. 出品的基建包

• 开发者贡献了庞大的htmlwidgets家族包: 基于htmlwidgets框架开发API，将第三方JavaScript可视化库移植到R
• 用户用R直接调用可视化JS库: 可嵌入Rmarkdown文档、Shiny应用

htmlwidgets框架

R/
|-- <fun>.R
inst/
|-- htmlwidgets/
|   |-- <pkg>.js
|   |-- <pkg>.yaml
|   |-- lib/
|   |   |-- <lib folder>/
|   |   |   |-- <some>.js
|   |   |   |-- plugins/
|   |   |   |   |-- <some>.js

• 作者: 本人
• 简介: 基于百度ECharts库，支持点、条、线、雷达、饼、力导、漏斗、和弦、事件河流图及地图。
• 安装: 不能直接通过CRAN。需要devtools::install_github( "madlogos/recharts")

library(recharts)
totGDP <- data.table::dcast(
    ChinaGDP, Prov~., sum, value.var='GDP')
ChinaGDP <- ChinaGDP[order(ChinaGDP$Year),]
echartr(ChinaGDP, Prov, GDP, Year, 
    type="map_china") %>% 
    setDataRange(splitNumber=0, 
        valueRange=range(totGDP[, 2]), 
        color=c('red','orange','yellow',
                'limegreen','green')
    ) %>% setTheme(width=400, height=400) %>%
    setTitle("China GDP by Provice, 2012-2014")

点击查看

• 作者: Rstudio Inc.
• 简介: 基于Leaflet库，可绘制各类动态地图，并添加丰富的指示图层(标点、多边形、弹出框等)。
• 安装: CRAN

library(leaflet)
pal <- colorQuantile("YlOrRd", NULL, n = 4)
leaflet(quakes[1:100,]) %>% 
  addProviderTiles("Esri.WorldTopoMap") %>%
  addCircleMarkers(~long, ~lat, 
    popup=~as.character(mag),
    label=~as.character(mag), 
    color=~pal(mag))

点击查看

• 作者: Plotly
• 简介: 基于plotly库，可绘制各类动态图，并支持直接将ggplot2对象转换为plotly。
• 安装: CRAN

d <- diamonds[sample(nrow(diamonds), 500), ]
plot_ly(d, x = d$carat, y = d$price, 
        text = paste("Clarity: ", d$clarity),
        mode = "markers", color = d$carat, 
        size = d$carat)

点击查看

• 作者: Dawei Lang
• 简介: 基于wordcloud2库，可绘制交互词云，且支持自定义图形词云等。
• 安装: CRAN

library(wordcloud2)
wordcloud2(demoFreq[1:100,], size=0.5)

点击查看

• 作者: Joshua Kunst
• 简介: 基于Highcharts库，可绘制点、线、柱、地图、股价图等多种图形。商业用途需要申请许可。
• 安装: CRAN

library(magrittr)
library(highcharter)
highchart() %>% 
  hc_title(
    text="Scatter chart with size and color") %>% 
  hc_add_series(
    mtcars[, c("wt", "mpg","drat", "hp")], 
    type="scatter", 
    mapping=hcaes(wt, mpg, size=drat, color=hp))

点击查看

• 作者: Rstudio Inc.
• 简介: 基于dygraphs库，用于绘制各类时间序列图，支持缩放、高亮等交互。
• 安装: CRAN

library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)

点击查看

• 作者: datastorm-open
• 简介: 基于vis.js库，可绘制多种交互网络图。
• 安装: CRAN

edges <- data.frame(
    from = sample(1:10,8), to = sample(1:10, 8), 
    label = paste("Edge", 1:8),
    length = c(100,500), width = c(4,1), 
    arrows = c("to", "from", "middle",
        "middle;to"),
    dashes = c(TRUE, FALSE), title = paste("Edge", 1:8),
    smooth = c(FALSE, TRUE), 
    shadow = c(FALSE, TRUE, FALSE, TRUE)) 
nodes <- data.frame(id = 1:10, 
    group = c("A", "B"))
library(visNetwork)
visNetwork(nodes, edges)

点击查看

• 作者: Christopher Gandrud
• 简介: 基于D3.js库，可绘制多种交互网络图。
• 安装: CRAN

library(networkD3)
data(MisLinks, MisNodes)
forceNetwork(
    Links = MisLinks, Nodes = MisNodes, 
    Source = "source", Target = "target", 
    Value = "value", NodeID = "name",
    Group = "group", opacity = 0.4)

点击查看

• 作者: Rstudio Inc.
• 简介: 基于D3.js库，可绘制多种交互热力图。
• 安装: CRAN

library(d3heatmap)
d3heatmap(mtcars, scale = "column", 
    colors = "Spectral")

点击查看

• 作者: B. W. Lewis
• 简介: 基于three.js库，可绘制3D散点图、3D球图等。
• 安装: CRAN

library("threejs")
library(maps)
earth <- paste0("A03_07_interactive_files/",
    "figure-html/world.topo.bathy.jpg")
cities <- world.cities[order(world.cities$pop,
    decreasing=TRUE)[1:1000],]
value <- 100 * cities$pop / max(cities$pop)
col <- colorRampPalette(c("red", "gold"))(
    10)[floor(10 * value/100) + 1]
globejs(img=earth, bg="white", emissive="#aaaacc",
    lat=cities$lat, long=cities$long, value=value,
    color=col, atmosphere=TRUE)

点击查看

• 作者: Richard Iannone
• 简介: 基于d3.js + viz.js + mermaid.js库，可绘制流程图、关系图等。
• 安装: CRAN

library(DiagrammeR)
library(magrittr)
mermaid("
    graph TD
    A(Rounded)-->B[Rectangular]
    B-->C{A Rhombus}
    C-->D[Rectangle One]
    C-->E[Rectangle Two]
")

点击查看

• 作者: Bokeh
• 简介: 基于bokeh库，可绘制多种交互图。
• 安装: CRAN

library(rbokeh)
z <- lm(dist ~ speed, data = cars)
p <- figure(width = 400, height = 400) %>%
  ly_points(cars, hover = cars) %>%
  ly_lines(lowess(cars), legend = "lowess") %>%
  ly_abline(z, type = 2, legend = "lm")
p

点击查看

library(maps); library(ggiraph)
crimes <- data.frame(state = tolower(
    rownames(USArrests)), USArrests)
states_ <- sprintf("<p>%s</p>", 
    as.character(crimes$state) )
table_ <- paste0("<table><tr><td>UrbanPop</td>", 
    sprintf("<td>%.0f</td>", crimes$UrbanPop),
    "</tr><tr>", "<td>Assault</td>", 
    sprintf("<td>%.0f</td>", crimes$Assault), 
    "</tr></table>")
onclick <- sprintf("window.open(\"%s%s\")", 
    "http://en.wikipedia.org/wiki/",
    as.character(crimes$state))

crimes$labs <- paste0(states_, table_)
crimes$onclick <- onclick
states_map <- map_data("state")
gg_map <- ggplot(crimes, aes(map_id = state)) +
    geom_map_interactive(aes(
        fill = Murder, tooltip = labs,
        data_id = state, onclick = onclick),
    map = states_map) + coord_map() +
    expand_limits(x = states_map$long, 
        y = states_map$lat)
ggiraph(code = print(gg_map))