我画了一个图，但是这个图太长了没法完整地保存成图片格式，没法写博客的时候贴上去。
于是我想：
有没有办法把含有图片的html文件整个放到博客上面？
调整字体，把图片调小点，但是没找到timevis包怎么改字体大小
画图的代码如下：
library(timevis)

data <- data.frame(
  id = 1:52,
  content = c(
    '圆形螺旋公寓',
    '海湾石油公司办公大楼',
    '齐氏威奈公司',
    '贝氏私邸',
    '里高中心',
    '华盛顿西南区城市重建项目',
    '中央车站双曲面大楼',
    '基普斯湾广场',
    '路思义纪念教堂',
    '社会山项目',
    '麻省理工学院地球科学中心',
    '麻省理工学院化学楼',
    '麻省理工学院化工楼',
    '东西文化中心',
    '纽约大学大学广场',
    '国家航空公司航站楼',
    '美国大气研究中心',
    '艾佛森美术馆',
    '联邦航空局空中交通管制塔',
    '克里奥·罗杰斯纪念图书馆',
    '美国人寿保险公司',
    '肯尼迪图书馆',
    '加拿大帝国商业银行',
    '得梅因艺术中心扩建项目',
    '达拉斯市政厅',
    '贝德福德-史蒂文森超级街区项目',
    '赫伯特·F·约翰逊艺术馆',
    '国家美术馆，东馆',
    '保罗梅隆艺术中心',
    '华侨银行中心',
    '来福士广场',
    '洛克菲勒学生公寓',
    '波士顿美术馆西翼',
    'IBM办公楼',
    '得克萨斯商业银行大厦',
    '威斯纳馆',
    '香山饭店',
    '莫顿·梅尔森交响乐中心',
    '中银大厦',
    '乔特罗斯玛丽科学中心大厅',
    '创新艺人经纪公司',
    '摇滚名人堂和博物馆',
    '大卢浮宫项目',
    '四季酒店',
    '“天使之乐”钟楼',
    '美秀美术馆',
    '中国银行总部大楼',
    '卢森堡大公现代美术馆',
    '德国历史博物馆',
    '奥尔亭',
    '苏州博物馆',
    '伊斯兰艺术博物馆'
  ),
  title = c(
    '圆形螺旋公寓（未建）,1948-1949',
    '海湾石油公司办公大楼,1949-1950',
    '齐氏威奈公司,1949-1952',
    '贝氏私邸,1952-1952',
    '里高中心,1952-1956',
    '华盛顿西南区城市重建项目,1953-1962',
    '中央车站双曲面大楼（未建),1954-1956',
    '基普斯湾广场,1957-1962',
    '路思义纪念教堂,1956-1963',
    '社会山项目,1957-1964',
    '麻省理工学院地球科学中心（绿楼）,1959-1964',
    '麻省理工学院化学楼,1964-1970',
    '麻省理工学院化工楼,1972-1976',
    '东西文化中心,1960-1963',
    '纽约大学大学广场,1960-1966',
    '国家航空公司航站楼,1960-1970',
    '美国大气研究中心,1961-1967',
    '艾佛森美术馆,1961-1968',
    '联邦航空局空中交通管制塔,1962-1965',
    '克里奥·罗杰斯纪念图书馆,1963-1971',
    '美国人寿保险公司（威尔明顿总部）,1963-1971',
    '肯尼迪图书馆,1964-1979',
    '加拿大帝国商业银行,1965-1973',
    '得梅因艺术中心扩建项目,1965-1968',
    '达拉斯市政厅,1966-1977',
    '贝德福德-史蒂文森超级街区项目,1966-1969',
    '赫伯特·F·约翰逊艺术馆,1968-1973',
    '国家美术馆，东馆,1968-1978',
    '保罗梅隆艺术中心,1968-1973',
    '华侨银行中心（华厦）,1970-1976',
    '来福士广场,1969-1986',
    '劳拉·斯佩尔曼·洛克菲勒学生公寓,1971-1973',
    '波士顿美术馆，西翼及翻修项目,1977-1981',
    'IBM办公楼,1977-1984',
    '得克萨斯商业银行大厦,1978-1982',
    '威斯纳馆，媒体实验室,1978-1984',
    '香山饭店,1979-1982',
    '莫顿·梅尔森交响乐中心,1981-1989',
    '中银大厦,1982-1989',
    '乔特罗斯玛丽科学中心大厅,1985-1989',
    '创新艺人经纪公司,1986-1989',
    '摇滚名人堂和博物馆,1987-1995',
    '大卢浮宫项目,1983-1993',
    '四季酒店,1989-1993',
    '“天使之乐”钟楼,1988-1990',
    '美秀美术馆,1991-1997',
    '中国银行总部大楼,1994-2001',
    '卢森堡大公现代美术馆,1995-2006',
    '德国历史博物馆（军火库）,1996-2003',
    '奥尔亭,1999-2003',
    '苏州博物馆,2000-2006',
    '伊斯兰艺术博物馆,2000-2008'
  ),
  start = c(
    1948,
    1949,
    1949,
    1952,
    1952,
    1953,
    1954,
    1957,
    1956,
    1957,
    1959,
    1964,
    1972,
    1960,
    1960,
    1960,
    1961,
    1961,
    1962,
    1963,
    1963,
    1964,
    1965,
    1965,
    1966,
    1966,
    1968,
    1968,
    1968,
    1970,
    1969,
    1971,
    1977,
    1977,
    1978,
    1978,
    1979,
    1981,
    1982,
    1985,
    1986,
    1987,
    1983,
    1989,
    1988,
    1991,
    1994,
    1995,
    1996,
    1999,
    2000,
    2000
  ),
  end = c(
    1949,
    1950,
    1952,
    1952,
    1956,
    1962,
    1956,
    1962,
    1963,
    1964,
    1964,
    1970,
    1976,
    1963,
    1966,
    1970,
    1967,
    1968,
    1965,
    1971,
    1971,
    1979,
    1973,
    1968,
    1977,
    1969,
    1973,
    1978,
    1973,
    1976,
    1986,
    1973,
    1981,
    1984,
    1982,
    1984,
    1982,
    1989,
    1989,
    1989,
    1989,
    1995,
    1993,
    1993,
    1990,
    1997,
    2001,
    2006,
    2003,
    2003,
    2006,
    2008
  ),
  group = c(
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    1,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    2,
    3,
    3,
    3,
    3,
    3,
    3,
    3,
    3,
    3,
    3,
    3,
    3,
    3,
    4,
    4,
    4,
    4,
    4,
    4,
    4
  )
)

# data$type <- "box"
#
# timevis(data, showZoom = FALSE,
#         fit = TRUE,options = list(editable = TRUE, height = "750px"))%>%
#   fitWindow(list(animation = FALSE))

data$type <- "range"

timevis(
  data,
  groups = data.frame(
    id = 1:4,
    content = c("泽肯多夫", "自主创业", "走向艺术", "退休后")
  ),
  showZoom = FALSE,
  fit = TRUE
) %>%
  setGroups(data.frame(
    id = 1:4,
    content = c("泽肯多夫", "自主创业", "走向艺术", "退休后")
  ))