自从有了R，限制你的只是你的想象力！
在PowerBI默认的可视化对象中，还有个R视觉对象，点击并不能像其他可视化一样直接使用，不过你若就此放过，可能就与一个强大的工具插肩而过。
下面带你一步步走进R的世界。
R是什么
R语言是目前非常流行、免费且开源的统计分析软件，是统计学家、数据科学家和业务分析师使用最广泛的一种编程语言，并且由一个充满活力和才华的贡献者社区支持，源源不断的提供各种程序包。
R在数据分析、统计建模、数据可视化等方面功能都十分强大，PowerBI中使用的只是它的数据可视化功能，已经足以让我们应接不暇、眼花缭乱。
安装R
Power BI Desktop 并没有安装 R 引擎。 若要在 Power BI Desktop 中运行 R 脚本，必须在本地计算机上单独安装 R。 可以从很多位置免费下载并安装 R，微软官网推荐的下载链接如下，
https://mran.revolutionanalytics.com/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脚本，结果如下：
是不是很神奇，这就是R的强大之处，自从嵌入R之后，PowerBI可视化的想象力大大扩展。PowerBI中内置的、以及自定义的各种可视化都可以用R绘制出来，PowerBI中没有的各类图表，借助R也可以完成。
如果你不满足于PowerBI可视化的单调设置，想要更个性化的图表，想在数据可视化的道路上走的更远，那么R正适合你；当然学习R并不会太轻松，是需要耗费一定的时间和精力的，但正因为这样，精通以后才更有喜悦感，不是吗？
………………………………
