netVisual_heatmap() changing bar plot sizes

[Styli898]

I just started using your package, I was just wondering when using netVisual_heatmap(), how could one enlarge the bar plots which can be found on the top and right of the heatmap.

[Styli898]

I have tried this to no success:

tiff("~/Practice R and scRNA seq/Figures/cellchat/heatmaptest1_56.tiff",
     height = 7, width = 7, units = "in", res = 500)


p<-netVisual_heatmap(cellchat_0_14_56,comparison = c(1,3),title.name = "56v0:Number of Iteractions", font.size.title = 30, font.size = 25)

p@top_annotation@param$is_annotation_height_set <- unit(100, "cm")   # Adjust height of top barplot
p@right_annotation@param$is_annotation_height_set <- unit(100, "cm")  # Adjust width of right barplot



draw(p)

dev.off()

[sqjin]

@Styli898 Currently we did not have the option to adjust the bar height. It is related to the codes within this function below
col_annotation <- HeatmapAnnotation(df = df.col, col = list(group = color.use.col),which = "column",
show_legend = FALSE, show_annotation_name = FALSE,
simple_anno_size = grid::unit(0.2, "cm"))
row_annotation <- HeatmapAnnotation(df = df.row, col = list(group = color.use.row), which = "row",
show_legend = FALSE, show_annotation_name = FALSE,
simple_anno_size = grid::unit(0.2, "cm"))

However, I never change the bar height so far when analyzing datasets.