{r setup, include=FALSE} knitr::opts_chunk$set(eval = FALSE)
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML">
</script>
本文于r format(Sys.Date(), "%Y-%m-%d")更新。 如发现问题或者有建议，欢迎提交 Issue
部分展示可以参考 博客监控 。 主要参考 @RStudioflexdashboard 。
包的受欢迎程度
{r eval=FALSE} sem_pkg <- bind_rows( 'dashboard' %>% findPackage() %>% as_tibble() ) sem_pkg_download <- sem_pkg %>% rename_all(tolower) %>% arrange(desc(score)) %>% distinct(name) %>% # head(100) %>% .$name %>% # 可以插入 vector，所以不需要map cran_stats() sem_pkg_mostdownload <- sem_pkg_download %>% group_by(package) %>% summarize(downloads = mean(downloads)) %>% arrange(desc(downloads)) sem_pkg_download %>% filter(year(end) >= 2017) %>% filter(package %in% sem_pkg_mostdownload[1:10,]$package) %>% mutate(is_high = package %in% sem_pkg_mostdownload[1:5,]$package) %>% ggplot(aes(x=end,y=downloads,col=package)) + geom_line() + facet_wrap(~is_high,scales = 'free_y')
- 目前
flexdashboard包还处于上升期。
元素定义
每个元素定义，通过一个#来展示。
columns
Column {data-width=750}
-----------------------------------------------------------------------
data-width=750和data-width=250把一个页面按照1:3分开。 [@McVey2018 * Column widths | R]
rows
output:
flexdashboard::flex_dashboard:
orientation: rows
修改yaml参数 * [@McVey2018 Row orientation | R]
tabsets
Column {.tabset data-width=650}
-----------------------------------------------------------------------
写在开头即可。 参考 RStudio
不是对
Overview
=====================================
pages
Overview
=====================================
Add the text “Overview” followed by a line with 16 or more = to add the first page. [@McVey2018 * Pages | R]
Menus
Add the
{data-navmenu=More}argument to both pages that should appear under this menu. [@McVey2018 * Menus | R]
当然， 如果不需要进入more的，就不需要加入了。
Web-friendly plot
参考 ggplot2使用技巧 Web-friendly plot
leaflet map
leaflet包可以构建地图，只要给予经纬度 [@McVey2018 * Add a leaflet map | R * Color indicators | R] vertical_layout: fill的yaml参数可以让地图覆盖整个页面。
```{r} library(flexdashboard) library(readr) library(tidyverse) library(leaflet)
stations_df <- read_csv(‘http://s3.amazonaws.com/assets.datacamp.com/production/course_6355/datasets/stations_data.csv') leaflet() %>% addTiles() %>% addMarkers(lat = stations_df$latitude, lng = stations_df$longitude)
`data = stations_df`参数也可以直接给`data.frame`
[@McVey2018
* [Add a leaflet map directly from dataframe | R](https://campus.datacamp.com/courses/building-dashboards-with-flexdashboard/data-visualization-for-dashboards?ex=10)
]
`Assuming "longitude" and "latitude" are longitude and latitude, respectively`自动识别了经纬度的变量。
```
leaflet(stations_df) %>%
addTiles() %>%
addMarkers()
value box
date_data %>%
filter(date > now() - ddays(90)) %>%
count %>%
pull %>%
valueBox(., caption = "近90天发文量", icon="fa-pencil
, color = ifelse(. < 30, "warning", "primary"))
caption显示的文字color显示的颜色icon显示的背景图案，更多参考 https://ionicons.com/
add link
valueBox(median_min,
caption = 'Median Trip Duration (Minutes)',
icon = 'fa-clock-o',
href = '#trip-duration'
)
href参数可以接短链接或者长链接 [@McVey2018 * Linking | R]
- 如果标题是
trip duration如果是英文可以直接用#trip-duration引用。 - 如果标题用
#sometag进行了标记，那么就可以用#sometag引用。
gauge
gauge函数展示指标 [@McVey2018 * Create gauge | R]
gauge(value = 60,
min = 0,
max = 100)
Color indicators
gauge(value = pct_short_trips,
min = 0,
max = 100,
sectors = gaugeSectors(success = c(67, 100),
warning = c(33, 66),
danger = c(0, 32)))
table
- 使用
kable函数做静态表格，可以使用滚轮上下滑动 - 使用
DT::datatable函数做动态表格 [@McVey2018
extensions to download
{r} mtcars %>% DT::datatable( rownames = FALSE, extensions = 'Buttons', options = list( dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel', 'pdf', 'print') ) )
extensions = 'Buttons'可以选择下载的方式，更多见 https://datatables.net/extensions/index [@McVey2018
Caption
比如可以加上数据来源等，如 > ... [@McVey2018 * Captions | R]
Storyboards
yaml中声明storyboard: true，然后每个标题### some text就是 Storyboard 了。 [@McVey2018 * Storyboards | R]
Commentary
在R Chunk后插入***，然后写入1.或者+即可。 [@McVey2018 * Storyboard Commentary | R]