用 blogdown 新建 .Rmd
文件,把以下内容贴进去。不过效果有点奇怪,图和其他内容相互覆盖了。
```{r}
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("泽肯多夫", "自主创业", "走向艺术", "退休后")
))
```