Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 

Join 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.

Reply
Iceroom
New Member

Set y-axis 'max height' and 'min height' with R based bar graph visual

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');
####################################################

 

2 REPLIES 2
Iceroom
New Member

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');
####################################################

 

v-viig
Community Champion
Community Champion

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

pbicvsupport@microsoft.com

Helpful resources

Announcements
Join our Fabric User Panel

Join our Fabric User Panel

This is your chance to engage directly with the engineering team behind Fabric and Power BI. Share your experiences and shape the future.

June 2025 Power BI Update Carousel

Power BI Monthly Update - June 2025

Check out the June 2025 Power BI update to learn about new features.

June 2025 community update carousel

Fabric Community Update - June 2025

Find out what's new and trending in the Fabric community.

Top Solution Authors