数据可视化-plotly_layout参数设置

R语言数据可视化包：

• 1、ggplot2
• 2、rCharts
• 3、recharts
• 4、plotly
• 5、networkD3,igraph
• 6、REmap

knitr::opts_chunk$set(echo = TRUE, eval = TRUE, tidy = TRUE, highlight = TRUE, warning = FALSE, error = FALSE, message = FALSE, include = TRUE,fig.width = 9.4,fig.height = 4)

安装包

require(devtools)
# install_github('rCharts', 'ramnathv') install_github('yihui/recharts')
# install.packages('plotly') install_github('Lchiffon/REmap')
# install.packages('igraph') install.packages('networkD3')
library(plotly)

layout参数（不含坐标轴部分）

plot_ly(economics, x = ~date, y = ~pop ,type = 'scatter' ) %>%
layout(
  font = list( family = "Times New Roman",
               size = 2,
               color = "#444"),              # 设置字体、颜色、大小
  title = 'Plot title',                      # 设置标题
  titlefont = list( family = "Times New Roman",
                    size = 2,
                    color = '#444'),         # 设置标题字体、颜色、大小
  autosize = TRUE,                           # 设置图形大小
  width = 700,                               # 设置图形宽度
  height = 400,                              # 设置图形高度
  margin = list(l = 80, r = 80, t = 100, b = 80, pad = 0, autoexpand = TRUE), # 设置图形边界距离
  paper_bgcolor = "#fff",                    # 图表区的背景颜色
  plot_bgcolor =  "#fff",                    # x、y轴之间的绘图区的背景颜色
  separators = ".,",                         # 设置小数点和千位数间隔符
  showlegend = TRUE,                         # 是否显示图例
  dragmode = "zoom",                         # 取值: "zoom"，"pan"，"select"，"lasso"，"orbit"，"turntable"
  hovermode = "closest"                      # : "x" | "y" | "closest" | FALSE
)

p0 <- plot_ly(economics, x = ~date, y = ~pop, type = "scatter")
p1 <- p0 %>% layout(margin = list(l = 80, r = 80, t = 100, b = 80, pad = 0, 
    autoexpand = TRUE))
p2 <- p0 %>% layout(margin = list(l = 80, r = 80, t = 100, b = 80, pad = 5, 
    autoexpand = TRUE))
p3 <- p0 %>% layout(margin = list(l = 80, r = 80, t = 100, b = 80, pad = 5, 
    autoexpand = FALSE))
subplot(p0, p1, p2, p3, nrows = 2)

p0 <- plot_ly(economics, x = ~date, y = ~pop, type = "scatter")

# 图表区的背景颜色
p1 <- p0 %>% layout(paper_bgcolor = "pink")

# 绘图区的背景颜色
p2 <- p0 %>% layout(plot_bgcolor = "lightblue")

subplot(p0, p1, p2, nrows = 2, which_layout = "merge", margin = 0.1)