Power BI is turning 10, and we’re marking the occasion with a special community challenge. Use your creativity to tell a story, uncover trends, or highlight something unexpected.
Get startedJoin us for an expert-led overview of the tools and concepts you'll need to become a Certified Power BI Data Analyst and pass exam PL-300. Register now.
Hi guys. I'm trying to create a R based bar chart power Bi visual for practicing custom visual creation. I want to create an input field in the Format of Power Bi that defines the max and min heights of the Y axis. I saw a lot of examples but I didn't get enough inspiration.
I have successfully created an input area in capabilities.json. I have set related parameters in setting.ts. I also set the x and y axes in the script.r file and made them a bar graph, but I can't achieve the maximum and minimum height of the y axis with my code. I tried to use ylim but it does not work. Can someone help?
"yAxis": { "displayName": "Y-Axis", "displayNameKey": "Visual_YAxis", "properties": { "show": { "displayName": "Show", "displayNameKey": "Visual_Show", "type": { "bool": true } }, "dynamicScaling": { "displayName": "Scaled", "displayNameKey": "Dynamic_Scaling", "type": { "bool": true } }, "yscalemaxin":{ "displayName": "Maximum Height", "displayNameKey": "dynymax", "type": { "numeric": true } }, "yscaleminin":{ "displayName": "Minimum Height", "displayNameKey": "dynymin", "type": { "numeric": true } } } }
source('./r_files/flatten_HTML.r') ############### Library Declarations ############### libraryRequireInstall("ggplot2"); libraryRequireInstall("plotly"); libraryRequireInstall("htmlwidgets"); #################################################### ################### Actual code #################### dataFrame <- data.frame(Axis, Values[[1]]); dynamicScaling = TRUE; if(exists("yAxis_dynamicScaling")){ dynamicScaling = as.logical(yAxis_dynamicScaling); } if(dynamicScaling){ yscaleminin = 0 yscalemaxin = Inf if(exists("yAxis_yscaleminin")){ yscaleminin = as.numeric(yAxis_yscaleminin) yscalemininValue = yAxis_yscaleminin yscalemininValue = round(max(min(yscalemininValue,1e+6),0)) }else{ yscalemininValue = 0; #if user does not enter a value then the y-axis start at 0 } if(exists("yAxis_yscalemaxin")){ yscalemaxin = as.numeric(yAxis_yscalemaxin) yscalemaxinValue = yAxis_yscalemaxin yscalemaxinValue = round(max(min(yscalemaxinValue,10000),0)) }else{ yscalemaxinValue = Inf; #if user does not enter a value into y-axis end, the y-axis end at infinity } yscales <- c(-Inf, yscalemaxinValue, yscalemaxinValue, Inf) scale <- c(yscalemaxinValue,yscalemaxinValue)[findInterval(dataFrame[[2]], vec=yscales)] p <- plot_ly(Values, x = dataFrame[[1]], y = dataFrame[[2]], type = "bar", marker = list(yscales = scale) ); }else{ #No dynamic scaling p <- plot_ly(Values, x = dataFrame[[1]], y = dataFrame[[2]], type = "bar", ); } #################################################### ############# Create and save widget ############### #p = ggplotly(p); internalSaveWidget(p, 'out.html'); ####################################################
Hi guys. I'm trying to create a R based bar chart power Bi visual for practicing custom visual creation. I want to create an input field in the Format of Power Bi that defines the max and min heights of the Y axis. I saw a lot of examples but I didn't get enough inspiration.
I have successfully created an input area in capabilities.json. I have set related parameters in setting.ts. I also set the x and y axes in the script.r file and made them a bar graph, but I can't achieve the maximum and minimum height of the y axis with my code. Can someone help?
"yAxis": { "displayName": "Y-Axis", "displayNameKey": "Visual_YAxis", "properties": { "show": { "displayName": "Show", "displayNameKey": "Visual_Show", "type": { "bool": true } }, "dynamicScaling": { "displayName": "Scaled", "displayNameKey": "Dynamic_Scaling", "type": { "bool": true } }, "yscalemaxin":{ "displayName": "Maximum Height", "displayNameKey": "dynymax", "type": { "numeric": true } }, "yscaleminin":{ "displayName": "Minimum Height", "displayNameKey": "dynymin", "type": { "numeric": true } } } }
source('./r_files/flatten_HTML.r') ############### Library Declarations ############### libraryRequireInstall("ggplot2"); libraryRequireInstall("plotly"); libraryRequireInstall("htmlwidgets"); #################################################### ################### Actual code #################### dataFrame <- data.frame(Axis, Values[[1]]); dynamicScaling = TRUE; if(exists("yAxis_dynamicScaling")){ dynamicScaling = as.logical(yAxis_dynamicScaling); } if(dynamicScaling){ yscaleminin = 0 yscalemaxin = Inf if(exists("yAxis_yscaleminin")){ yscaleminin = as.numeric(yAxis_yscaleminin) yscalemininValue = yAxis_yscaleminin yscalemininValue = round(max(min(yscalemininValue,1e+6),0)) }else{ yscalemininValue = 0; #if user does not enter a value then the y-axis start at 0 } if(exists("yAxis_yscalemaxin")){ yscalemaxin = as.numeric(yAxis_yscalemaxin) yscalemaxinValue = yAxis_yscalemaxin yscalemaxinValue = round(max(min(yscalemaxinValue,10000),0)) }else{ yscalemaxinValue = Inf; #if user does not enter a value into y-axis end, the y-axis end at infinity } yscales <- c(-Inf, yscalemaxinValue, yscalemaxinValue, Inf) scale <- c(yscalemaxinValue,yscalemaxinValue)[findInterval(dataFrame[[2]], vec=yscales)] p <- plot_ly(Values, x = dataFrame[[1]], y = dataFrame[[2]], type = "bar", marker = list(yscales = scale) ); }else{ #No dynamic scaling p <- plot_ly(Values, x = dataFrame[[1]], y = dataFrame[[2]], type = "bar", ); } #################################################### ############# Create and save widget ############### #p = ggplotly(p); internalSaveWidget(p, 'out.html'); ####################################################
We'd recommend to use lower case for all of settings. In other words, please rename yAxis to yaxis.
Please let us know if such workaround works well on your side.
Ignat Vilesov,
Software Engineer
Microsoft Power BI Custom Visuals
This is your chance to engage directly with the engineering team behind Fabric and Power BI. Share your experiences and shape the future.
Check out the June 2025 Power BI update to learn about new features.