ggh4x | ggplot extension : options for tailored facets | Data Visualization library

0

Forgive my stupid to disturb you again.

@teunbrand answered my question yesterday and I used it in my real data but it doesn’t work .

Here is my question in stackoverfow:Can I adjust the fill(color) of different label regions when using ggh4x package

And @ teunbrand created a function : assign_strip_colours <- function(gt, index, colours){…}

I don’t know where is wrong with my real data and code. There are 42 regions need to be filled with different colors.

I used grid.draw() function of ggnewscale package to get the plot

But it seems the way of download is not the same to ggplot2 type.

I used pdf() to save my plot result in shinyapp.

But when I click the download button the plot result is not picture type or not pdf

It confused me and I viewed several methods(here) but it doesn't work

I also get some advice Here

Here is my reproducible code and data:

Here is my sample data and code. I wanna add two wards in specific location just as the picture shows below.

Here is my code and sample data:

I wanna all of the bars have the same width. Now it's not so.

Here is my sample data and code:

Now I wanna adjust the blank region to different colors. And I used the ggh4x package () and its vital function: facet_nested(.~Organ+Disease, scales="free",switch = "x",nest_line = TRUE)

Let's suppose that my data has the following structure.

I have get a plot using ggplot2 and ggh4x package. What worried me is the plot should be plot by grouping information but now it doesn't because I used the ggh4x package to add more labels on x aixs.

So I wanna know if there is a method to change the space between bars according the grouping information.

My sample data and code here:

Here is my sample data and code 1 ,2 and not perfect 3

I would like to ask for your help regarding a facet_nested_wrap argument.

Let me first describe my data.

I am using the TRACE bribery risk matrix and its 4 domains and 9 subdomains.

• Domains: "Opportunity", "Deterrence", "Transparency", "Oversight".

• Subdomains: "Interaction", "Expectation", "Leverage", "Dissuasion", "Enforcement", "Processes", "Interests", "Free press", "Civil society".

"Opportunity" has 3 subdomains: "Interaction", "Expectation", "Leverage".

"Deterrence" has 2 subdomains: "Dissuasion", "Enforcement".

"Transparency" has 2 subdomains: "Processes", "Interests".

"Oversight" has 2 subdomains: "Free press", "Civil society".

Function facet_nested_wrap can be found in package ggh4x, that can be installed from GitHub with