【原】R数据可视化 | PowerBI星球

PowerBI星球 2021-06-22

展开全文

自从有了R，限制你的只是你的想象力！

在PowerBI默认的可视化对象中，还有个R视觉对象，点击并不能像其他可视化一样直接使用，不过你若就此放过，可能就与一个强大的工具插肩而过。

下面带你一步步走进R的世界。

R是什么

R语言是目前非常流行、免费且开源的统计分析软件，是统计学家、数据科学家和业务分析师使用最广泛的一种编程语言，并且由一个充满活力和才华的贡献者社区支持，源源不断的提供各种程序包。

R在数据分析、统计建模、数据可视化等方面功能都十分强大，PowerBI中使用的只是它的数据可视化功能，已经足以让我们应接不暇、眼花缭乱。

安装R

Power BI Desktop 并没有安装 R 引擎。若要在 Power BI Desktop 中运行 R 脚本，必须在本地计算机上单独安装 R。可以从很多位置免费下载并安装 R，微软官网推荐的下载链接如下，

https://mran./download

根据不同的操作系统选择不同的下载链接，windows系统直接下载第一个即可。

安装后打开PowerBI Desktop，在【文件】>【选项】中做如下设置，

其中R脚本里主目录，设置为你电脑中的R安装路径。

运行R

第一次使用的R的时候会出现这个提示，点击启用即可，

然后出现的界面如下，

R 视觉对象图像位于报表画布上
R 脚本编辑器位于中央窗格底部边缘处
R 脚本编辑器标题栏右边第一个三角形就是R脚本运行按钮。

根据它的提示，把任意的字段拖到可视化窗格的【值】中就可以开始编写脚本。

也可以先用其他可视化对象制作图表，再转化为R可视化，比如先用[city]和[GDP]两个字段生成柱形图，选中该图表，然后点击R,脚本中出现的代码如下：

这里我使用蓝色文字做了简单注释。

然后把以下代码复制到空白编辑器中，

library(ggplot2)
ggplot(dataset,aes(city,GDP))+geom_bar(stat="identity",fill="steelblue")

点击运行，就出现使用R做出的图表，以上步骤的gif图如下，

上面的第一行代码library(ggplot2)，是加载ggplot2程序包，这是R可视化最重要的一个包，它可以通过底层组建构造各种匪夷所思的图形，可以说学好这一个包就足够了。

第二行是利用定义好的数据集dataset，设置纵横轴，图表类型为柱形，颜色为蓝色；这里有个印象就好，如果有时间，看一下R语言的入门文章就可以看懂以上的代码，并不会很难。

加载R包

如果 R 脚本发生错误，则不会绘制 R 视觉对象，并且将显示一条错误消息。如下图所示，

点击查看该错误的详细信息，很多时候是缺少R程序包，R包安装方法有两种(比如需要安装程序包ggplot2），打开安装的R程序，

R编辑框中输入:install.packages("ggplot2")
选项卡【程序包】下，“安装程序包”，找到ggplot2，点击确定

然后就自动下载安装了。

体验R的强大可视化

R包中本身也自带有数据集，比如ggplot2自带有数据集diamonds，不需要使用任何PowerBI中的数据，直接把R语句输入到脚本，

library(ggplot2)
library(ggthemes)
ggplot(diamonds,aes(depth,fill=color))+geom_histogram()+theme_economist()+scale_fill_economist()+guides(fill=guide_legend(title=NULL))+scale_x_discrete(limits=c(50,70))

运行脚本，一个很个性的图表就出来了，

如果没有数据集，也可以在R中先构建一个数据集，把以下代码拷入编辑器，

library(ggpubr)
df <- data.frame( sex=factor(rep(c("f", "M"), each=200)), weight=c(rnorm(200, 55), rnorm(200, 58))) #构建数据集df
ggdensity(df, x="weight", add = "mean", rug = TRUE, color = "sex", fill = "sex", palette = c("#00AFBB", "#E7B800"))

运行脚本后，绘制出了一个分布图，

利用R不仅能生成一个单一的图表，甚至可以直接生成一个图表集合的仪表板，比如把以下语句复制到脚本：

library(UpSetR)
movies <- read.csv(system.file("extdata", "movies.csv", package = "UpSetR"), header = TRUE, sep = ";")
upset(movies, main.bar.color = "black", queries = list(list(query = intersects,
    params = list("Drama"), color = "red", active = F), list(query = intersects,
    params = list("Action", "Drama"), active = T), list(query = intersects,
    params = list("Drama", "Comedy", "Action"), color = "orange", active = T)),
    attribute.plots = list(gridrows = 45, plots = list(list(plot = scatter_plot,
        x = "ReleaseDate", y = "AvgRating", queries = T), list(plot = scatter_plot,
        x = "AvgRating", y = "Watches", queries = F)), ncols = 2), query.legend = "bottom")

运行R脚本，结果如下：