• 新鲜事R语言
  • 诚邀广大R语言、数据可视化爱好者和我们一起搬迁升级谢益辉著作《现代统计图形》

Liechi 哈哈,只能说我们越来越狗熊所见略同

那时候我喜欢明晃晃地拽文字(现在也一样,只不过没那么明晃晃了)。其实《日知录》我一共也没看几句话,碰巧就看见了这句。既然看见了就一定得找机会拽出来。可能我就是运气一直太好了。

Cloud2016 太复杂了,我尚在犹豫要不要入坑。要是我不入坑,恐怕没人能把它搞明白了。tikz 图形是真心养眼,字体凌厉,相比之下其它图形设备出来的图都太矬了。

    这个号召帖长期有效,我们搬迁的时间比较短,出错的地方难免,我最近细看又发现不少可以改进的地方

    yihui 你看能不能将本书挂在 bookdown.org 的显著位置,然后博客发篇帖子号召更多的人参与维护?

    dapengde
    我也在弄,只是还没有弄清楚怎么把 PR 给推上来。
    我前几天 fork 了你的库,自己写了一下,不过后续步骤还没有弄明白。特别是前几天你的“后序”部分修改了一下,我 fork 的是修改前的,所以怕推回来造成混乱,刚给删掉了,重新弄一次。


    这是给统计图形专门弄个新库,不在 TNT 里弄吗?

      Liechi 是的。我没想好怎么把他们插进 TNT 里。 TNT 的实例都是为了解决别人的问题,而这个 MSG-TV 是自己没事儿找事儿。

        经过大家努力,《现代统计图形》搬迁工作完成,停留在 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 我得从拼音学起。

            Liechi 好。谢谢。


            没看见你的 PR 啊。你的意思是我手动更新进去?

              Liechi 看到了🙂 很好很好。

              不过我手头没电脑,暂时看不到结果;而且travis 也没设置,readme 也没改……

              你可以本地编译一下,生成的书稿文件会出现在 docs 文件夹里。你把 docs的更新也 push 了,就可以在线预览了。

                dapengde Liechi

                我新建了两个分支

                • first-edition-update: 主体不动,只是修复代码中的 BUG 和文字编辑错误,前者应该基本没有了,后者还需大家来捉虫
                • develop 分支: 这作为现代统计图形第二版的开发分支,会有翻天覆地的变化,包括但不限于重写所有章节内容,目录大致不变,可以新增章节。分支内容目前是空的bookdown项目架子,欢迎大家发挥集体才智,一起讨论决定书籍大纲和分领各个章节

                  Cloud2016 我只配捉虫。可惜原稿作者有洁癖,看了几遍都没见一只虫。连标点虫都没看见。

                  我跟 @Liechi 弄的这个 tidyverse 版,主要是练习玩的,可能对此书的修订意义不大。不过,如果将来我们弄得特别牛,并且对此书有用,可以合并进去。

                  Liechi 等我弄好 travis 就更方便了。最近搬家,太忙了。

                    dapengde 如果所有的例子都升级到 tidyverse 的框架下,至少看起来紧跟时代,古代统计图形终于可以叫回现代统计图形了,加油吧!我现在也没有大把时间搞这个了,偶尔弄弄还行,合并合并 PR 还是可以的