Using R scripts in Power BI - Visualization

If you code in R, you have in some cases worked with applications that enable you to use R. One of those that I constantly work with is Power BI. 
There are many visual options available in Power BI including links to custom ones. On the visuals landing tab, you can pick R or Python Scripts as a method to create your desired visual. In this blog, I will demonstrate how to create the visual below (Some have called it a progress bar).



Access you visuals page on Power BI, choose the R script, choose the table columns you need for the visual. Power BI will combine the columns into a data frame called dataset that is available for use. You can rename it data or whatever you decide.

For this case, I have to create the dataset instead of using one from power BI 

Create the data frame and set seed to replicate results

set.seed(5)

data <- data.frame(Facility = c(rep("A",3), rep("B", 3), rep("C",3), rep("D", 3)),

                  Year = rep(c(2021,2022, 2023), 4),

                  Measure = rep(c("measure 1 - a very long measure title", "measure 2", "measure 3"),4),

                  Performance = sample(seq(20:99),12),

                  Lower_target = sample(seq(20:99),12))%>%

  mutate(Upper_target = Lower_target + sample(seq(5:15),12, replace = TRUE))


Prepare the plotting area

mytheme <-theme_void()+ #start with a void theme. Check out other themes here.

  theme(axis.text = element_text(size = 12), #allows you to add/edit/change axis text

      axis.text.y = element_text(hjust = 1),  # right justify axis text especially if it is wrapped

      strip.text = element_blank(),  #remove facet titles

      legend.position = "none")


Visualize the data

data%>%

  filter(Facility == "A")%>%

  mutate(Measure = str_wrap(Measure, 20))%>%

  ggplot(aes(x = Upper_target, 

             y = reorder(Measure, Performance)))+

  geom_col(fill = "#0065A2")+

  geom_col(aes(x = Performance, y = Measure), 

           fill = "#8DD7BF", 

           width = 0.5)+

  facet_grid(rows = vars(Year),

             cols = vars(Facility),

             scales = "free",

             space = "free")+

  geom_errorbar(aes(xmin = Lower_target, xmax = Lower_target), 

                color = '#FC6238', 

                linewidth = 2)+

  geom_text(aes(x = 1, 

                hjust = 0, 

                label = paste0("Rate = ", Performance, "%")))+

  scale_x_continuous(expand = c(0,0.5))+

  mytheme


Note: You can always create a legend to explain your visual with the plot or use textboxes.

Happy reading!

~NMN

Comments

Post a Comment

Popular posts from this blog

Financial Mathematics CT-1 Finally Paid Off

Image
 How you may ask,  I sat for my financial mathematics paper in 2017. For those who do not know what this is, here is a summary. In the pursuit to be an actuary, there are exams that you are supposed to take and pass. Financial Mathematics (CT-1) was the name of one of it in the Institute and Faculty of Actuaries (IFoA) exam system before they changed the syllabus and consequently the exam paper names. I passed this paper on the first trial with what I would consider an excellent grade. The surprising bit is, as a unit/course, Financial Mathematics 1, was one of my three lowest scores in my entire undergraduate. So, this felt like part vindication that given different circumstances and motivation, I can do pretty well. I studied for the exam for probably more than 3 months, did almost all the past papers leading to that year and checked them against examiners' reports - thanks to the IFoA  repository . I did have a study buddy during this period. I did 2 more actuarial exa...
Read more

Data Scientist Courses (edX vs DatCamp)

Image
I have had the opportunity to try several online learning platforms. Some of these have been LinkedIn Learning, Pluralsight, edX, DataCamp, Microsoft Learn among many more. You may find particular courses in all the platforms. On this post, I am going to outline chapters from the data science courses on edX and DataCamp. I Audited a data science course on edx around the year 2021. This was my first time going through a complete data science course. A lot of the material was new to me especially the coding. The theories on the other hand were more relatable. It was also the first time before my masters that I got to understand hypothesis testing and got to know why it is never "accept the null hypothesis" but always "Reject or fail to reject the null hypothesis". Some of the chapters on it were hosted outside edX and that is how I discovered DataCamp. The link to the full course is  HarvardX's Data Science Professional Certificate Around the second quarter of 202...
Read more

Self Joins in R

Image
Sometime back at work, I was faced with a dilemma.  I am one of those people who might get stuck on something because I have a "feeling" there is a shorter way to do it. Neither am I the biggest fan of writing several lines of code when there is an option to have less lines. I know that my tendency towards less lines of code sometimes is not the best bacause it might hinder readability.  To explain my dilemma, I have created a sample data frame as follows Code: data <-data.frame(   ID = c(12,12,34,36,47,47,58,68,77,77),   Call_Duration  = c(20,20,25,27,40,40,50,55,20,20),   Call_Reason = c("Reason 1", "Reason 2", "Reason 3", "Reason 1","Reason 3",                   "Reason 6", "Reason 4", "Reason 1", "Reason 2", "Reason 3")   ) Running the code above results to the below dataframe The Dilemma How can I easily find and count duplicate IDs so that I can ration call duration to...
Read more