诚邀广大R语言、数据可视化爱好者和我们一起搬迁升级谢益辉著作《现代统计图形》
Cloud2016 置顶此帖
这个号召帖长期有效,我们搬迁的时间比较短,出错的地方难免,我最近细看又发现不少可以改进的地方
Liechi 你这个用 ggplot 把图重画一遍做练习的想法,我觉得可以玩一玩。所以我 clone 了 MSG,先把直方图和箱线图画了 4 张出来,别的地方都没改,先看看效果:
我把你加进了合作者,来一起玩吧。
经过大家努力,《现代统计图形》搬迁工作完成,停留在 Github Issues 的 BUG 全部修复,我发布第一个主流版本,可以广泛流传的版本。后续可能有一些没看到的文字细节,编辑风格没统一的小地方,但是应该不妨碍阅读。
- 已编辑
dapengde 找了几个软和的柿子捏,麻烦你先更新到书里吧。
#1 图1.13
chippy <- function(x) sin(cos(x) * exp(-x / 2))
x1 <- seq(-8, 7, by = 0.01)
df1 <- data.frame(x1, y1 <- chippy(x1))
p1 <- ggplot(df1, aes(x1, y1)) + geom_line()
x2 <- seq(-20, 20, by = 0.01)
y2 <- sin(x2)/x2
df2 <- data.frame(x2, y2)
p2 <- ggplot(df2, aes(x2, y2)) + geom_line()
ggarrange(p1, p2, ncol = 1)
#2 图1.14
tm <- rownames(VADeaths)
rownames(VADeaths) <- NULL
vd <- data.frame(cbind(tm, VADeaths))
vd <- vd %>% gather(key = "people", value = "rate", 2:5)
vd$rate <- as.numeric(vd$rate)
vd$tm <- factor(vd$tm,levels = rev(levels(vd$tm)) )
ggplot(vd, aes(people, rate, color = people)) + geom_point() +
facet_grid(tm~.) + coord_flip()
#3 图1.25
ggplot(faithful, aes(eruptions)) + geom_line(stat = "density") + geom_rug() + xlim(c(1, 6))
#4 图1.39
f <- function(mu1, mu2)
c(rnorm(300, mu1, 0.5), rnorm(200, mu2, 0.5))
x1 <- f(0, 2)
x2 <- f(2, 3.5)
x3 <- f(0.5, 2)
x <- data.frame(A = x1, B = x2, C = x3)
x <- x %>% gather(key = "var", value = "num")
ggplot(x, aes(var, num)) + geom_violin(fill = "bisque") + geom_boxplot(width = .1) +
theme(axis.title.x=element_blank(), axis.title.y=element_blank()) +
scale_y_continuous(breaks = c(-1, 0, 1, 2, 3, 4, 5)) + coord_flip()
GitHub 我得从拼音学起。