{"id":1905,"date":"2021-02-12T08:51:30","date_gmt":"2021-02-12T08:51:30","guid":{"rendered":"https:\/\/bi.unija.com\/en\/?p=1905"},"modified":"2021-02-12T08:51:30","modified_gmt":"2021-02-12T08:51:30","slug":"running-external-r-scripts-in-power-bi","status":"publish","type":"post","link":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/","title":{"rendered":"Running External R Scripts in Power BI"},"content":{"rendered":"<p><em>For Power BI version 2.76.5678.782 (December 2019).<\/em><\/p>\n<p>Writing R script in Power BI can be an uneasy task, since there is no variable explorer. That&#8217;s why we usually write our script in R and then import them into Power BI. How? We save the script as R file and import it in Power BI using <strong>source()<\/strong> function. Let&#8217;s look at a simple example.<\/p>\n<h1>Example: column statistics<\/h1>\n<p>We have a following table in Power Query.<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" width=\"401\" height=\"167\" class=\"wp-image-1906\" src=\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image.png\" srcset=\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image.png 401w, https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-300x125.png 300w\" sizes=\"(max-width: 401px) 100vw, 401px\" \/><\/p>\n<p>We would like to print out statistical properties of both column, such as average, minimum, maximum, etc. We use R function <strong>summary()<\/strong>. Function returns average, median, minimum, maximum, first and third quarter.<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" width=\"201\" height=\"224\" class=\"wp-image-1907\" src=\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-1.png\" \/><\/p>\n<p>We follow the steps bellow.<\/p>\n<p>Open new R script in RStudio.<\/p>\n<p>Enter following commands.<\/p>\n<p><strong>df = do.call(cbind, lapply(dataset, summary)) #summary function, but in dataframe form<\/strong><\/p>\n<p><strong>df = cbind(rownames(df), data.frame(df, row.names=NULL)) #index to column<\/strong><\/p>\n<p><strong>names(df)[names(df) == &#8220;rownames(df)&#8221;] &lt;- &#8220;Statistics&#8221; #rename index column<\/strong><\/p>\n<p>Simple <strong>summary(dataset)<\/strong> that returns a table will now return a dataframe. We always have to end with dataframe result, since this is the only object Power Bi recognizes.<\/p>\n<p>Save the script to a any location, for example H:\\PowerBI\\Running_R_From_PowerBI.<\/p>\n<p>Select the table in Power Query and open R editor with <strong>Run R script<\/strong>.<\/p>\n<p>Enter the following command.<\/p>\n<p><strong>source(&#8220;H:\\\\ PowerBI\\\\Running_R_From_PowerBI\\\\R_Script.R&#8221;<\/strong>)<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" width=\"876\" height=\"523\" class=\"wp-image-1908\" src=\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-2.png\" srcset=\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-2.png 876w, https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-2-300x179.png 300w, https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-2-768x459.png 768w\" sizes=\"(max-width: 876px) 100vw, 876px\" \/><\/p>\n<p>Confirm with<strong> OK.<\/strong><\/p>\n<p>We got a table with statistics of both columns.<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" width=\"605\" height=\"196\" class=\"wp-image-1909\" src=\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-3.png\" srcset=\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-3.png 605w, https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/word-image-3-300x97.png 300w\" sizes=\"(max-width: 605px) 100vw, 605px\" \/><\/p>\n<p>Every time the table <strong>dataset<\/strong> refreshes R script is run and result is updated. If refreshed table contains different or new value the statistics table will change accordingly.<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>For Power BI version 2.76.5678.782 (December 2019). Writing R script in Power BI can be an uneasy task, since there is no variable explorer. That&#8217;s why we usually write our script in R and then import them into Power BI.<\/p>\n","protected":false},"author":5,"featured_media":1910,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[],"class_list":["post-1905","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-uncategorized"],"acf":[],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v25.6 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>Running External R Scripts in Power BI - Bi Unija<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Running External R Scripts in Power BI - Bi Unija\" \/>\n<meta property=\"og:description\" content=\"For Power BI version 2.76.5678.782 (December 2019). Writing R script in Power BI can be an uneasy task, since there is no variable explorer. That&#8217;s why we usually write our script in R and then import them into Power BI.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/\" \/>\n<meta property=\"og:site_name\" content=\"Bi Unija\" \/>\n<meta property=\"article:published_time\" content=\"2021-02-12T08:51:30+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/42.png\" \/>\n\t<meta property=\"og:image:width\" content=\"720\" \/>\n\t<meta property=\"og:image:height\" content=\"480\" \/>\n\t<meta property=\"og:image:type\" content=\"image\/png\" \/>\n<meta name=\"author\" content=\"Branka Trifunovi\u0107\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Branka Trifunovi\u0107\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/\",\"url\":\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/\",\"name\":\"Running External R Scripts in Power BI - Bi Unija\",\"isPartOf\":{\"@id\":\"https:\/\/bi.unija.com\/en\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#primaryimage\"},\"image\":{\"@id\":\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#primaryimage\"},\"thumbnailUrl\":\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/42.png\",\"datePublished\":\"2021-02-12T08:51:30+00:00\",\"author\":{\"@id\":\"https:\/\/bi.unija.com\/en\/#\/schema\/person\/3bed36623727c7162e421c4366a54e10\"},\"breadcrumb\":{\"@id\":\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#primaryimage\",\"url\":\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/42.png\",\"contentUrl\":\"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/42.png\",\"width\":720,\"height\":480},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/bi.unija.com\/en\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Running External R Scripts in Power BI\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/bi.unija.com\/en\/#website\",\"url\":\"https:\/\/bi.unija.com\/en\/\",\"name\":\"Bi Unija\",\"description\":\"Just another Bi site\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/bi.unija.com\/en\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/bi.unija.com\/en\/#\/schema\/person\/3bed36623727c7162e421c4366a54e10\",\"name\":\"Branka Trifunovi\u0107\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/bi.unija.com\/en\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/ec99f651bcc98a163161515ec254b974?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/ec99f651bcc98a163161515ec254b974?s=96&d=mm&r=g\",\"caption\":\"Branka Trifunovi\u0107\"},\"url\":\"https:\/\/bi.unija.com\/en\/author\/branka\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Running External R Scripts in Power BI - Bi Unija","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/","og_locale":"en_US","og_type":"article","og_title":"Running External R Scripts in Power BI - Bi Unija","og_description":"For Power BI version 2.76.5678.782 (December 2019). Writing R script in Power BI can be an uneasy task, since there is no variable explorer. That&#8217;s why we usually write our script in R and then import them into Power BI.","og_url":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/","og_site_name":"Bi Unija","article_published_time":"2021-02-12T08:51:30+00:00","og_image":[{"width":720,"height":480,"url":"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/42.png","type":"image\/png"}],"author":"Branka Trifunovi\u0107","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Branka Trifunovi\u0107","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/","url":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/","name":"Running External R Scripts in Power BI - Bi Unija","isPartOf":{"@id":"https:\/\/bi.unija.com\/en\/#website"},"primaryImageOfPage":{"@id":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#primaryimage"},"image":{"@id":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#primaryimage"},"thumbnailUrl":"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/42.png","datePublished":"2021-02-12T08:51:30+00:00","author":{"@id":"https:\/\/bi.unija.com\/en\/#\/schema\/person\/3bed36623727c7162e421c4366a54e10"},"breadcrumb":{"@id":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#primaryimage","url":"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/42.png","contentUrl":"https:\/\/bi.unija.com\/en\/wp-content\/uploads\/sites\/2\/2021\/02\/42.png","width":720,"height":480},{"@type":"BreadcrumbList","@id":"https:\/\/bi.unija.com\/en\/running-external-r-scripts-in-power-bi\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/bi.unija.com\/en\/"},{"@type":"ListItem","position":2,"name":"Running External R Scripts in Power BI"}]},{"@type":"WebSite","@id":"https:\/\/bi.unija.com\/en\/#website","url":"https:\/\/bi.unija.com\/en\/","name":"Bi Unija","description":"Just another Bi site","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/bi.unija.com\/en\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Person","@id":"https:\/\/bi.unija.com\/en\/#\/schema\/person\/3bed36623727c7162e421c4366a54e10","name":"Branka Trifunovi\u0107","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/bi.unija.com\/en\/#\/schema\/person\/image\/","url":"https:\/\/secure.gravatar.com\/avatar\/ec99f651bcc98a163161515ec254b974?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/ec99f651bcc98a163161515ec254b974?s=96&d=mm&r=g","caption":"Branka Trifunovi\u0107"},"url":"https:\/\/bi.unija.com\/en\/author\/branka\/"}]}},"_links":{"self":[{"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/posts\/1905"}],"collection":[{"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/comments?post=1905"}],"version-history":[{"count":1,"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/posts\/1905\/revisions"}],"predecessor-version":[{"id":1911,"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/posts\/1905\/revisions\/1911"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/media\/1910"}],"wp:attachment":[{"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/media?parent=1905"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/categories?post=1905"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bi.unija.com\/en\/wp-json\/wp\/v2\/tags?post=1905"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}